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
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