Übertragen nur Tabellen von Microsoft Word nach Excel durch Automatisierung

1362
Tuck Couhig

Gibt es eine Möglichkeit, das Kopieren von Informationen aus Microsoft Word-Tabellen in Microsoft Excel-Tabellen zu automatisieren?

1
Was meinst du? Sie haben eine Tabelle in Excel, die bei Änderungen in Word aktualisiert werden soll? KronoS vor 11 Jahren 0

1 Antwort auf die Frage

0
Karan

Ja, das ist sehr gut möglich. Wie ich gestern gezeigt habe, können Sie Word- und Excel-Automatisierung über VBScript verwenden, um alles zu tun, was VBA unterstützt. Versuchen Sie das folgende VBS-Skript:

Option Explicit  Dim objWord, objDoc, objExcel, objSheet, tbl, srcRow, dstRow, col, cell  Set objWord = CreateObject("Word.Application") objWord.Visible = False objWord.DisplayAlerts = False objWord.Documents.Open "C:\MyDoc.docx", False, True ' path, confirmconversions, readonly Set objDoc = objWord.ActiveDocument  Set objExcel = CreateObject("Excel.Application") objExcel.Visible = False objExcel.DisplayAlerts = False objExcel.Workbooks.Add Set objSheet = objExcel.ActiveSheet  dstRow = 0 For Each tbl In objDoc.Tables For srcRow = 1 To tbl.Rows.Count col = 0 For Each cell In tbl.Rows(srcRow).Cells col = col + 1 objSheet.Cells(dstRow+srcRow, col).Value = Left(cell.Range.Text, Len(cell.Range.Text)-1) Next Next dstRow = dstRow + SrcRow Next  objWord.Quit 0 ' wdDoNotSaveChanges Set objWord = Nothing Set objDoc = Nothing  objExcel.ActiveWorkbook.SaveAs "C:\MyBook.xlsx" objExcel.Quit Set objExcel = Nothing Set objSheet = Nothing  MsgBox "All table data copied from document to workbook!"

Verwandte Probleme