質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
86.12%
VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

受付中

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

ryota.ueda
ryo

総合スコア1

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

1回答

0リアクション

0クリップ

238閲覧

投稿2022/09/28 07:46

編集2022/09/28 08:45

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

実現したいこと

1.コピーしたいエクセルファイルのシート指定
2.貼り付けたいエクセルファイルのシート指定
3.貼り付けた後はコピー元のファイルは削除される

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

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

エラーメッセージ 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

試したこと

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

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

以下のような質問にはリアクションをつけましょう

  • 質問内容が明確
  • 自分も答えを知りたい
  • 質問者以外のユーザにも役立つ

リアクションが多い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

気になる質問をクリップする

クリップした質問は、後からいつでもマイページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

下記のような質問は推奨されていません。

  • 間違っている
  • 質問になっていない投稿
  • スパムや攻撃的な表現を用いた投稿

適切な質問に修正を依頼しましょう。

okakemetal

2022/09/28 08:12

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

2022/09/28 08:42

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

まだ回答がついていません

会員登録して回答してみよう

アカウントをお持ちの方は

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
86.12%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問

同じタグがついた質問を見る

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。