Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

17007 / 76738

←次へ　｜　前へ→


	【65192】ファイルアクセスのナンバーをつける

cocoa - 10/4/26(月) 10:44 -


	引用なし

	パスワード

お世話になります。

対象の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

宜しくお願いいたします。

0 hits

▼

【65192】ファイルアクセスのナンバーをつける cocoa 10/4/26(月) 10:44

≪