Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Combine Workbooks with Same Prefix into One New Workbook
I have a folder with several hundred workbooks. Some workbooks have the same
prefix. I'd like to combine all the worksheets from workbooks with the same prefix into one workbook, and save this combined workbook as a new workbook. I tried using this but it doesn't seem to work. Also, I had programmed a user form to get the value of the prefix, but it doesn't seem to be passing the value to the Module? Any help would be appreciated. Thanks! Sub CombineFiles() Dim prefix as String Do Until FileName = "" If FileName = Dir(Path & "\" & prefix & "*.xls", vbNormal) Then Set Wkb = Workbooks.Open(FileName:=Path & "\" & FileName) For Each WS In Wkb.Worksheets WS.Copy after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Cou nt) Next WS Wkb.Close False FileName = Dir() End If Loop End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Combine multiple workbooks into one workbook | Excel Discussion (Misc queries) | |||
Compare two Workbooks and combine data into one workbook | Excel Programming | |||
Combine multiple workbooks into 1 workbook w/ multiple worksheets | Excel Discussion (Misc queries) | |||
Combine workbooks into one master workbook. | Excel Programming | |||
Combine multiple workbooks into one workbook | Excel Discussion (Misc queries) |