Hallo Leute komischerweise hab ich jetzt nach mehreren Tagen überlegen doch mehr geschafft als die letzten tagen.
Ich bekomme das docx. Dokument geöffnet. Nun möchte ich die erste Tabelle aus dem Word Dokument auswählen und in einer neuen excel DAtei einfügen. Ich hatte zuvor schon n makro womit ich das geschafft habe, dabei habe ich das word dokument separat aufgerufen. nun hab ich eine andere möglichkeit.
Wie spreche ich ein geöffnetes Word dokument an und kopiere die sachen und füge die woanders ein? Hier mein alter code.
Private Sub CommandButton1_Click()
Dim WdApp As Object
Dim wdDok As Object
Dim wbZiel As Workbook
Dim Pfad As String
Pfad = "C:\...\x.docx"
Set wbZiel = ThisWorkbook
ActiveSheet.Columns("A:J").Delete
ActiveSheet.Columns("A:J").Insert
Set WdApp = CreateObject("Word.Application")
Set wdDok = WdApp.Documents.Open(Filename:=Pfad) ' , ReadOnly:=True)
WdApp.Visible = True
WdApp.Activate
WdApp.Selection.GoTo What:=wdGoToTable, Which:=wdGoToNext, Count:=1, Name:=""
WdApp.Selection.Find.ClearFormatting
WdApp.Selection.Tables(1).Select
WdApp.Selection.Copy
Range("A1").Select
ActiveSheet.Paste
Set wdDok = Nothing
Set WdApp = Nothing
End Sub
Wie kann ich durch ein neues Commandbutton die geöffnete Word datei ansprechen, die Inhalte kopieren und in einer neuen Excel Datei einfügen?
Eine neue excel-Datei mach ich durch Workbooks.Add
Hoffe jmd kann mir helfen. Danke
|