- ベストアンサー
ＶＢＡで他のexcelのシートをコピーしてくる方法
a.xlsにb.xlsのsheet1をＶＢＡを使ってコピーしたいと考えています。 （このＶＢＡをボタンに振ろうかと。。。） 参考になるＶＢＡはありませんか？
- オフィス系ソフト
- 回答数2
- ありがとう数2
- みんなの回答 （2）
- 専門家の回答
質問者が選んだベストアンサー
その他の回答 (1)
- taka_tetsu
- ベストアンサー率65% (1020/1553)
>参考になるＶＢＡはありませんか？ マクロの記録で記録した結果。 これをいじればいいでしょう。
お礼
そうですね。 こんな方法もありますね。
関連するQ&A
- EXCEL VBA コピー貼り付け時のチェック
お世話になります。田中と申します。 VBAの練習で下記の操作を実現したいと思っておりますが、どうしたらよいのか分りません。 A.xlsというブックがあります。 A.xlsの[データ]というシートにボタンをおいてそのボタンをクリックしたら以下のような動作をしたいのです。 このA.xlsの[データ]シートのA1～L20までをコピーして、C:\Users\田中\DesktopにあるB.xlsというブックの[シート1]という名称の単にシートに貼り付けしたいのです。 ただし貼り付け時に他のユーザーがB.xlsを開いている場合は、貼り付け処理を中止したいのですが、そのようなユーザーに開かれているかどうかVBAでチェックする方法はありますでしょうか？ どなたかお知恵をお借りできますでしょうか。 よろしくお願い致します。 環境 Windows7 Excel2013
- ベストアンサー
- Excel（エクセル）
- VBAでの他のシートにコピー
今sheet1へ、sheet2とsheet3のデータをコピーしようとしています。 sheet1は見出しが2行目にあり、3行目からsheet2をコピーしようとしています。 そのつぎに、sheet3はsheet1にsheet2のコピーした次の行からコピーします。 sheet2 Ａ Ｂ Ｃ 3 鈴木 りんご 5 4 山田 バナナ 1 sheet3 Ａ Ｂ Ｃ 3 大羽 メロン 2 4 鷲尾 スイカ 1 ↓２行目まで見出しがあるsheet1に sheet1 Ａ Ｂ Ｃ 3 鈴木 りんご 5 4 山田 バナナ 1 5 大羽 メロン 2 6 鷲尾 スイカ 1 このとき、シート２とシート３は数は決まっていません。 そして、数が０のときもあるので「sheet2とsheet3にデータがないときはコピーしない」 をというふうにしたいのですが、どのようにすればよろしいですか？ VBAで行いたいです。よろしくお願いします。
- 締切済み
- オフィス系ソフト
- VBA(Excel):他のブックからシートごと取込みたい
他のブックからシートを取込む（シート名を変更して）VBAがわからないのですが、どなたか詳しい方がいましたら、ご教授下さいませ。 以下を例として、ご回答いただけると幸いです。 よろしくお願いします。 ---------------------------------- 次の３つのブックが存在するとします。 a.xls b.xls c.xls a.xlsにはシートが１つだけあり、シート名は"sheet1"です。 b.xlsにはシートが１つだけあり、シート名は"sheet1"です。 c.xlsにはシートが３つあり、シート名は"sheet1"、"sheet2"、"sheet3"です。 a.xlsにVBAマクロを作り、a.xls上で実行させて、 a.xlsの"sheet1"は残したまま、 b.xlsの"sheet1"のシート名を"sheet1-b"に変更して、 a.xlsのシートとして取込み、 同様に今度は、 a.xlsの"sheet1"、"sheet1-b"は残したまま、 c.xlsの"sheet1"のシート名を"sheet1-c"に変更し、 c.xlsの"sheet2"のシート名を"sheet2-c"に変更し、 c.xlsの"sheet3"のシート名を"sheet3-c"に変更し、 a.xlsのシートとして取込み、 最終的に、a.xlsには、 "sheet1"、"sheet1-b"、"sheet1-c"、"sheet2-c"、"sheet3-c" の、５つのシートが存在するようにしたいのです。 （各シート上のデータは、a.xlsの各シートとしてすべて移行されている） ----------------------------------
- ベストアンサー
- その他（プログラミング・開発）
- EXCEL VBA 他ブックのシートのコピー方法
今開いているブックに、開いていない他のブックのシートをコピーする記述方法を教えて頂けませんでしょうか。（Office365を利用） 開いているブック ：Ａ.xlsx シート：a 開いていないブック：Ｂ.xlsx シート：b ｂをａの後ろにコピーする方法を教えてください。ａにボタンを置いて、それをクリックしたらという方法でも構いません。 よろしくお願いします。
- ベストアンサー
- Excel（エクセル）
- Excelマクロ（VBA）のブックとシートのコピーについて
初めまして、宜しければVBAのブックやシートのコピー（操作）についてご教授お願いいたします。 Windows XP x64 OFFICE2003 を使用しております。 D:\Book1.elxのsheet1のシートをD:\test\Book2.elxのsheet1のシートに コピーする方法が恥ずかしながら理解できておりません。 以下が行いたい事です。 Sub ボタン1_Click() 'text1ブックを開く 'Workbooks.Open "D:\micro\test1.xls" 'ブック間のシートをコピー Workbooks("test2.xls").Worksheets("シート2").Copy _ After:=Workbooks("test1.xls").Worksheets("Sheet2") End Sub VBのファイル操作とは違い、どのように行えば良いのか検索しても同じような部分サンプルのようなものしか無く、理解できておりません。 参考でも結構ですのでご教授いただけませんでしょうか？ よろしくお願いいたします。
- ベストアンサー
- Visual Basic
- Ｅｘｃｅｌ VBA シートのコピー時に、シート上のコンボボックスもコピーしたい。
こんにちは。 Excel VBAについて質問させていただきます。 やりたいことは、 シートＡにボタンとコンボボックスを配置し、 コンボボックスには氏名の一覧を設定しています。 そこで、ボタンを押すとシートＡをボタンとコンボボックスごと シートＢという名前でコピーをしたいと思っています。 ActiveSheet.Copy Before:=Worksheets(1) でシート・ボタン・コンボボックスのコピーはうまく出来たのですが、 コンボボックスに設定していた氏名の一覧はコピーされていませんでした。 コピー先のシートのコンボボックスにもう一度氏名の一覧を 設定するしかないのでしょうか？ それともシートのコピー時に何かいい方法があるのでしょうか。 宜しければアドバイスをお願い致します。 OSはWindows2000Pro Excelは2000です
- ベストアンサー
- オフィス系ソフト
- エクセル 別ファイルから シートを リンクを張らずに コピーしたい
エクセル２００３ １～４ はファイルの状態の説明です。 やりかたを質問したい部分は ５です。 １、ファイル（ブック）Ａ．xls → 計算式が大量に入った数シートからなるファイル があるとする。 ２、Ａ．xls を そのままコピーし コピーされたファイルは Ｂ．xls に リネーム。 ３、Ａ．xls は 計算式等は変更しないが、データを変更し通常業務で使用。 ４、Ａ．xls の新バージョンを作るために Ｂ．xls を使って計算式等を編集。 （複数あるシートのうち一部シート（シート名 「あいうえ」 とする）のみの変更に加え さらに新シート「さしすせ」を作成） ５、Ａ．xls のシート名 「あいうえ」をＢ．xlsで作った シート名 「あいうえ」と置き換え、 さらに新シート「さしすせ」もＢ．xlsからコピーして追加する。 普通にシート名 「あいうえ」や 新シート「さしすせ」を選択し コピーを行うと Ｂ．xls からリンクを張った状態でコピーされて しまう。たとえば シート「あいうえ」セルＡ１の中身を見ると =[B.xls]あいうえ!A1*2+1 といったように [B.xls]が付いて コピーされる。 これを回避して、単にそのまま丸ごと（Ａ．xlsの中だけで編集したかのように） シートをコピーするにはどうしたら よいのでしょうか？ 長くなってすいません。 よろしくおねがいいたします。
- 締切済み
- オフィス系ソフト
- Excel VBA別ブックのシートをコピーするには
Excel2010のVBAで別ブックのシートをコピーしてくる方法 Excelファイル(C:\test\BOOK2.xls)のシート名が TESTというシートを自分のExcelファイル(C:\doc\BOOK1.xls)に コピーするにはどのように記述すればよいのでしょうか。 ・コピー先:自分のExcelファイル(C:\doc\BOOK1.xls) VBAのコードがあるファイルです ・コピー元:C:\test\BOOK2.xlsのTESTシート なお、TESTシートを持つ同じ名前(BOOK2.xls)のファイルが 別フォルダにもあります Workbooks( )の引数にファイル名(BOOK2.xls)は指定できるのですが、 フルパス名(C:\test\BOOK2.xls)で指定できないので困っています。
- ベストアンサー
- Visual Basic
- VBAでシートのコピー
お世話になっております。 VBAの未熟者ですが、個人の資料作成のためのシステムをコツコツと作っております。 今までマクロでシートのコピーをやっていたのですが、コマンドボタンでできるように変更しようとしてうまくいきません。 ファイルＡの中にある幾つかのシートの内、シート「個人事業」を「請求書」ファイルの「Sheet2」にコピーしたいのです。その後名前を変更しています。 マクロのプログラムをそのままコピーしてみたのですが、[sheets("個人事業").paste]のところでエラーが出ます。 マクロとコマンドボタンではやはり設定を変更しないといけないのでしょうか？ご教授お願いします。 Private Sub CommandButton1_Click() Sheets("Sheet2").Select Windows("未請求リスト.XLS").Activate Sheets("個人事業").Select Selection.Copy Windows("請求書.xls").Activate Sheets("Sheet2").Select Sheets("個人事業").Paste Sheets("Sheet2").Name = "個人事業請求一覧" Sheets("請求書").Select End Sub 宜しくお願いします。
- ベストアンサー
- オフィス系ソフト
- VBAで他のブックのシートにボタン一つで書込みたい
現在申し込み票のExcelがあるのですが、マクロをボタンに登録してボタン一つ押すと申し込み票の名前と生年月日、住所が他のExcelのブック（例えば申込者名簿.xls）のシートに、名前→A1、生年月日→B1、住所→C1に入力されて保存されるようにしたいです。 更に次にもう一度ボタンを押した時には、名前→A2、生年月日→B2、住所→C2・・と言うようにどんどん書き足したいです。 書き足した後は元のExcelブックも申込者名簿.xlsも閉じるようにしたいです。 どのようにVBAを書けばよいのでしょうか？ まだVBA初心者のためいまひとつわかりません。 よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
お礼
とても参考になりました。 先程、無事にコピーすることができました。