Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
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. |
#2
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
VBA Question (Again)
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 On Tue, 28 Jun 2011 05:51:28 -0700 (PDT), carl wrote: 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. |
#3
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
VBA Question (Again)
On Jun 28, 2:20*pm, Gord Dibben wrote:
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 On Tue, 28 Jun 2011 05:51:28 -0700 (PDT), carl wrote: 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.- Hide quoted text - - Show quoted text - There was a problem with the site. My replies to posts were not being displayed. Sorry about that |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Excel 2007 Macro/VB Question DDE Question | Excel Worksheet Functions | |||
#DIV/0! Question | Excel Worksheet Functions | |||
where can I see my question and answer? Yesterday I ask a question | Excel Discussion (Misc queries) | |||
Newbie Question - Subtraction Formula Question | Excel Discussion (Misc queries) | |||
The question is an excel question that I need to figure out howto do in excel. | Excel Worksheet Functions |