Excel VBA質問箱 IV

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

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


37919 / 76732 ←次へ | 前へ→

【43959】ログ取りアドインにしてみました(脱線中)
回答  りん E-MAIL  - 06/10/31(火) 9:27 -

引用なし
パスワード
   おはようございます。

以下を全てThisWorkbookに記述し、一旦保存後、アドインを作成(名前をつけて保存・形式をxlaにする)。
ブックを保存する前に、VBAProjectに保護をかけておいた方がいいと思います。

'ここから=================================
Option Explicit
Private WithEvents app As Application
Dim opath As String
'シート(ログ)に転記
Private Sub app_WorkbookBeforeClose(ByVal Wb As Workbook, Cancel As Boolean)
  If Wb.Name <> ThisWorkbook.Name Then
   Log_Edit Wb.FullName, "Close" '実働部分は別Sub
  End If
End Sub
'シート(ログ)に転記
Private Sub app_WorkbookOpen(ByVal Wb As Workbook)
  If Wb.Name <> ThisWorkbook.Name Then
   Log_Edit Wb.FullName, "Open" '実働部分は別Sub
  End If
End Sub
'Open_Close共通処理
Private Sub Log_Edit(arg1 As String, arg2 As String)
  'arg1:フルパスブック名 arg2:処理状況
  If opath = "" Then opath = TempPATH
  'ファイル名固定
  Open opath & "\Excel_OC.LOG" For Append As #2
   Print #2, arg1; vbTab; Now; vbTab; arg2
  Close #2
End Sub
'オープン時のイベント
Private Sub Workbook_Open()
  With Application.Workbooks
   If .Count = 0 Then .Add
  End With
  '
  Set app = Application
End Sub
'TEMPフォルダを取得する関数
Private Function TempPATH()
  Dim obj1 As Object
  Set obj1 = CreateObject("Scripting.FileSystemObject")
  TempPATH = obj1.GetSpecialFolder(2).Path
End Function
'ここまで=================================

ツール→アドインで作成したアドインを組み込めば、起動時に読み込まれ、ブックが開く/閉じるたびに、WindowsのTempフォルダにログが追加されます。
ファイル名は、Excel_OC.LOG です。

Tempフォルダとは、
Windows98の場合は、
  C:\Windows\Temp
2000以降の場合は、
  C:\Documents and Settings\(ユーザー名)\Local Settings\Temp

ユーザーに管理者権限がないとどうなるかは今は試せないので、どなたかお願いします。
LocalSettingなので大丈夫とは思います。

0 hits

【43944】Excelで使用したファイルを監視する方法は? 初心者 06/10/30(月) 15:00 質問
【43946】Re:Excelで使用したファイルを監視する方法... Statis 06/10/30(月) 16:13 質問
【43964】Re:Excelで使用したファイルを監視する方法... 初心者 06/10/31(火) 12:02 回答
【43947】Re:Excelで使用したファイルを監視する方法... りん 06/10/30(月) 18:06 回答
【43951】Re:Excelで使用したファイルを監視する方法... 朝顔 06/10/30(月) 21:49 質問
【43955】Re:Excelで使用したファイルを監視する方法... りん 06/10/30(月) 22:39 発言
【43957】Re 教えて君ですいません 朝顔 06/10/30(月) 23:13 質問
【43958】Re:Re 教えて君ですいません りん 06/10/31(火) 7:09 回答
【43959】ログ取りアドインにしてみました(脱線中) りん 06/10/31(火) 9:27 回答
【43960】Re:ログ取りアドインにしてみました(脱線... りん@通りすがり 06/10/31(火) 10:49 発言
【43977】Re 教えて君ですいません2 朝顔 06/10/31(火) 15:48 質問
【43978】Re:Re 教えて君ですいません2 Kein 06/10/31(火) 16:05 発言
【43979】Re:Re 教えて君ですいません2 朝顔 06/10/31(火) 16:32 お礼
【43980】Re:Re 教えて君ですいません2 りん 06/10/31(火) 17:55 発言
【43998】Re:Re 教えて君ですいません2 朝顔 06/10/31(火) 20:53 発言
【43999】Re:Re 教えて君ですいません2 りん 06/10/31(火) 20:57 発言
【44000】Re:Re 教えて君ですいません2 朝顔 06/10/31(火) 21:18 お礼
【44001】Re:Re 教えて君ですいません2 りん 06/10/31(火) 21:47 回答
【44003】Re:Re 教えて君ですいません2 朝顔 06/10/31(火) 22:29 お礼
【43971】Re:Excelで使用したファイルを監視する方法... 初心者 06/10/31(火) 13:02 お礼

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