Windows XP
Excel 2002

I have a bit of code that is supposed to prompt the user for a path and file
name to save their workbook in, but I'm getting an error. The user is
intended to save a single worksheet workbook as a dbf file, and all the
necessary elements are present. Here is the code:

Sub SaveCoordinates()

Dim Filt As String
Dim FilterIndex As Integer
Dim Title As String
Dim FileName As String
Dim InitialFileName As String

FileName = ""

' Set up list of file filters
Filt = "DBF file (*.dbf)"

' Display *.dbf* by default
FilterIndex = 1

' Set the dialog box caption
Title = "Save Coordinates"

' Default File name
InitialFileName = "New_Coord_data"

' Get the file name
FileName = Application.GetSaveAsFilename( _
InitialFileName:=InitialFileName, _
FileFilter:=Filt, _
FilterIndex:=FilterIndex, _
Title:=Title)

Application.DisplayAlerts = False
ActiveWorkbook.SaveAs FileName:=FileName
Application.DisplayAlerts = True

End Sub


So, could someone kindly tell me what is wrong with the above code?

Any help greatly appreciated - thanks!

-gk-

Hi 39N95W
You'll need to change the filter conditions to the following.....

Filt = "DBF file (*.dbf), .dbf"

extract from VBA help.....
This string consists of pairs of file filter strings followed by the MS-DOS
wildcard file filter specification, with each part and each pair separated
by commas. Each separate pair is listed in the Files of type drop-down list
box. For example, the following string specifies two file filters, text and
addin: "Text Files (*.txt), *.txt, Add-In Files (*.xla), *.xla".

Cheers
Nigel

"39N95W" wrote in message
...
Windows XP
Excel 2002

I have a bit of code that is supposed to prompt the user for a path and
file
name to save their workbook in, but I'm getting an error. The user is
intended to save a single worksheet workbook as a dbf file, and all the
necessary elements are present. Here is the code:

Sub SaveCoordinates()

Dim Filt As String
Dim FilterIndex As Integer
Dim Title As String
Dim FileName As String
Dim InitialFileName As String

FileName = ""

' Set up list of file filters
Filt = "DBF file (*.dbf)"

' Display *.dbf* by default
FilterIndex = 1

' Set the dialog box caption
Title = "Save Coordinates"

' Default File name
InitialFileName = "New_Coord_data"

' Get the file name
FileName = Application.GetSaveAsFilename( _
InitialFileName:=InitialFileName, _
FileFilter:=Filt, _
FilterIndex:=FilterIndex, _
Title:=Title)

Application.DisplayAlerts = False
ActiveWorkbook.SaveAs FileName:=FileName
Application.DisplayAlerts = True

End Sub


So, could someone kindly tell me what is wrong with the above code?

Any help greatly appreciated - thanks!

-gk-

39N95W

Change this line of code

Filt = "DBF file (*.dbf)"

to

Filt = "DBF file (*.dbf), *.dbf"

Tested on Excel 9

--
Message posted from http://www.ExcelForum.com