import multiple files to excel
No built in command for that. You can import text files into existing
sheets or you can open text files and they become their own workbook
I would do the second, then move the sheet to the subject workbook
Dim bk as Workbook, v as Varaint
Dim i as Long
v = Array(1.txt, 2.txt, 3.txt)
for i = lbound(v) to ubound(v)
set bk = workbooks.Open("C:\MyTextFiles\" & v(i))
With thisworkbook
bk.worksheets.Move After:=.worksheets(worksheet.count)
set bk = Nothing
End With
Next
Once the sheet is moved, the workbook that was created should disappear.
--
Regards,
Tom Ogilvy
wrote in message
oups.com...
Is there a macro to import multiple .txt files and open them in
separate sheets within the same workbook .
Thanks,
Cindy
|