I\'m trying to build a database in Access by importing and appending hundreds of Excel documents in a certain folder together. Each imported excel spreadsheet needs to be ba
I suggest you use names that will work in Access, that is, no odd characters such as #, and no spaces - it will make your life easier.
It looks quite unsafe to me to simply change a column heading.
Const DirOpen As String = "C:\Users\DTurcotte\Desktop\Test_Origin\"
Const DirSave As String = "C:\Users\DTurcotte\Desktop\Processed\"
Sub Formatting2()
''Reference: Windows Script Host Object Model
''You could just use late binding, but
''the file system object is very useful for this type
''of work.
Dim fs As New FileSystemObject
Dim fldr As Folder
Dim f As File
'**'Loop through each xl file in a folder**
If fs.FolderExists(DirOpen) Then
Set fldr = fs.GetFolder(DirOpen)
For Each f In fldr.Files
If f.Type Like "*Excel*" Then
''Includes:
''Microsoft Excel 97-2003 Worksheet
''Microsoft Excel Comma Separated Values File
''Microsoft Excel Macro-Enabled Worksheet
''Microsoft Excel Worksheet
''Etc
ProcessFile f.Name
End If
Next
End If
End Sub
Sub ProcessFile(FileName As String)
Dim RowIndex As Integer
Dim ColIndex As Integer
''It is not a good idea to use the names of built-in
''objects as variable names
Dim r As range
Dim totalRows As Integer
Dim totalCols As Integer
Dim LastRow As Long
Dim wb As Workbook
Set wb = Workbooks.Open(DirOpen & FileName)
'**'Format Column Headings
wb.Sheets(1).Select
''processing code goes here
'**'Saves file to a new folder
wb.SaveAs DirSave & FileName
wb.Close
End Sub