Exporting to Excel and Selection Issues

[felix18807]

I'm trying to automate export a table to multiple excel worksheets. In each sheet is a different selection collection.

The issue I have encountered is that intially I want to select all customers that start with "ABC" (which is straightforward) but then select all customers not starting with "ABC" and export these to the next excel worksheet.

I tried this line in the macro but it does not appear to behave in the same way as manually using select excluded in the application -

ActiveDocument.GetField("CustomerName").SelectExcluded

Is there any way to write a line in the macro that would select all "CustomerName"s not beginning with "ABC"?

sub ReportExport

 
set XLApp = CreateObject("Excel.Application")

XLApp.Visible = false
set XLDoc = XLApp.Workbooks.Add

'Bring total of sheets upto 4
XLDoc.Worksheets.Add()

XLDoc.Sheets(1).Name = "Report1"
ActiveDocument.GetSheetObject("CH162").CopyTableToClipboard true
XLDoc.Sheets(1).Paste()

XLDoc.Sheets(1).Rows("1:5000").EntireRow.AutoFit

XLApp.Visible = true



Set C=ActiveDocument.Getfield("ChannelName")
C.Select "Channel1"

 
ActiveDocument.GetField("CustomerName").SelectExcluded ' Does not appear to work as it would in the application

 
 'Export Report to next sheet etc
 
 msgbox "Done"

end sub