|
お世話になります。
対象のxlsファイルにアクセスした場合に、
アクセスした日時と、ユーザーネームをexcelLog.txtへ
記録していくVBAは探し当てたのですが、
さらに、ナンバーをつけていくのはどのようにすれば
実現できるのでしょうか。
例としては、
NO DATE USERNAME
1 2010/04/26 userName
2 2010/04/26 userName
・
・
・
n 2100/04/26 userName
Private Sub Workbook_Open()
Const logFile As String = "excelLog.txt"
Dim fileNo As Integer
Dim apPath As String
Dim userNo As Integer
apPath = ActiveWorkbook.Path
If Right(apPath, 1) <> "\" Then apPath = apPath & "\"
fileNo = FreeFile
If Dir(apPath & logFile) = "" Then
Open apPath & logFile For Output As fileNo
Else
Open apPath & logFile For Append As fileNo
End If
Print #fileNo, Now & " " & Application.UserName
Close
End Sub
宜しくお願いいたします。
|
|