View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.worksheet.functions
carl carl is offline
external usenet poster
 
Posts: 42
Default VBA Question (Again)

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.