フォルダに入っているエクセルファイルをコピーし、別エクセルファイルのシートへ貼り付けたい。

Question

vbaを使用
フォルダに入っているエクセルファイルのシートをコピーし、別エクセルファイルに張り付けたい。

実現したいこと

１．コピーしたいエクセルファイルのシート指定
２．貼り付けたいエクセルファイルのシート指定
３．貼り付けた後はコピー元のファイルは削除される

コードが間違っているのか、その他の要因かわかりません
ご協力よろしくお願いします。

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

エラーメッセージ
VBA エラー 438「オブジェクトは、このプロパティまたはメソッドをサポートしていません。」

該当のソースコード

ソースコード
Sub ファイルコピー()

    '探索するフォルダを指定します。
    Dim Path, FileName, FilePath
    
    'フォルダパスを指定します。
    Path = ThisWorkbook.Path & "\A\"
    
    'ファイル名を取得
    FileName = Dir(Path & "*.xls")
    
    'ファイルのフルパス指定
    FilePath = Path & FileName
    
    'コピー元となるブックを開く
    Workbooks.Open FilePath
    
　’コピー
　Workbooks(FileName).Worksheets("作業指示書").Range("A1:AB51").copy_
　Workbooks("案件フォルダ製作システム.xlsm").Worksheets("読み取り").Range 　("A1:AB51")

   'コピー元のブックを削除する
  　Workbooks(FileName).Close 'コピー元のファイルを閉じる
　　Kill Workbooks(FileName) 'コピー元のファイルを削除する
        
End Sub

試したこと

＊、”の位置等を確認
ファイル名やシート名の確認

最後まで読んでいただきありがとうございます。
どの箇所が間違っているのかご指摘よろしくお願いいたします。

Comments

[okakemetal]

ファイルを閉じずに削除できるかわかりませんが・・・・
kill ファイル名
でできないですか？

[ryo]

返信ありがとうございます。
kill ファイル名　
こちらのコードで消せるのですね！
ありがとうございます。
試します！

Answer 1

Killの書き方が間違っていますね。それとDirに引きずられたのでしょうか、Workbooks("*.xls")も間違いです。

参考：OfficeTANAKA　ゴミ箱に削除する

Workbooks(FileName).Close 'コピー元のファイルを閉じる
Kill Workbooks(FileName) 'コピー元のファイルを削除する

Comments

[ryo]

返信ありがとうございます！

すっかりDirに引きずられておりました…
ファイルの削除のコードもありがとうございます

ただ、コピーのほうがうまくいかずコピー元のファイルは開いて上記のエラーが出てしまいます。
コピーするコードのほうはおかしな点などありますか？
ありましたらご教授ください！

[Usirow]

以下のように、.Copyとアンダーバーの間にスペースを入れたらどうなりますか？
.Copy_　→　.Copy _