65606


### 前提・実現したいこと

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

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

[code]

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

### 該当のソースコード

[code]

    'ファイルの選択ダイアログを表示して
    'ファイルのパスを取得します
    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
    
[/code]

### 試したこと

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

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

Excel 2019


CC BY-SA 4.0
2020-04-14T02:16:33.347
65600
2020-04-14T07:12:32.470
2020-04-14T02:21:20.763
3060
38336
question
vba excel
VBA 実行時エラー'91'の解決法


>
[code]

>     Target.Sheets(1).Range("G2").Copy Sheets(2).Range("A2")
>  
[/code]

は`Target.`が不足していて

[code]

    Target.Sheets(1).Range("G2").Copy Target.Sheets(2).Range("A2")
    
[/code]

の誤りだったりしませんか？


CC BY-SA 4.0
2020-04-14T02:23:35.140
65601
2020-04-14T02:23:35.140
4236
65600
answer


一応解決しました。別の方の環境でもこのVBAを実行して貰ったのですが正常に動いたため、私のPCの調子がおかしいとの仮説を立てPCを再起動しエクセルVBAを実行した所、このVBAマクロツールが動作しました。環境に依存しているらしいので根本的な原因も調査中です。ご協力ありがとうございました。


CC BY-SA 4.0
2020-04-14T07:12:32.470
65606
2020-04-14T07:12:32.470
38336
65600
answer