Free for PREMIUM members
Dim wbDest as workbook
Dim wsDest as worksheet
Dim wbSource as workbook
Dim wsSource as worksheet
Dim FSO as object
Dim Fol as object
Dim fi as object
'Get a reference to the destination workbook.
set wbDest = ThisWorkbook
set wsDest = wbDest.worksheets(1)
'Create a new FileSystemObject. We'll use this to loop through
set fso = createobject("scripting.filesystemobject")
set fol = fso.getfolder("c:\Source Documents")
'Loop through the files.
for each fi in fol.files
'Open the workbook and get the first worksheet.
set wbSource = excel.workbooks.open(fi.path)
set wsSource = wbsource.worksheets(1)
'Here you would add code to copy the data from one workbook to the other. There are many options on how to do this. The method depends on the answers to the questions above.
'Close the workbook.
Open in new window
Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.