How to import data from Word tables into Excel with VBA 

You are welcome. Please share with your friends also.

Sub importTableDataWord() Dim WdApp As Object, wddoc As Object Dim strDocName As String On Error Resume Next Set WdApp = GetObject(, "Word.Application") If Err.Number = 429 Then Err.Clear Set WdApp = CreateObject("Word.Application") End If WdApp.Visible = True strDocName = "C:\our-inventory\inventory.docx" If Dir(strDocName) = "" Then MsgBox "The file " & strDocName & vbCrLf & _ "was not found in the folder path" & vbCrLf & _ "C:\our-inventory\.", _ vbExclamation, _ "Sorry, that document name does not exist." Exit Sub End If WdApp.Activate Set wddoc = WdApp.Documents(strDocName) If wddoc Is Nothing Then Set wddoc = WdApp.Documents.Open(strDocName) wddoc.Activate Dim Tble As Integer Dim rowWd As Long Dim colWd As Integer Dim x As Long, y As Long x = 1 y = 1 With wddoc Tble = wddoc.tables.Count Worksheets.Add after:=Sheet1, Count:=(Tble - 1) 'MsgBox Tble If Tble = 0 Then MsgBox "No Tables found in the Word document", vbExclamation, "No Tables to Import" Exit Sub End If j = 1 For i = 1 To Tble With .tables(i) For rowWd = 1 To .Rows.Count For colWd = 1 To .Columns.Count Sheets("Sheet" & j).Cells(x, y) = WorksheetFunction.Clean(.cell(rowWd, colWd).Range.Text) y = y + 1 Next colWd y = 1 x = x + 1 Next rowWd End With j = j + 1 y = 1 x = 1 If j > Tble Then wddoc.Close Savechanges:=False End If Next i End With WdApp.Quit Sheet1.Range("A1").Select Set wddoc = Nothing Set WdApp = Nothing End Sub

Joko Engineeringhelp did you receive any hints to solve the problem? I encounter the same.

I had no problems: www.exceltrainingvideos.com/how-to-import-data-from-word-tables-into-excel-with-vba/

Use a looping process to access each file. This video will guide: www.exceltrainingvideos.com/transfer-data-multiple-workbooks-master-workbook-automatically/ Or search my website www.exceltrainingvideos.com

www.exceltrainingvideos.com/copy-data-paste-another-workbook-transpose-automatically-using-excel-vba/ www.exceltrainingvideos.com/paste-special/ www.exceltrainingvideos.com/how-to-copy-a-word-table-into-excel/

These links are useful only if we are doing manually, is it possible to add a paste special option in this video's code itself? so that it can copy the word file table data(with the format) and paste it into excel(with the same format).

Will work on this good idea.

Yes. This link will guide: www.exceltrainingvideos.com/how-to-extract-numbers-from-alphanumeric-text-in-excel/

Will work on this idea.

Give an example.

Try copy pastespecial. This Excel VBA tutorial will also help: www.exceltrainingvideos.com/how-to-import-data-from-word-tables-into-excel-with-vba/ You can search this channel or our website.

@@Exceltrainingvideos link is not working but I want 50 lines data in a single cell with different formatting on each line with some hyperlink in data . Will it help?

In the 'for loop' you can use step 3. eg. For i= 1 to x step 3

@@Exceltrainingvideos thanks sir it worked

OK

I use the Fn + PRT SC keys to take a snap.

@@Exceltrainingvideos I need VBA solution to capture a table as bitmap. Is it possible ?

Need VBA solution? Ready to pay for it?

Declare the variable i. Dim i as Long

Check your code here. You'll also be able to download the actual file for practice: www.exceltrainingvideos.com/how-to-import-data-from-word-tables-into-excel-with-vba/

+Majid Al-Haddabi www.exceltrainingvideos.com/how-to-import-data-from-word-tables-into-excel-with-vba/

I have a table in microsoft word. Table format is same on 20 pages but entries are different. I want to import this data in excel but in specific rows and columns in excel. Columns title is same as in different entries of word. How can I import this data so that all data of one table in work should be imported in one row of excel. Thanks

Can you elaborate?

@@Exceltrainingvideos For example, document has different tables. Some of them have nested tables. It is necessary to extract data from table with cells size 16*N (lets name it "D"). It is fourth nested table in another parent table in cell 1,1 (lets name it "C"). Table "C" is second nested in another parent table "B" in cell 1,1. Table "A" has only one nested table "B" in cell 1,1.

Alan Sonnenberg Thanks!