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.
"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.