Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations derfloh on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Create Pivot Table & Export to Excel in VBA
- Thread starter sandra45
- Start date
Hi,
This is the way i go ....
Dim pPeriod As Date
Dim qdf As DAO.QueryDef
Dim strSQL As String
Dim FileName As String
pPeriod = CDate("01/" & Me.cmbMonth & "/" & Me.cmbYear)
Set dbs = CurrentDb
strSQL = "TRANSFORM statement ... "
Set qdf = dbs.CreateQueryDef("TempQry", strSQL)
If export = False Then
DoCmd.OpenQuery "TempQry", acViewNormal, acReadOnly
Else
FileName = "test"
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel8, "TempQry", FileName
End If
dbs.QueryDefs.Delete "TempQry
This is the way i go ....
Dim pPeriod As Date
Dim qdf As DAO.QueryDef
Dim strSQL As String
Dim FileName As String
pPeriod = CDate("01/" & Me.cmbMonth & "/" & Me.cmbYear)
Set dbs = CurrentDb
strSQL = "TRANSFORM statement ... "
Set qdf = dbs.CreateQueryDef("TempQry", strSQL)
If export = False Then
DoCmd.OpenQuery "TempQry", acViewNormal, acReadOnly
Else
FileName = "test"
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel8, "TempQry", FileName
End If
dbs.QueryDefs.Delete "TempQry
- Status
Similar threads
- Question
- Locked
- Question