import sys
import cx_Oracle
from datetime import date, timedelta
import mail
import time

  SELECT Name FROM MSysObjects WHERE Type=5

  
DoCmd.OutputTo acOutputQuery, [B]ABC[/B], acFormatXLS, "" & fullpath & "\" &[B] ABC[/B] & ".xls"

SELECT Name FROM MSysObjects WHERE Type=5

DoCmd.OutputTo acOutputQuery, [B]rs!Name[/B], acFormatXLS, "" & fullpath & "\" & [B]rs!Name[/B] & ".xls"

The TransferText method has the following syntax and options:

DoCmd.TransferText(TransferType, SpecificationName, TableName, FileName, HasFieldNames, HTMLTableName, CodePage)

Dim strSQL As String
strSQL = "Your select statement"
DoCmd.TransferText ExportDelim, "strSQL",

 
Dim str As String
ftp_Date = Format(Date, "yyyymmdd")
str = "D:\Daily FXPCA Trade Report\" & ftp_Date
MsgBox str
MkDir str

 
SELECT MSysObjects.Name 
FROM MSysObjects 
WHERE (((MSysObjects.Type)=5));

 
DoCmd.OutputTo acOutputQuery, "??",acFormatXLS,

Public Const strConnect = "Set your connection string here"

Function SetConnections()

MsgBox strConnect

For Each QueryDef In CurrentDb.QueryDefs
If QueryDef.Connect <> "" Then
QueryDef.Connect = "ODBC;" & strConnect
End If
Next

End Function

 

ODBC;DRIVER={Oracle ODBC Driver for Rdb};SERVER=XXX.COM@FXDB@11111@W;UID=hars;PWD=password;SVR=XXX.COM;CLS=FXDB;
DATABASE=ATTACH 'FILENAME ABC_DB';XPT=2;CSO=1;DBA=W;DSO=0;TLL=;TLO=0;

 Public Const

SELECT MSysQueries.Name1
FROM MSysQueries
WHERE (((MSysQueries.Attribute)=1));