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 質問
【65193】Re:ファイルアクセスのナンバーをつける Jaka 10/4/26(月) 15:25 発言
【65203】Re:ファイルアクセスのナンバーをつける S 10/4/27(火) 0:09 回答

17007 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free