
タイトルにあるとおりダイアログボックスでcsvファイルを選択して、そのファイル内のシートをコピーして持ってくるマクロを作ってみたのですが、思っていた動きと違っています。
csvファイルは開くのですが、そのシートをコピーしておらず、どこから持ってきたのかわからないシートが挿入されてきます。
どこが間違っているかお教えいただけると幸いです。
Sub
Dim wb As Workbook
Set wb = ActiveWorkbook
Dim OpenFileName As String
OpenFileName = Application.GetOpenFileName(“Microsoft Excelブック,*.csv”)
Workbooks.Open OpenFileName
ThisWorkbook.Sheets(1).Copy After:wb.Sheets(1)
End Sub
よろしくお願いいたします。
A 回答 (3件)
- 最新から表示
- 回答順に表示
No.3
- 回答日時:
ご存知のとおり、ActiveWorkbookは今開いていてアクティブになっているWorkbookを指します。
3行目に、Set wb = ActiveWorkbook とありますが、この時点でアクティブになっているのは自分(このブック)だけなので、wb の中身は自分(このブック)です。Workbooks.Open OpenFileName の後にこのコードを移動してください。
>ThisWorkbook.Sheets(1).Copy After:wb.Sheets(1)
シートをコピーするときは、左側にコピー元、右側にコピー先を指定します。また、シートの挿入位置は After: ではなく After:= で指定します。
まとめると、こうなります。
wb.Sheets(1).Copy After:=ThisWorkbook.Sheets(1)
下は修正後のコードです
---------------------------
Sub test()
Dim wb As Workbook
Dim OpenFileName As String
OpenFileName = Application.GetOpenFilename("Microsoft Excelブック,*.csv")
Workbooks.Open OpenFileName
Set wb = ActiveWorkbook
wb.Sheets(1).Copy After:=ThisWorkbook.Sheets(1)
End Sub
No.2
- 回答日時:
こんにちは
>どこから持ってきたのかわからないシートが挿入されてきます。
実行時の状況がイマイチわかりませんが、コードに記載されている通りに処理されているものと思います。
>ThisWorkbook.Sheets(1).Copy After:wb.Sheets(1)
なので、ThisWorkbook(=マクロの記述されているブック)の最初のシートが、wb(=実行時のアクティブブック)の2番目のシートとしてコピー追加されていませんか?
もしかすると、ThisWorkbookとwbは同じブックになっているかもしれませんね。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 複数のcsvファイルをExcelに一括変換したい 2 2023/03/03 12:44
- Visual Basic(VBA) VBAでファイルを開くプログラムがエラーです 2 2023/02/21 16:56
- Visual Basic(VBA) 別ブックからシートのコピー 3 2022/04/01 20:07
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
- Visual Basic(VBA) マクロVBA 1シートをまとめる 閉じ方 初心者 SOS! 1 2022/06/17 14:54
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/05/24 08:33
- その他(Microsoft Office) マクロVBAについて 1 2022/09/06 18:12
- Visual Basic(VBA) 【前回の続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/16 16:44
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
- Visual Basic(VBA) シートをコピーする下記記述でダイアログを用いた記述がわかりません?( A = Dir(ThisWor 4 2022/08/22 12:26
このQ&Aを見た人はこんなQ&Aも見ています
-
見学に行くとしたら【天国】と【地獄】どっち?
みなさんは、一度だけ見学に行けるとしたら【天国】と【地獄】どちらに行きたいですか? 理由も聞きたいです。
-
歳とったな〜〜と思ったことは?
歳とったな〜〜〜、老いたな〜〜と思った具体的な瞬間はありますか?
-
もし10億円当たったら何に使いますか?
みなさんの10億円プランが知りたいです!
-
洋服何着持ってますか?
洋服を減らそうと思っているのですが、何着くらいが相場なのかわかりません。
-
集中するためにやっていること
家で仕事をしているのですが、布団をはじめ誘惑だらけでなかなか集中できません。
-
【Excel VBA】データ貼り付け先のシート名選択
Excel(エクセル)
-
WorkBooksをオープンさせずにシートにコピーしたい【EXCEL VBA】
Excel(エクセル)
-
VBA 別ブックからコピペしたいのですが、軽くしたいです
Visual Basic(VBA)
-
-
4
VBA EXCELファイル選択⇒指定セルコピー
Excel(エクセル)
-
5
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
6
エクセルVBAでセルに入力したパスでブックを開く
Excel(エクセル)
-
7
特定の文字を含むシートだけマクロ処理をしたい
Visual Basic(VBA)
-
8
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
9
VBAでファイルを開くときにファイル名でワイルドカードを使用したいです
その他(プログラミング・Web制作)
-
10
【VBA】特定の値が入った行をコピーして別シートに貼り付ける方法をおしえていただきたいです。
Excel(エクセル)
-
11
エクセルVBAでファイル・シート名を指定して、現在のブックのシートにコピーしたい
Visual Basic(VBA)
-
12
エクセルVBAで5行目からオートフィルタモードに設定したいたい
Excel(エクセル)
-
13
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
14
B列の最終行までA列をオートフィル
Visual Basic(VBA)
-
15
excelのマクロで該当処理できなければ飛ばして進むにはどうすればよいのでしょうか
Visual Basic(VBA)
-
16
マクロ 新しいシートにデータをコピペしてシートの名前を変更したい
Excel(エクセル)
-
17
エクセル ボタンに設定したマクロごとボタンをコピー
Excel(エクセル)
-
18
Excel VBAで同じフォルダ内のファイルを開くには?
Excel(エクセル)
-
19
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
20
名前をつけて保存した後、元のファイルに戻るには
その他(コンピューター・テクノロジー)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・「これはヤバかったな」という遅刻エピソード
- ・初めて自分の家と他人の家が違う、と意識した時
- ・いちばん失敗した人決定戦
- ・思い出すきっかけは 音楽?におい?景色?
- ・あなたなりのストレス発散方法を教えてください!
- ・もし10億円当たったら何に使いますか?
- ・何回やってもうまくいかないことは?
- ・今年はじめたいことは?
- ・あなたの人生で一番ピンチに陥った瞬間は?
- ・初めて見た映画を教えてください!
- ・今の日本に期待することはなんですか?
- ・集中するためにやっていること
- ・テレビやラジオに出たことがある人、いますか?
- ・【お題】斜め上を行くスキー場にありがちなこと
- ・人生でいちばんスベッた瞬間
- ・コーピングについて教えてください
- ・あなたの「プチ贅沢」はなんですか?
- ・コンビニでおにぎりを買うときのスタメンはどの具?
- ・おすすめの美術館・博物館、教えてください!
- ・【お題】大変な警告
- ・洋服何着持ってますか?
- ・みんなの【マイ・ベスト積読2024】を教えてください。
- ・「これいらなくない?」という慣習、教えてください
- ・今から楽しみな予定はありますか?
- ・AIツールの活用方法を教えて
- ・最強の防寒、あったか術を教えてください!
- ・歳とったな〜〜と思ったことは?
- ・モテ期を経験した方いらっしゃいますか?
- ・好きな人を振り向かせるためにしたこと
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・これまでで一番「情けなかったとき」はいつですか?
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・14歳の自分に衝撃の事実を告げてください
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルVBAが途中で止まります
-
VBA コードを実行すると画面が...
-
[Excel]ADODBでNull変換されて...
-
別ブックをダイアログボックス...
-
VBAで複数のブックを開かずに処...
-
EXCEL VBA シート貼り付け
-
VBA 別ブックからコピペしたい...
-
Excel にて、 リストボックスの...
-
Excelマクロ 該当する値の行番...
-
【ExcelVBA】zip圧縮されたCSV...
-
マクロで最終行を取得したい
-
ワイルドカード「*」を使うとう...
-
VBA シートをコピーする際に Co...
-
【マクロ】違うフォルダにある...
-
エクセルのマクロを使ってメー...
-
Dir関数で複数ブックへ行いたい...
-
VBAで別ブックのシートを指定し...
-
【Excel VBA】書き込み先ブック...
-
エクセルVBAでテキストボックス...
-
Excel-VBAでのファイルの開き方
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
別ブックをダイアログボックス...
-
VBA シートをコピーする際に Co...
-
VBA 別ブックからコピペしたい...
-
エクセルVBAが途中で止まります
-
VBAで別ブックのシートを指定し...
-
ワイルドカード「*」を使うとう...
-
Excelマクロ 該当する値の行番...
-
VBAで別のブックにシートをコピ...
-
【Excel VBA】書き込み先ブック...
-
[Excel]ADODBでNull変換されて...
-
【ExcelVBA】zip圧縮されたCSV...
-
VBA コードを実行すると画面が...
-
【ExcelVBA】インデックスが有...
-
VBS Bookを閉じるコード
-
ユーザーフォームの切り替えに...
-
vbaでvbaProjectのパスワード解...
-
【VBA】全シートの計算式を全て...
-
Excel にて、 リストボックスの...
-
フォルダ内の全てのファイルに...
-
【マクロ】違うフォルダにある...
おすすめ情報