Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Importing Multiple files nearly there
First of all I rin this Macro: -
Sub ListFiles() F = Dir("C:\*.XLS") Do While Len(F) 0 ActiveCell.Formula = F ActiveCell.Offset(1, 0).Select F = Dir() Loop End Sub This list the filenames in the directory. Now I want this macro to copy the information from the file name i cell A1. I tried this but there was no luck: - Sub Macro1() ' ' Macro1 Macro ' Macro recorded 15/01/2004 by Ian ' Workbooks.Open Filename:= (A1) Range("A:B").Copy Destination:=Workbooks("Book1").Range("A:B") MsgBox ("Completed Copying") End Sub ANY IDEA HOW TO MAKE THIS REFERENCE LOOK AT CELL A1 as a file name -- Message posted from http://www.ExcelForum.com |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Importing multiple files | Excel Discussion (Misc queries) | |||
Importing multiple files | Excel Discussion (Misc queries) | |||
importing multiple .dat files! | Excel Worksheet Functions | |||
Importing from multiple Excel files | Excel Discussion (Misc queries) | |||
Importing Multiple Data Files | Excel Programming |