Hi to all.
My following macro works correcly but I need a different solution without the necessity to open the workbook.
...
Do While MyFile <> ""
Application.StatusBar = MyFile
Workbooks.Open Filename:=dirfile & MyFile
Sheet1.Cells(i, 1) = ActiveWorkbook.Sheets(15).Range("B3").Value
Sheet1.Cells(i, 2) = ActiveWorkbook.Sheets(15).Range("B4").Value
MyValue = ActiveWorkbook.Sheets(15).Range("C20").Value
' ThisWorkbook.Sheets(1).Range("C20").Value = MyValue
Sheet1.Cells(i, 3) = MyValue
For k = 1 To 14
Sheet1.Cells(i, k + 3) = ActiveWorkbook.Sheets(15).Cells(k + 5, 3).Value
Next
'MyValue = MyValue + ActiveWorkbook.Sheets(1).Range("H2").Value
ActiveWorkbook.Close savechanges:=False
j = j + 1
dirfile = RootDir & myArray(j) & "\"
MyFile = Dir(dirfile & "*.xls")
i = i + 1
Loop
Any idea?
Thanks in advance.
Regards.
Giovanni
My following macro works correcly but I need a different solution without the necessity to open the workbook.
...
Do While MyFile <> ""
Application.StatusBar = MyFile
Workbooks.Open Filename:=dirfile & MyFile
Sheet1.Cells(i, 1) = ActiveWorkbook.Sheets(15).Range("B3").Value
Sheet1.Cells(i, 2) = ActiveWorkbook.Sheets(15).Range("B4").Value
MyValue = ActiveWorkbook.Sheets(15).Range("C20").Value
' ThisWorkbook.Sheets(1).Range("C20").Value = MyValue
Sheet1.Cells(i, 3) = MyValue
For k = 1 To 14
Sheet1.Cells(i, k + 3) = ActiveWorkbook.Sheets(15).Cells(k + 5, 3).Value
Next
'MyValue = MyValue + ActiveWorkbook.Sheets(1).Range("H2").Value
ActiveWorkbook.Close savechanges:=False
j = j + 1
dirfile = RootDir & myArray(j) & "\"
MyFile = Dir(dirfile & "*.xls")
i = i + 1
Loop
Any idea?
Thanks in advance.
Regards.
Giovanni