I am new with VBA - is the code below copying from Test1 and Test2 to
paste into current spreadsheet??


Why am I getting an error on this line form the code below.




Workbooks.Open Filename:=ar(i)


It seems not to see the files I am trying to open????

__________________________________________________ ___


Sub macro2()
'


Dim present_workbook As String
Dim ar As Variant
ar = Array("D:\Documents and Settings\My Documents\test1.xls ", "
D:\Documents and Settings\My Documents\test2.xls ") ' all the spread
sheets
present_workbook = ActiveWorkbook.Name
For i = 0 To UBound(ar)
Workbooks.Open Filename:=ar(i)
temp = ActiveWorkbook.Name
Range("A1:G1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.End(xlDown).Select
If (ActiveCell.Row < 65536) Then
Range("A1:G1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Workbooks(present_workbook).Activate
Sheets("Sheet1").Select
Range("A65535").Select
Selection.End(xlUp).Select
If (ActiveCell.Row < 1) Then
ActiveCell.Offset(1, 0).Select
End If
ActiveSheet.Paste
Application.CutCopyMode = False

End If
Workbooks(temp).Activate
ActiveWorkbook.Save
ActiveWorkbook.Close
Next
End Sub


--
lcannon
------------------------------------------------------------------------
lcannon's Profile: http://www.excelforum.com/member.php...o&userid=24253
View this thread: http://www.excelforum.com/showthread...hreadid=378648

Yes, it's supposed to copying from the workbooks that are being opened.

Are you sure that they exist in that location?

If they don't exist, then you should be getting some error when you run the
code.

lcannon wrote:

I am new with VBA - is the code below copying from Test1 and Test2 to
paste into current spreadsheet??

Why am I getting an error on this line form the code below.

Workbooks.Open Filename:=ar(i)

It seems not to see the files I am trying to open????

__________________________________________________ ___

Sub macro2()
'

Dim present_workbook As String
Dim ar As Variant
ar = Array("D:\Documents and Settings\My Documents\test1.xls ", "
D:\Documents and Settings\My Documents\test2.xls ") ' all the spread
sheets
present_workbook = ActiveWorkbook.Name
For i = 0 To UBound(ar)
Workbooks.Open Filename:=ar(i)
temp = ActiveWorkbook.Name
Range("A1:G1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.End(xlDown).Select
If (ActiveCell.Row < 65536) Then
Range("A1:G1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Workbooks(present_workbook).Activate
Sheets("Sheet1").Select
Range("A65535").Select
Selection.End(xlUp).Select
If (ActiveCell.Row < 1) Then
ActiveCell.Offset(1, 0).Select
End If
ActiveSheet.Paste
Application.CutCopyMode = False

End If
Workbooks(temp).Activate
ActiveWorkbook.Save
ActiveWorkbook.Close
Next
End Sub

--
lcannon
------------------------------------------------------------------------
lcannon's Profile: http://www.excelforum.com/member.php...o&userid=24253
View this thread: http://www.excelforum.com/showthread...hreadid=378648

--

Dave Peterson