Office: Per Makro Excel starten und....

Hallo Leute,

ich möchte aus einer Userform, welche aus einer Wordvorlage automatisch startet, über eine Schaltfläche folgendes realisieren:

Mit Klick wird aus einer Exceldatei Gesamt.xls die Spalten A, G, H,I und J in eine andere Exeldatei, Export.xls, kopiert.

In der Datei Export.xls sollen die kopierten Spalten nacheinander in A, B, C usw. kopiert werden.

Die dartin befindlichen Daten sollen automatisch überschrieben werden

Ist das möglich?

DANK schon mal im Voraus.

Peeti

 

Hi,

das geht dann so:

Code:

Public Excel As Object

Sub Aufruf_Excel()
Dim DateiName   As String
Dim A_Wk As Excel.Workbook
Dim N_Wk As Excel.Workbook

Set Excel = CreateObject("Excel.Sheet")

Excel.Application.Visible = True

DateiName = "C:\Forum\Office-Hilfe Forum\Excel_muster\Datei1.xls"  'Deine 1. Exceltabelle!
Set A_Wk = GetObject(DateiName)
Excel.Parent.Windows(Excel.Parent.Windows.Count).Activate

DateiName = "C:\Forum\Office-Hilfe Forum\Excel_muster\Datei2.xls" 'Deine 2. Exceltabelle!
Set N_Wk = GetObject(DateiName)
Excel.Parent.Windows(Excel.Parent.Windows.Count).Activate

Call Excel_Spalte(A_Wk, N_Wk, "A")
Call Excel_Spalte(A_Wk, N_Wk, "G")
Call Excel_Spalte(A_Wk, N_Wk, "H")
Call Excel_Spalte(A_Wk, N_Wk, "I")
Call Excel_Spalte(A_Wk, N_Wk, "J")


Excel.Parent.Windows(Excel.Parent.Windows.Count).Activate

Set A_Wk = Nothing
Set N_Wk = Nothing
Set Excel = Nothing

End Sub


Function Excel_Spalte(A_Wks As Excel.Workbook, N_Wks As Excel.Workbook, Spalte As String)

Dim strSpalte As String
Dim strZiel As String

strSpalte = Spalte & ":" & Spalte

Select Case Spalte

Case "A"
    strZiel = "A1"
Case "G"
    strZiel = "B1"
Case "H"
    strZiel = "C1"
Case "I"
    strZiel = "D1"
Case "J"
    strZiel = "E1"
End Select

A_Wks.Activate
With A_Wks.ActiveSheet
    .Columns(strSpalte).Select
    Excel.Application.Selection.Copy
End With

N_Wks.Activate
With N_Wks.ActiveSheet
    .Range(strZiel).Select
    .Paste
End With

End Function

Alles in ein Modul in Word-VBA kopieren... Und nicht vergessen einen Verweis auf Excel in VBA setzen! Sonst funktioniert es nicht!
Die Pfade zu Deinen Exceldateien musst Du natürlich im Code noch anpassen!