DBF Files to Workbook

[acorrea4]

I get hundreds of excel DBF Files that I have to open and then resave as Excel Workbooks. I use the exact file name and just change them from DBF to Workbook.

Is there anyway that I can do some automatic save to change all of the files at one time from DBF to Workbooks without haveing to open and resave each file?

 

[Tazguy37]

Welcome to MrExcel Board!

How about something like this in a standard module:

Sub saveDBF2XL()
Dim myFile As String
Dim myPath As String

    myPath = "C:\test\"
    myFile = Dir(myPath & "*.dbf")
    If myFile = "" Then Exit Sub

    While myFile <> ""
        Workbooks.Open myPath & myFile
        ActiveWorkbook.SaveAs Left(myFile, Len(myFile) - 4) & ".xls"
        ActiveWorkbook.Close 0
        myFile = Dir
    Wend

End Sub

I tried to get this to work a bit differently, saving an closing at the same time, but it didn't work the way I wanted. This does. Open a blank workbook, and put this code in it like so:

• How to use the above code:
  
  Press Alt-F11 to open the VBE.
  Press Control-R to open the Project Explorer.
  Click "Microsoft Excel Objects" for the file you're working on.
  Select Insert, Module from the drop down menus.
  
  Open the Code pane with F7.
  Paste the above code in.
  Press Alt-Q to close the VBE and return to Excel

Change the myPath variable in the code to reflect the path you want to use, and you should be all set.

Hope that helps!