ログファイル作成 他の端末 動かない

Question

前提・実現したいこと

現在Excelを開いた際に開いたユーザ名のログを残したく別ディレクトリにある
Excelを開いて日時とユーザ名を追記するようにしています。

何卒宜しくお願い致します。

発生している問題・エラーメッセージ

私の端末では動いてくれるのですが、
他の端末によっては起動せず下記のエラーメッセージが表示されます。

実行時エラー 91 オブジェクト変数またはWithブロック変数が設定されていません。

該当のソースコード

Private Sub Workbook_Open()
    Dim apPath As String
     
    '現在のパスを取得
    apPath = ActiveWorkbook.Path

    'ユーザ名取得
    LoginName = CreateObject("WScript.Network").UserName
    Const logFile As String = "Log.xlsx"
    
    'カレントディレクトリのpathに\を付ける
    If Right(apPath, 1) <> "\" Then
        apPath = apPath & "\" & "../log/" & logFile
    End If
    
    Dim log_file_sheet As Worksheet
    Dim log_book As Workbook
    Dim blank_cell As Range
    
    '非表示
    Application.ScreenUpdating = False
    
    Workbooks.Open Filename:=apPath
    Set log_book = Workbooks("Log.xlsx")
    log_book.Activate
    
    Set log_file_sheet = log_book.Worksheets(1)
    Set blank_cell = log_file_sheet.Range("A1")
    
    Do Until blank_cell.Value = ""
        Set blank_cell = blank_cell.Offset(1, 0)
    Loop
    
    blank_cell.Value = Now & " " & LoginName
    
    With log_book
         Application.DisplayAlerts = False
        .SaveAs apPath, FileFormat:=xlWorkbookDefault
        .Close False
         Application.DisplayAlerts = True
    End With
End Sub

試したこと

変数に型が無いのがあったので型宣言しました。

補足情報（FW/ツールのバージョンなど）

office2010

Comments

[takito]

動かない端末のエクセルバージョンは同じですか？その端末デバッグした場合にどの部分でエラーになりますか？

[退会済みユーザー]

ご回答ありがとうございます。Excelのバージョンは同じです。デバックなのですが、起動した最初のみエラーメッセージが表示されその後開発タブから実行してもエラーメッセージが表示されず処理が完了してしまうのです汗

[退会済みユーザー]

開発タブにてステップ実行しているのですが、正常な動きをします。しかし、一度Excelを閉じて再度起動するとまた同じメッセージが表示されます

[ttyp03]

エラーが出るのはどの行ですか？

[退会済みユーザー]

エラーが出る行なのですが、開発タブから再度実行してもエラーにならず行が特定できません。

[ttyp03]

DEBUG.PRINTでデバッグ文を仕込んでおけば、ある程度どこまで進んだかはわかるかと思います。

[退会済みユーザー]

先程動かない端末にて

Dim apPath As String の直下に　Debug.Print "1"

[退会済みユーザー]

apPath = ActiveWorkbook.Path の直下に Debug.Print "2"　と入れて実施致しました。

[退会済みユーザー]

イミディエイトウィンドウには１としか表示されませんでした

[退会済みユーザー]

すいません、先ほど確認したところ私のPC本体は64bitでしたが、エラーが起きているPCは32bitでした。Excelのバージョンと使用bit数は同じです。試しに拡張子をxlsmからxlsに変更して実行してみましたが、同様のエラーが起きています。

Answer 1

はっきりした原因はわからないものの、DEBUG.PRINTの情報が正しいのであれば、ActiveWorkbookが存在しないということになります。
これが環境の違いなのか、タイミングの違いなのかはわかりませんが。。。
ひとまずActiveWorkbookを止め、ThisWorkbookにしたらどうなるでしょうか。
ThisWorkbookであれば自分自身を指すので、オブジェクトが存在しないというタイミングはないはずです。

Comments

[退会済みユーザー]

先ほどActiveWorkbookを削除し、

apPath = ActiveWorkbook.Path

のパス名を文字列で指定するよう変更しました。再度実行したところ

If Right(apPath, 1) <> "\" Then
apPath = apPath & "\" & "../log/" & logFile
End If
Debug.Print "4

のデバックまで表示されました。

log_book.Activate
Debug.Print "5"

の５は表示されませんでした

[ttyp03]

apPathの末尾が￥か否かの処理で、￥のときの処理がないので、もしかしたらそちらの流れになっていないでしょうか。
そうなるとapPathにはパス名しか入らず、ファイル名が付加されていないので、Openに失敗している可能性があります。
こうするべきかと。
If Right(apPath, 1) <> "\" Then
apPath = apPath & "\" & "../log/" & logFile
Else
apPath = apPath & "../log/" & logFile
End If

[退会済みユーザー]

先ほど頂いた内容で修正致しました。
エラーメッセージの内容が変わったのでお伝えします

実行時エラー　1004
Activateメソッドは失敗しました'_Workbook' オブジェクト

[ttyp03]

apPath をDEBUG.PRINTで出力してみてください。
正しい値になっていますか？
あとエラーになっているActivateの処理は不要なので削除しましょう。

[退会済みユーザー]

先ほど無事完了致しました。
apPath = ActiveWorkbook.Pathと
log_book.Activate
が不必要でありエラーを起こしていたみたいです。
理由はこれから調べていきたいと思います
本当にありがとうございました。