M
Markus
I posted this earlier and Ron DeBruin was kind enough to
direct me to some examples that he figured would help me.
Unfortunately I am not proficient enough to convert the
example for my personal use. Here is the Post I left
earlier.
I have several files named PG1Rep2004 to PG8Rep2004
behavior?
To be more specific I acually use a List Box to clarify
the month and the referenced rownumbers increase by 40 for
each case in the listbox from the PG*Rep2004 files.
Example
Public Function WriteValues(TheCase As Integer)
Dim ls_Rangestringa As String
Dim ll_Rownumbera As Long
ll_Rownumbera = 1 + (TheCase * 40)
ls_Rangestringa = "D" + CStr(ll_Rownumbera)
Worksheets("SR").Range("A8").Value = Workbooks
("H:\MyDocuments\WorkInProgress\QARP2004
\ProgramReports\PG1Rep2004").Worksheets
("EvaluationCalculator").Range(ls_Rangestringa).Value
End Function
Basically I just want to be able to pull the information
from the PG*Rep2004 files without opening them and place
that into my function.
direct me to some examples that he figured would help me.
Unfortunately I am not proficient enough to convert the
example for my personal use. Here is the Post I left
earlier.
I have several files named PG1Rep2004 to PG8Rep2004
open at the same time. Is there vb to work around thisI have another file called SiteReport that I would like to export
certain pieces of data from each book and place them on
a sheet in this new workbook("SiteReport"). I only want to use VB. I tried to use:
Worksheets("SR").Range("A8").Value = Workbooks
("PG1Rep2004").Worksheets("Calculator").Range("D1").Value
Worksheets("SR").Range("A9").Value = Workbooks
("PG22004").Worksheets("EvaluationCalculator").Range ("D1").Value
But this only works when the corresponding workbooks are
open. Unfortunatley I cant have all 8 PGRep workbooks
behavior?
Thanks
To be more specific I acually use a List Box to clarify
the month and the referenced rownumbers increase by 40 for
each case in the listbox from the PG*Rep2004 files.
Example
Public Function WriteValues(TheCase As Integer)
Dim ls_Rangestringa As String
Dim ll_Rownumbera As Long
ll_Rownumbera = 1 + (TheCase * 40)
ls_Rangestringa = "D" + CStr(ll_Rownumbera)
Worksheets("SR").Range("A8").Value = Workbooks
("H:\MyDocuments\WorkInProgress\QARP2004
\ProgramReports\PG1Rep2004").Worksheets
("EvaluationCalculator").Range(ls_Rangestringa).Value
End Function
Basically I just want to be able to pull the information
from the PG*Rep2004 files without opening them and place
that into my function.