|
朝顔 さん、おはようございます。
>再度トライしましたが、4の操作後ですと、どのエクセルファイルを
>開くときもBook1が一緒に開いてしまいますが、これはそういう仕組みなのか
>私の操作などの問題なのか教えていただけないでしょうか。
ブックオープン時のイベントでブックを追加していますので、マクロ側の設定です。
Private Sub Workbook_Open()
Set app = Application
'ここで新規ブック追加(Book1)
With Application.Workbooks
If .Count = 1 Then .Add
End With
End Sub
>>ログファイルはカレントフォルダにcsv形式で出力されます。
>という点ですが、これは開いたファイルと同じディレクトリに
>CSV形式のログファイルができるという意味でしょうか。
エクセルのメニューバーで、ツール→オプション→全般タブに、カレントフォルダ名の確認ができる部分があります。
エクセルを起動したときに、「開く」で最初に読みに行くフォルダです。
大体の場合はMy Documentsです。
マクロのこの部分で指定しています。
With Application
'フルパスファイル名
ofile = .DefaultFilePath & .PathSeparator & Format(Now(), "eemmddhhmm") & ".csv"
End With
アドインにして、ログはシートに保存せずに直接テキストに出力するほうがいいかもしれないと、後で思いました。
|
|