Daten aus Word in Excel
25.04.2019 10:46:29
Dieter
Idiotenfrage, ich weiß:
Ich will die ersten 2 Spalten einer Word-Tabelle in Excel einfügen. Mein Script kann bisher aber nur die kompletten Tabellen aus Word in Excel einfügen. Ich schaffs einfach nicht, Anfänger... WEr kann helfen?
danke!!
Sub TabellenKopierenausWordDok()
Dim wks As Worksheet, Zeile As Long
Dim objDoc As Word.Document
Dim strDocName As String
Dim objTab As Word.Table, iTab As Integer
Sheets("Word Data").Select
Selection.ClearContents
Set wks = ActiveSheet
Const StartDrive = "c:"
Const StartDir = "\"
ChDrive StartDrive
ChDir StartDir
strDocName = Application.GetOpenFilename("Word-Dokumente, *.doc*", , "Bitte Word-Datei ausw? _
hlen")
' If strDocName = "" Then Exit
Sub 'Abbrechen gedr?ckt
Zeile = 1 'Startzeile f?r das einf?gen
'Worddocument schreibgesch?tzt ?ffnen
Set objDoc = Word.Documents.Open(Filename:=strDocName, ReadOnly:=True)
With wks
For iTab = 1 To objDoc.Tables.Count
Set objTab = objDoc.Tables(iTab)
objTab.Range.Copy
.Cells(Zeile, 1).Activate
'Wordtabelle als Text ohne Formate einf?gen
.PasteSpecial Format:="Unicode-Text", Link:=False, _
DisplayAsIcon:=False
'N?chste Einf?gezeile
Zeile = .Cells.SpecialCells(xlCellTypeLastCell).Row + 2
Next
End With
objDoc.Close savechanges:=False
End Sub
1000 dank!
LG
Dieter