excel den txt'e log sorunu hakkında yardım lütfen.

[TANTANAAA]

Aşağıdaki kodu forumdan aldım.Excel dosyası açıldığında hedefteki txt dosyasına log almakta ama bir sonraki log öncekinin üzerine yazıyor.txt dosyasında satır satır log oluşturmayı beceremedim ayrıca dosyayı açan makinanın ip sini almam nasıl mümkün olur .yardımcı olmanızı rica ediyorum.LTF.


Private Sub Workbook_Open()
Sheets("SHEET1").Select
Dim Counter As Long, LastOpen As String, Msg As String
LastOpen = GetSetting("Maytas", "Dosya", "Opened", "")
[A2] = "LastOpenDate: " & LastOpen
[A1] = "LastOpenUser: " & Application.UserName
LastOpen = Date & " " & Time
SaveSetting "Maytas", "Dosya", "Opened", LastOpen
'txt dosyasina aktariyor
Dim LastRowA As Integer
Dim veri1 As String
Dim veri2 As String
Dim i As Integer
Open "C:\Documents and Settings\Administrator\Desktop\CAL_TRX INFO.TXT" For Output As #1
LastRowA = Cells(65536, 1).End(xlUp).Row
For i = 1 To LastRowA
veri1 = Cells(i, 1).Text
veri2 = Cells(i, 2).Text
Print #1, veri1; " "; veri2;
Next i
Close #1
Sheets("HP_INFOFORM").Select
End Sub

 

[alpi]

Open "C:\Documents and Settings\Administrator\Desktop\CAL_TRX INFO.TXT" For Output As #1

Output yerine input yazın texte kayıt yapıldıktan imleç sonra bir sonraki satıra geçecektir

 

[TANTANAAA]

Hata Verdi lütfen yardım edin sinirlerim bozuldu.