Syntax to combine transfer spreadsheet & Openfilesave API

[Hugh self taught]

Hi,

I have the following which is incomplete & I need some assistance with it. I
want to export table "Competitors" to a spreadsheet called "Competitors" but
I want to select where I save it. I'd prefer it if the name was automatically
populated in the save filename field to enforce consistancy.

Dim strFilter As String
Dim strInputFileName As String

strFilter = ahtAddFilterItem(strFilter, "Excel Files (*.xls)", "*.xls")
'strFilter = ahtAddFilterItem(strFilter, "All Files (*.*)", "*.*")
strInputFileName = ahtCommonFileOpenSave( _
Filter:=strFilter, OpenFile:=False, _
DialogTitle:="Please select file...", _
Flags:=ahtOFN_HIDEREADONLY)

DoCmd.TransferSpreadsheet acExport, 8, Competitors, (strFilter \
"Competitors.xls"), True

 

[Ken Snell MVP]

See my website for example code (your code is incomplete):

Browse to a single EXCEL File and Import Data from that EXCEL File via
TransferSpreadsheet
http://www.accessmvp.com/KDSnell/EXCEL_ImpExp.htm#ImpBrowseFile

Note that the above code example is for importing, but you can use it for
exporting by changing the first argument of the DoCmd.TransferSpreadsheet
action from acImport to acExport.

 

[Ken Snell MVP]

See my website for example code (your code is incomplete):

Browse to a single EXCEL File and Import Data from that EXCEL File via
TransferSpreadsheet
http://www.accessmvp.com/KDSnell/EXCEL_ImpExp.htm#ImpBrowseFile

Note that the above code example is for importing, but you can use it for
exporting by changing the first argument of the DoCmd.TransferSpreadsheet
action from acImport to acExport.

 

[Hugh self taught]

Thanks Ken, I've got that working great. Now the other part of my post was
whether or not the file name could be automated for convenience & consistancy?

 

[Hugh self taught]

Thanks Ken, I've got that working great. Now the other part of my post was
whether or not the file name could be automated for convenience & consistancy?

 

[Douglas J. Steele]

strInputFileName = ahtCommonFileOpenSave( _
Filter:=strFilter, OpenFile:=False, _
DialogTitle:="Please select file...", _
Flags:=ahtOFN_HIDEREADONLY, _
FileName:="Competitors.xls")

 

[Douglas J. Steele]

strInputFileName = ahtCommonFileOpenSave( _
Filter:=strFilter, OpenFile:=False, _
DialogTitle:="Please select file...", _
Flags:=ahtOFN_HIDEREADONLY, _
FileName:="Competitors.xls")

 

[Hugh self taught]

Thanks Doug, That's what I was missing. All works as I wanted now.

 

[Hugh self taught]

Thanks Doug, That's what I was missing. All works as I wanted now.