- ベストアンサー
VBAのコード
VBA初心者です。 "元データ"シートのA1をコピーし、cドライブにある、"保存用"というフォルダの、"一覧"というBOOKの"保存先"というシートのA1に貼り付ける時のコードがわかりません。 貼り付け先のシートを指定する記述がどうしてもわからないので助けてください。 よろしくお願いします。
- shouji3193
- お礼率100% (1/1)
- オフィス系ソフト
- 回答数1
- ありがとう数2
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
ブックは開かないと貼り付けはできません。なので、「一覧」を開いて、貼り付け、保存して閉じるという流れになります。 「一覧」というブックの拡張子が、「xls」だとして。それ以外の場合は修正して下さい。 Sub macro() Worksheets("元データ").Range("A1").Copy With Workbooks.Open("C:\保存用\一覧.xls") .Worksheets("保存先").Range("A1").PasteSpecial .Close True End With End Sub
関連するQ&A
- VBA マクロ保護
VBA マクロ保護 VBAProject 保護はツールにて保護パスワード設定しています！ 私が作ったもので、コマンドボタンをクリックしたら指定された フォルダにコピー（例；Sheet１のみコピー）できるようにしています！ そこのコピーのフォルダを開き、ブックを開いてみると シート保護はされていますが コードの表示にパスワード設定がなく、そのまま見えてしまいます。 そこで質問なのですが コードの表示を見れなくさせるために VBA記述でコピーするときにVBAProjectにパスワード設定させたいです。 ちなみにVBAProject本体には、パスワード設定しています。 どのようにすれば良いか？記述を教えてください！
- ベストアンサー
- オフィス系ソフト
- エクセルでシートを新規Bookにコピーして保存
いつもお世話になっております。 毎回お世話になっております。 過去にも似たような質問をさせていただいてその時々の要求は解決しているのですが、悲しいかな各々のVBAが組み合わせられません。（というレベルです） やりたいことは、特定のBookのアクティブシートを別の新規BookのSheet1にコピーして数値で貼り付ける。➣ここまではできました。 問題はこの、新規Bookを指定のセル（D5とA1）の内容をファイル名にして指定のフォルダに保存する。が出来ません。 １．新規BookでVBAを動かしたいのですが、複数のPCで使う時にどこに記録するのかわかりません。 ２．コピーして数値で貼り付けから保存までのVBAは元のシートから直接（1回の操作）でも、新規Book1を表示させてからの操作でもどちらでも良いです。 ３．Book１を保存するファイル形式はVBAが含まれないxlsxが好ましいです。（メールで送信するので）
- ベストアンサー
- Excel（エクセル）
- エクセル（ＶＢＡ）のブック間でのコピーペーストについて
こんにちは。VBA入門レベルのものですが、質問させてください。 ブックＡとブックＢを開いた状態にし、 ・ブックＡ⇒ＶＢＡを組む＆データ貼付け先 ・ブックＢ⇒データコピー元 ブックＢの特定セル（例：Ｄ１０）からブックＡの特定セル（例：Ｅ１２）にコピー⇒貼付 する方法を探しています。 なお、ブックＢは、ブック名とシート名が都度変わるので、「ブックＡではない方の開いているエクセルファイルからデータをコピーし、ブックＡに貼付ける」の構文にしたいです。 また、コピペの他に数式（イコール）で飛ぶ方式でもかまいません。 この内容でのＶＢＡの記述方法が分かる方、どなたか教えて頂けますでしょうか。 すみませんがよろしくお願いいたします。 ※エクセル2003です。
- ベストアンサー
- オフィス系ソフト
- 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の貼り付け機能で質問させていただきます。 あるブックのシート全体の内容をコピーして、 別のブックに貼り付ける処理を作成していますが、 コピー元のシートにある画像だけが貼り付けされずに困っています。 ホームページで探してやってみましたが、どれもうまくいきませんでした。 ご存じの方がいましたら、助言をお願いします。 下の記述で画像以外は貼り付けできています。 Sub 貼り付け() Worksheets("コピー元シート").Select Cells.Select Selection.Copy Workbooks.Open Filename:="C:￥コピー先.xls" Workbooks("コピー先.xls").Activate Worksheets("コピー先シート").Select Cells.Select Selection.PasteSpecial Paste:=xlPasteAll, _ Operation:=xlNone, SkipBlanks:= False, _ Transpose:=False End Sub
- ベストアンサー
- その他MS Office製品
- VBA 指定した範囲のデータ抽出
Excel VBA初心者の質問です。 以下の作業を行うため、30個のファイルをVBAを活用して処理したいのですが、 詳しい方おられましたらコードの書き方をご教授お願いいたします。 ネットで参考になるコードをいくつか調べたのですがギブアップでした。 １．フォルダA内の一番上のファイルから順番に処理(ファイル名:1101,1102,1103・・・1130) ※ファイルのシート名はそれぞれ「"データ"番号」となっている。 ２．「"データ"1101」シートのデータ範囲(A1:AT1000)、(A7000::AT8000)の2つの範囲をコピー ３．新しいBookのSheet1に上詰めで貼り付け ４．次ファイルの「"データ"1102」シートに２の処理を行う ５．新しいBookのSheet2に上詰めで貼り付け 以上の処理を1130のファイルまで繰り返し行います。
- 締切済み
- Visual Basic
- VBA どのように記述すれば良いか教えてください。
はじめて、質問させていただきます。 まだExcel ＶＢＡの勉強を始めたばかりの者です。 下記のようなツールを作ることになったのですが、非常に困っています。どなたかわかる方がみえましたら、どうか教えて下さい。（Excel2003を利用） ＜すべてＡという同じフォルダ内＞ book1.xls book2.xls ・ ・ book*.xls →ファイル数は変動します。集計.xls以外のファイルはすべて同じシート名で構成されて います。すべてのファイルのシート名 ”結果”が対象です。 集計.xls →このファイルにマクロを作りたいです。 シート名が１、２、３・・と１１６まで用意されています。 __________________________________________________________________________________________________________________________________ Ａフォルダ内の複数ファイルの同じシート名（”結果”）というシートのみコピーをし、同じフォルダ内のファイル「集計.xls」のシートへ値貼り付けをしたいのですが、 一番初めにコピーしたシートを「集計.xls」の１という名のシートへ値貼り付け、２番目にコピーしたシートは「集計.xls」の２という名のシートへ値貼り付け。。３番目にコピーしたシートは「集計.xls」の３という名のシートへ値貼り付け。。というのを、シート数分繰り返す。。という記述を教えて頂きたいのです。 ループ？？ですが、【一番初めにコピーしたシートを「集計.xls」の１という名のシートへ値貼り付け】 次に【２番目にコピーしたシートは「集計.xls」の２という名のシートへ値貼り付け】というのを一連の流れにしてループ処理したいのです。 こんなこと出来るのでしょうか？？ 初心者とはいえ丸投げは駄目だと、１週間ほどネットやいろいろなテキストで自分で何とかできないかと頑張ってみたのですが、部分部分しか記述できず時間だけが過ぎていき。。すっかり行き詰ってきてしまいました。 どうかお力を貸してください。宜しくお願い致しますm（uu）m
- ベストアンサー
- SE・インフラ・Webエンジニア
- excel vba 作成について教えて下さい。
excel VBAを使ってあるブックのセル範囲を別のブック（日報.XLS)のシートへコピー貼り付けをしたいのですが、コピーする側のブックがランダムに取り込まれ（例 ８時間ピッチにて自動的にブックが作成される）そのブックを日にちごとに集計し、一か月ごとにまとめるということをやらなければなりません。 例）8時間ごとにフォルダが作成されます。 000001.XLS 000002.XLS 00000F.XLS ・・・・・・・・16進数にて 上記ブックのSheet1のA2:A11までの数値を別のブック（日報月報集計）のに貼り付ける。 別のブック(日報月報集計）は項目ごとに１０個のシートがあり ８時間ごとのファイルのセルA2は別ブックのSheet1の日付けに対応するセルへ貼り付け B2は Sheet2 上記操作を８時間ごと（可変可能）に自動的にコピー貼り付けをやりたいのですが ブック間のコピー貼り付け等わからないことが（初心者です。）多々あり、いろいろ調べてはいるのですが、ＳＴＯＰした状態です。 出来れば、初心者にも理解しやすい解説等あれば宜しくお願いします。
- 締切済み
- Visual Basic
- エクセルマクロ コピー元と貼り付け先を指定してコピー＆ペーストを実行するマクロ
単刀直入にやりたいことを述べます。 Cドライブと仮定します。３つのBOOKがあります。 それぞれ ----- BOOK1.xls「○○Sheet」・・・（実行するファイル） A 1 BOOK2.xls「△△Sheet」・・・（コピーするファイル名の指定です） 2 A2:E2・・・（コピーするセル範囲の指定） 3 BOOK3.xls「□□Sheet」・・・（貼り付け先のファイル名の指定です） 4 A5・・・（貼り付け先のセルの指定） ----- BOOK2.xls「△△Sheet」・・・（コピー元ファイル） ＡＢＣＤＥ 1 あいうえお 2 かきくけこ 3 ・・・・・ ----- BOOK3.xls「□□Sheet」・・・（貼り付け先のファイル） ＡＢＣＤＥ 1 ・・・・・ 2 かきくけこ・・・（貼り付け） 3 ・・・・・ ----- ＞やりたいこと BOOK1.xls「○○Sheet」のA1のセルの値とA2セルの値を参照し、 その該当BOOKのセル範囲（BOOK2.xls「△△Sheet」のA2:E2）をコピーして、 BOOK1.xls「○○Sheet」のA3のセルの値と、A4セルの値を参照し、 その該当BOOKのセル範囲（BOOK3.xls「□□Sheet」のA5）へペーストする。 別のブックの指定したセルの値を別のブックの指定したセルへ貼り付けるだけなんですが、 以前関数を使って似たような事をしようとしたのですが、うまくいかなかったので、マクロならできるのでしょうか。 よろしくお願いします。（ちなみにエクセル2000又は2003です）
- ベストアンサー
- オフィス系ソフト
- EXCEL 指定のフォルダ内にあるエクセルをコピー
どなたかVBAの記述（コード）を教えて下さい。 指定のフォルダ内にあるエクセル（コピー元）を開きコピー、データを順次、指定のエクセル（コピー先）のシートの上から順番に貼付していきたいのです。コピー貼付が終わったら、コピー元のファイルは別のコピー済のフォルダへ移したいです。 フォルダ名は、自分で指定できますが、コピー元のエクセルのファイル名とシート名は一定ではありません。（コピー元ファイルはシート1枚のみ）。セル範囲は、A～F列、行は毎回変動するので、一番下の行を判定する必要があります。 コピー先のファイルは、指定のシート（※）に上から順番に貼り付けをしたいです。 （※セルに入力して指定したいです。） 不足事項などがありましたら、ご指摘いただけると助かります。 よろしくお願いいたします。 なお、簡単な関数のVBAは理解して使えるのですが（IF～ End If、For ～Next 等）、 イベントのプロシージャーなどが今だ理解できず、自分では書くことができません。 そのため。多少コードが長くなってもいいので、イベント・プロシージャーをなるべく使わない書き方のほうが自分で修正することができ、助かります（イベントを使わないと難しい処理でしょうか・・・）。
- ベストアンサー
- オフィス系ソフト
お礼
できました！ 大変助かりました。 ありがとうございます。