Hallo,
ich habe die Mappe wie volgt deklariert:
nicht wundern über die vielen zuweisungen. das ist das grundgerüst von meinem Hauptprogramm.
Sub xExcel_öfnen()
Dim oRange As Range
Dim oDoc As Document: Set oDoc = ActiveDocument
Dim xkomplett As String
Dim loeschen As String
Dim Mappe1 As Object
Dim Mappe As Object
Dim excel As String
Dim versuch As Integer: versuch = 1
Dim strFileName As String
Dim xTrassen As String
On Error Resume Next 'Fehlerbehandlung
Set Mappe1 = GetObject(, "Excel.Application")
If Mappe1 Is Nothing Then
Set Mappe1 = CreateObject("Excel.Application") 'Excel wird geöffnet
End If
' Mappe1.Visible = True 'Wenn Excel angezeigt werden soll
Set Mappe = Mappe1.workbooks("Test Vorlage.xlsm")
If Mappe Is Nothing Then
Set Mappe = Mappe1.workbooks.Open("C:\Arbeit\Makro Test\Test Vorlage.xlsm")
End If
'
On Error GoTo 0
' Ab hier ab hier test code
'
Mappe.Sheets("Tabellen für Bericht").Range("F4:I15").Copy
'Selection.PasteExcelTable _
LinkedToExcel:=False, _
WordFormatting:=False, _
RTF:=True
Selection.PasteAppendTable
'Selection.PasteAndFormat Type:=wdTableAppendTable
End Sub
ich habe den Corsor zum Testen immer in die richtige Zelle / Zeile vor Programmstart an die entsprechende stelle in der zu bearbeitende Tabbelle gesetzt. Ich weiss wie ich im fertigen Programm ansprechen muss. das pasiert mit einer Textmarke im Word. mit dem deaktivierten befehlen habe ich auch schon experimentiert.
MfG
Sven
|