前提・実現したいこと
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"'抽出転換されたシートを保存
End Sub
試したこと
デバッグのポインタが36行目のTarget.Sheets(1).Range("G2").Copy Sheets(2).Range("A2")で止まります。
調べたもののSetステートメントはついており、原因がわかりませんでした。
もしおわかりになればお願いします。
補足情報(FW/ツールのバージョンなど)
Excel 2019