Copy word table to excel using macro4/17/2023 unt cells (irow, icol) worksheetfunction.clean (.cell (irow, icol).range. tables (tableno) 'copy cell contents from word table cells to excel cells for irow 1 to. " Set xlApp = CreateObject("Excel.Application") bXStarted = True End If On Error GoTo 0 'Open the workbook to input the data Set xlWB = (strPath) ' Get sheet by name Set xlSheet = xlWB.Sheets("Sheet1") ' Get sheet by index # ' Set xlSheet = xlWB.Sheets(1) xlApp.Visible = True For Each Item In Set doc = ' to get all tables For x = 1 To '' Get last table ' x = Set r = doc.
0 Comments
Leave a Reply.AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |