Hi,

I need someone to help me to rectify the following VBA codes which had
taken from other excel file to use for Excel VBA learning exercise.
However, I face the problem when I run excel macro on these codes in
Excel 2007, it prompts the error “ Method ‘Open’ of object ‘Workbooks’
failed” and it stops at VBA code “ Workbooks.Open filenams (counter)

Dim lngCount As Long
Dim filenames As Variant
filenames = Application.GetOpenFilename(, , , , True)
counter = 1
While counter <= UBound(filenames)
Workbooks.Open filenames(counter)
counter = counter + 1
Wend

Thanks in advance
Regards
Len

Len,

From the Immediate Window pane in VBA, reply with the value for counter by
typing the following:

?counter
--
Regards,
Eddie
http://www.HelpExcel.com


"Len" wrote:

Hi,

I need someone to help me to rectify the following VBA codes which had
taken from other excel file to use for Excel VBA learning exercise.
However, I face the problem when I run excel macro on these codes in
Excel 2007, it prompts the error €œ Method €˜Open of object €˜Workbooks
failed€� and it stops at VBA code €œ Workbooks.Open filenams (counter)

Dim lngCount As Long
Dim filenames As Variant
filenames = Application.GetOpenFilename(, , , , True)
counter = 1
While counter <= UBound(filenames)
Workbooks.Open filenames(counter)
counter = counter + 1
Wend

Thanks in advance
Regards
Len

the only time i get an error is when the open file dialog is cancelled. In
that case the value of filenames is "false" and can be checked in code

otherwise code runs for me with the addition of
Dim counter As Long

in both 2003 and 2007

"HelpExcel.com" wrote in message
...
Len,

From the Immediate Window pane in VBA, reply with the value for counter by
typing the following:

?counter
--
Regards,
Eddie
http://www.HelpExcel.com


"Len" wrote:

Hi,

I need someone to help me to rectify the following VBA codes which had
taken from other excel file to use for Excel VBA learning exercise.
However, I face the problem when I run excel macro on these codes in
Excel 2007, it prompts the error €œ Method €˜Open of object €˜Workbooks
failed€� and it stops at VBA code €œ Workbooks.Open filenams (counter)

Dim lngCount As Long
Dim filenames As Variant
filenames = Application.GetOpenFilename(, , , , True)
counter = 1
While counter <= UBound(filenames)
Workbooks.Open filenames(counter)
counter = counter + 1
Wend

Thanks in advance
Regards
Len