Load all files in a directory
I would like to load all my .xls file, How would I do this please.
Thanks again Greg |
I have the below in a standard module of a surrogate file xyz.xls:
I open xyz; Run the Macro, then Close xyz; Sub OpenMyFiles() Dim sPath As String, sName As String Dim bk As Workbook sPath = "C:\My Documents\MyFavoriteFiles\" sName = Dir(sPath & "*.xls") Do While sName < "" Set bk = Workbooks.Open(sPath & sName) ' . . . process bk ' bk.Close Savechanges:=False ' or true sName = Dir Loop End Sub "Greg B..." wrote in message ... I would like to load all my .xls file, How would I do this please. Thanks again Greg |
Thanks Jim, just what I wanted
Greg |
All times are GMT +1. The time now is 05:17 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com