I have tried the macro below but it does not work. Any suggestions?
Sub BasicExportToExcel
DIM ExcelApplication, ExcelWorkbook
SET ExcelApplication = CREATEOBJECT("Excel.Application")
SET ExcelWorkbook = ExcelApplication.Workbooks.Add
ActiveDocument.GetSheetObject("TB02").CopyTableToClipBoard TRUE
ExcelWorkbook.Worksheets(1).Paste
ExcelApplication.DisplayAlerts = FALSE
ExcelWorkbook.SaveAs "C:\test.xls", 56
ExcelApplication.Quit
MsgBox "Export Complete"
End Sub