VBA 実行時エラー'91'の解決法

Question

前提・実現したいこと

VBAでエクセルの勤務表から勤務日等を抽出し、別のソフトウェアに読み込ませる転換マクロツールを作っています。
エクセルの勤務表のシートから、VBAツールのシートに勤務日を抽出転換する機能を実装中に以下のエラーメッセージが発生しました。

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

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

該当のソースコード

'ファイルの選択ダイアログを表示して
'ファイルのパスを取得します
Private Sub btnGetFilePath()

Dim fType, prompt As String
Dim fPath As Variant
Dim ws As Worksheet
Set ws = Worksheets("Sheet1")

'選択できるファイルの種類はすべてのファイル
fType = ""

'ダイアログのタイトルを指定
prompt = "Excelファイルを選択して下さい"
'ファイル参照ダイアログの表示
fPath = Application.GetOpenFilename(fType, , prompt)

If fPath = False Then
'ダイアログでキャンセルボタンが押された場合は処理を終了します
End
End If

'B2セルにファイル名をセット
ws.Cells(2, 2).Value = fPath

'読み込んだファイルを元して、このファイルのシート2に出力する
'シート2をシート1と合わせて、TOTが読めるようyyyymmdd合わせる
'数値で持ってきて、表のシート1の年月と合わせて,20200301と表示
'シート2を保存してcsvにする

Dim Target As Workbook
Set Target = Workbooks.Open(fPath)
ThisWorkbook.Activate
Target.Sheets(1).Range("G2").Copy Sheets(2).Range("A2")
Target.Sheets(1).Range("H2").Copy Sheets(2).Range("A3")

ActiveWorkbook.SaveAs Filename:="C:Work\Book1.xlsm"'転換した後csvを出力保存

End Sub

試したこと

デバッグのポインタが36行目のTarget.Sheets(1).Range("G2").Copy Sheets(2).Range("A2")で止まります。
調べたもののSetステートメントはついており、原因がわかりませんでした。
もしおわかりになればお願いします。

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

Excle2019

Answer 1

Sheets(2)がブックを指定していないので、曖昧な状態です。
私の環境では再現しませんでしたが、Excelのバージョンやブックのサイズなど環境により問題が発生しているのかもしれません。
Teratailでは度々この問題が発生していますが、解決方法はアクティブ前提の作りをやめることです。
今回の場合ではThisWorkbook.Sheets(2)と明示的に書くことで回避可能と思います。

Dim Target As Workbook
Set Target = Workbooks.Open(fPath)
Target.Sheets(1).Range("G2").Copy ThisWorkbook.Sheets(2).Range("A2")
Target.Sheets(1).Range("H2").Copy ThisWorkbook.Sheets(2).Range("A3")

ThisWorkbook.SaveAs Filename:="C:Work\Book1.xlsm"'転換した後csvを出力保存

Comments

[r_o_234]

ttyp03さん
いつも回答誠にありがとうございます。

指摘の通りアクティブ前提の作りをやめ、ThisWorkbookをつけてみました。
数回はこの実行時エラー'91'を解決して先に進んだものの、また同じエラーを繰り返すようになってしまいました。ここで、別の方の環境でもこのVBAを実行して貰ったのですが正常に動いたため、私のPCの調子がおかしいとの仮説を立てPCを再起動しエクセルVBAを実行した所、このVBAマクロツールが動作しました。
ご協力ありがとうございます。助かりました。

[ttyp03]

環境に依存しているってことなので、その対応はよろしくないです。
きちんと原因を探らないとまた同じ現象が発生しますよ。

[r_o_234]

ttyp03さん
ご指摘ありがとうございます。根本的な原因も探ってみます。

Answer 2

別の方の環境でもこのVBAを実行して貰ったのですが正常に動いたため、私のPCの調子がおかしいとの仮説を立てPCを再起動しエクセルVBAを実行した所、このVBAマクロツールが動作しました。