Sleeper: Open closed excel file

[alexanderd]

i am trying to open an excel file " A.xls" which is password protected "password=AbC" from from another file "B".
I would like to read the last cell in colum "A" of file "A" and add 1 to it and paste into file "B".
row 2:2 of file "B" has to be pasted to end of file "A"

any help would be appreciated:banghead:

[Jacob Hilderbrand]

Try something like this.


Option Explicit

Sub Macro1()
Dim Wkb As Workbook
Dim Path As String
Dim FName As String
Dim Pass As String
Dim Str As String
Dim LastRow As Long
Path = ThisWorkbook.Path
FName = "A.xls"
Pass = "ABC"
Set Wkb = Workbooks.Open(Filename:=Path & "\" & FName, Password:=Pass)
LastRow = Wkb.Sheets(1).Range("A65536").End(xlUp).Row
Wkb.Sheets(1).Range("A" & LastRow).Value = Wkb.Sheets(1).Range("A" & LastRow).Value + 1
Wkb.Sheets(1).Range("A" & lastrow).Copy Destination:= ??Paste Location Here??
ThisWorkbook.Sheets(i).Range("A2").EntireRow.Copy Destination:=Wkb.Sheets(1).Range("A" & LastRow + 1)
Wkb.Close SaveChanges:=True
End Sub

[alexanderd]

thank you for your quick responce, i hope to try this out on monday at work