Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.
Keywords: Access OLE Query export to Excel
AccessDB = ObjectOpen("Access.Application") ADB = AccessDB.Application ; make sure use full db path/name ADB.OpenCurrentDatabase ("c:\Aerostd\ieee98.mdb") ADB.Visible = @true ADB.UserControl = @true ADBCmd = ADB.docmd ADBCmd.OpenQuery("PapersAndAuthors") ADB.closecurrentDatabase ADB.Quit ;' Release the object variable ObjectClose(AccessDB
; Create xl spread sheet from downloaded access database xlFilename = "C:\Aerostd\PapersAndAuthors.xls" acQuery = "PapersAndAuthors" if Fileexist(xlFilename) then filedelete(xlfilename) ; Delete old sheet AccessDB = ObjectOpen("Access.Application") ; OLE XP Version ADB = AccessDB.Application ; Open Access ADB.OpenCurrentDatabase ("c:\Aerostd\ieee98.mdb") ; Open DB ; ADB.Visible = @true ; Make access visible ADBCmd = ADB.docmd ;Create OLE command first part ADBCmd.TransferSpreadsheet(1, 8, acQuery, xlFilename, @True) ; Export Query to Spreadsheet objectClose(ADB) ; Close oLE objects objectClose(ADBCmd) ObjectClose(AccessDB)
Article ID: W15622
File Created: 2003:05:13:11:29:18
Last Updated: 2003:05:13:11:29:18