-
If you would like to post, please check out the MrExcel Message Board FAQ and register here. If you forgot your password, you can reset your password.
Simple VBA to open all files in a folder
- Thread starter mk000
- Start date
SIXTH SENSE
Well-known Member
- Joined
- Oct 29, 2003
- Messages
- 1,883
hi!
You did not mention on which sheet will the word hello be placed in the workbook.
i pressumed that you want it in all sheets' A1.
see below.
You did not mention on which sheet will the word hello be placed in the workbook.
i pressumed that you want it in all sheets' A1.
see below.
Code:
Sub Hello()
Dim Bk As Workbook
Dim Sht As Worksheet
With Application.FileSearch
.NewSearch
.LookIn = "C:\temp"
.SearchSubFolders = False
.Filename = "*.xls"
.MatchTextExactly = True
.FileType = msoFileTypeAllFiles
End With
With Application.FileSearch
If .Execute() > 0 Then
For i = 1 To .FoundFiles.Count
Set Bk = Application.Workbooks.Open(.FoundFiles(i))
For Each Sht In Bk.Worksheets
Sht.Range("A1").Value = "hello"
Next Sht
Bk.Save
Bk.Close
Next i
Else
MsgBox "There were no files found.", vbCritical, "Error 101"
End If
End With
End Sub
Upvote
0
. Thanks again!
