access vba Append query results to XML file -

Text after "

I think that as far down to line 6. As I need to get the results there are some titles in it That's an xlsx file and put them in the file in line 7. I'm not sure whether I am adding or exporting query results. Exec const acExportQuery = 1 set objAccess = CreateObject ("Access.Application") objAccess.OpenCurrentDatabase "\ HealthyImmunity Contacts Manager - V1.53.adp" objAccess.ExportXML acAppendData, "c: \ Scripts \ TestOrder.xlsx "," col_USbatchOrders "

Anyone have any ideas?

After

Below is an example code that can speed you up to Excel. Also add it to Excel For workbook_open and it should import query performance results from

  sub GetData () CNN dim databases, as ADODB.Connection dim RS ADODB.Recordset defines slow sQRY string string strFilePath as string StrFilePath = as set as "\ HealthyImmunity Contact Manager - V1.53.adp" cnn = new ADODB.Connection set = new ADODB.Recordset She Et1.Range ("Detourge"). ClearContents cnn.Open "Provider = Microsoft.Jet.OLEDB.4.0;" & Amp; _ "Data source =" & amp; Stuff file path & amp; "," SqRY = "SELECT tblData. * From TBData, Rsursor location = adUseClient r.Open sqRY, cnn, adOpenStatic, adLockReadOnly application.ScreenUpdating = False Sheet1.Range (" B2 "). CopyFromRecordset RS rs.Close set RS = any CNN No. CNN = None Exit Exit Sub Off   
 End Sub