Recognize Names of other Workbooks
Marty,
Don't open the workbooks before hand - use a macro to open them. See example
code below.
HTH,
Bernie
MS Excel MVP
Sub OpenMultipleUserSelectedFiles2()
Dim filearray As Variant
Dim myBook As Workbook
filearray = Application.GetOpenFilename(MultiSelect:=True)
If IsArray(filearray) Then
For i = LBound(filearray) To UBound(filearray)
Workbooks.Open filearray(i)
Set myBook = ActiveWorkbook
'Do things here to myBook.Sheets("Sheetname").Range, etc...
myBook.Close False ' to close without saving...
Next i
End If
End Sub
"Marty" wrote in message
...
Hello:
I'm using Excel 2003. I have a workbook (utility.xls) which I use to
extract data from other workbooks. Currently, I have the code written in
the
utility which forces the name of the other workbook to be named something
specific. In this case, "Cost Data.xls":
Dim UTIL, COST as Object
Set UTIL = Workbooks(ActiveWorkbook.Name).Sheets("Sheet1")
Set UTIL = Workbooks("Cost Data.xls").Sheets("Sheet1")
{and so forth}
UTIL is intended to extract data from several workbooks, but right now I
can
only do them one at a time and I have to name each one "Cost data.xls"
before
doing the extraction.
HERE IS MY QUESTION:
Is there a way to get Excel to recognize all of the open workbooks by
their
names (say I want to do five at a time) without renaming them and having
to
specify a name(s) in my code?
Thanks in advance.
MARTY
|