VBA Question (Again)

  • Thread starter Thread starter carl
  • Start date Start date
C

carl

I was having trouble adding to my previous post so trying to start a
"new" one. The previous post is titled "VBA Question".

I am running Excel 2003.

My task is to extract the 5th row of data from a list of workbooks. I
have the list of workbooks in A1:A223. It looks like this:

J:\Projects\ORF\Meeds\xlsx\001\ORF.xlsx
J:\Projects\ORF\Meeds\xlsx\002\ORF.xlsx
J:\Projects\ORF\Meeds\xlsx\003\ORF.xlsx
J:\Projects\ORF\Meeds\xlsx\004\ORF.xlsx
J:\Projects\ORF\Meeds\xlsx\005\ORF.xlsx

Note these are xlsx files - if that matters. Also note that it is
possible for one of these files to not exist.

I am looking for a way to extract the 5th row of data (A5:H5) from
these files.

In the previous post, a recomendation was to try this:

Sub test2()
Dim nRow As Integer, nColumn As Integer, n As Integer
Dim sDir As String
nRow = 5
For i = 1 To 1
sDir = Range("A" & i) 'Range("A1:Ax") contains values like "c:\temp
\"
n = n + 1
For nColumn = 1 To 256
Sheets(2).Cells(n, nColumn) = ExecuteExcel4Macro _
("'" & sDir & "[MyFile.xls]ORF_Charge'!R" & nRow & "C" & nColumn
& "")
Next
Next
End Sub

When I run this, I get prompted by an "explorer" type window named
"MyFile" that looks like it needs me to select a file. I am not sure
what to do at that point.

Thank you in advance.

Regards.
 
You won't get any more help by starting a new thread.

Keep looking at the original thread for updates so's you can see how to resolve
your issues.

You will see why you get the "MyFiles" window.


Gord
 
You won't get any more help by starting a new thread.

Keep looking at the original thread for updates so's you can see how to resolve
your issues.

You will see why you get the "MyFiles" window.

Gord



I was having trouble adding to my previous post so trying to start a
"new" one. The previous post is titled "VBA Question".
Click to expand...
I am running Excel 2003.
Click to expand...
My task is to extract the 5th row of data from a list  of workbooks. I
have the list of workbooks in A1:A223. It looks like this:

Note these are xlsx files - if that matters. Also note that it is
possible for one of these files to not exist.
Click to expand...
I am looking for a way to extract the 5th row of data (A5:H5) from
these files.
Click to expand...
In the previous post, a recomendation was to try this:
Click to expand...
Sub test2()
Dim nRow As Integer, nColumn As Integer, n As Integer
Dim sDir As String
nRow = 5
For i = 1 To 1
  sDir = Range("A" & i) 'Range("A1:Ax") contains values like "c:\temp
\"
  n = n + 1
  For nColumn = 1 To 256
    Sheets(2).Cells(n, nColumn) = ExecuteExcel4Macro _
    ("'" & sDir & "[MyFile.xls]ORF_Charge'!R" & nRow & "C" & nColumn
& "")
  Next
Next
End Sub
Click to expand...
When I run this, I get prompted by an "explorer" type window named
"MyFile" that looks like it needs me to select a file. I am not sure
what to do at that point.
Click to expand...
Thank you in advance.
Click to expand...
Regards.- Hide quoted text -
Click to expand...

- Show quoted text -
Click to expand...

There was a problem with the site. My replies to posts were not being
displayed. Sorry about that
 
Back
Top