- 締切済み
同一フォルダの別ブックへのデータ貼り付け(VBA)
Excel2007・VBAにより、マクロ実行ブック(「親」)の≪Sheet1≫シートにおけるP10:P54に入力されている数値を、「親」と同一フォルダにある複数の別ブック(「子」)の≪Sheet1≫シートのP10:P54に貼り付けたいです。 なお、同一フォルダには「子」とは別に本処理対象としない≪Sheet1≫シートが存在しない他のブックも存在しています。 考えたり幾度か検索したりしたのですが、希望に合った内容が出てきませんでした。 宜しくお願い致します。
- okmk0831
- お礼率0% (0/1)
- Visual Basic
- 回答数1
- ありがとう数0
- みんなの回答 (1)
- 専門家の回答
みんなの回答
- SI299792
- ベストアンサー率48% (715/1480)
' Option Explicit ' Sub Macro1() ' Dim Long1 As Long Dim FileName As String ' ファイル一覧取得 ChDrive ThisWorkbook.Path ChDir ThisWorkbook.Path FileName = Dir("*.xls*") ' 本処理 Do While FileName > "" ' このワークブックと同じ名前なら処理しない If ThisWorkbook.Name <> FileName Then Workbooks.Open FileName On Error Resume Next Sheets("Sheet1").Select Long1 = Err On Error GoTo 0 ' Sheet1がある場合のみコピーする If Long1 = 0 Then [P10:P54] = ThisWorkbook.ActiveSheet.[P10:P54].Value ActiveWorkbook.Save End If ActiveWindow.Close End If DoEvents FileName = Dir Loop End Sub
関連するQ&A
- フォルダ内の特定ブックだけを1つのブックにまとめる
はじめましてマクロ超初心者です。 会社のシステム(ツール?)で同じフォルダに1案件につき2つのブックが作成されます。 毎回約30案件、すなわち同じフォルダに60ブックあります。 (1)同じフルダ内に60ブック (2)その内、同じ案件が2つ。ブック名「1_****」と「2_****」 ****は毎回かわる (3)ブックには2つのシート。シート名「1」と「2」 (4)ブック「1_****」のシート「1」が開いた状態、ブック「2_****」のシート「2」が開いた状態になってる (5)必要なのはブック「1_****」のシート「1」とブック「2_****」のシート「2」 この「1_****」のシート「1」と「2_****」シート「2」を「1_****」にまとめる作業を毎回手作業でやっています。これをなんとかマクロで出来ないでしょうか?同じフォルダにある複数ブックをまとめるマクロは見つけました、複数=全てのブックに実行されてしまいます。フォルダ内の特定のブックをまとめるマクロがみつからず。。。どなたかご教授して頂けませんか?
- ベストアンサー
- オフィス系ソフト
- 複数のブックのデータを一つのブックにまとめたい
http://t_shun.at.infoseek.co.jp/My_Page/Excel-VBA/vba_page1.htm ↑の 7. 指定したフォルダ内にあるExcelファイルを検索して開く の部分のマクロを利用して、集計.xlsというブックで、複数のブックを開くようにしましたが、そのブックを開いた時にそのブックのSheet2の中のデータのみコピーして、集計.xlsに貼り付けたいのですが、どのようにすればよいのか困っています。 指定したフォルダの中には、回答01.xls 回答02.xls ・・・と16個のブックがあります。順番に開いてコピーをするときに、どのようにブック名とシート名を指定すればよいのかわからず困っています。 何か参考になるものがあれば教えてください。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- ブックを開いて閉じるVBA
初めまして、ブックを開いて閉じるループのVBAについて質問させてください! 別添の画像のようなブックAの中に、「りんご」のように名前のついたシートが複数あります。(この数は変動します。来月は「ぶどう」が入るかもしれないし、「りんご」がなくなるかもしれません。) そして「新しいフォルダ」という名前のフォルダに、別添の画像のようにいくつかブックAのシートの名前を含むファイルが入っています。別添画像のように、シートの名前は必ず含むものの、ファイル名はバラバラで、「すもも」のようにシートにはないものもあります。そして、「みかん」のようにシートにあるのにファイルがない場合もあります。 このうち、ブックAに存在するシートの名前を含むファイルのみ開いて閉じるというループのVBAを入力したいのですが、どうすればよいのでしょうか…?!ちなみに、「すもも」のようにブックAに存在しないシートの名前のファイルは開かないでおきたいです。 「みかん」のようにシートはあるがファイルがない場合は、エラーを出さずそのまま次の処理をすすめたいです。 ちなみに、「新しいフォルダ」の存在する場所は 「C:\Users\PC〇〇〇\Desktop\新しいフォルダ\」です。 VBA初心者なので、なるべく簡素なものにしたいと思っています。 ご助力いただけると大変嬉しいです…!よろしくお願いいたしますm(_ _)m
- 締切済み
- Excel(エクセル)
- VBAで別のExcelブックのボタンのマクロ登録
Excelブック1とExcelブック2があります。 Excelブック1はVBAで 1)Excelブック2を開いて 2)Excelブック1のワークシート(Sheet1)と モジュールシート(Module1)を Excelブック2にコピーします。 3)ワークシート(Sheet1)にはコントロール(ボタン)が貼り付けてあって このボタンをクリックするとモジュールシート(Module1)の中の Excute_Button()というプロシージャ(マクロ)を呼び出すため Excelブック1のVBAで wb.Worksheets("Sheet1").Shapes.Range(Array("Button 1")).Select Selection.OnAction = "Excute_Button" と記述してボタンのマクロの登録をします。 (wbはExcelブック2を指しています) 4)Excelブック2を保存して閉じる。 という処理をしています。 この後、Excelブック1を閉じて、 Excelブック2を開いてワークシート(Sheet1)のボタンをクリックすると Excelブック1が開いてしまいます。 Excelブック2のボタンのマクロの登録のマクロ名を見てみると Excelブック1のファイル名!Excute_Button となっています。 Excelブック1のVBAで、ここを単にExcute_Buttonだけにするには どのようにすればよいでしょうか。
- ベストアンサー
- Excel(エクセル)
- 複数ブックの特定のセルを合計したいです
中を見ていただき、ありがとうございます。 似たような質問・ご回答があるのは重々承知しておりますが できるだけシンプルなコードを教えていただきたく、質問させていただきました。 さて、いま1つのフォルダ内に,複数のブック(ファイル)が入っています。 すべてのブックはExcel2007で作成しており、目的の作業もExcel2007で行いたいです。 なお、それぞれのブックの名前に規則性はありません。 ブックの中身は統一されており、1ブック1シート、シート名は Sheet1 です。 このシートのB4からP4(横一列15個のセル)には、画像上段のように数値が入っています。 ここでやりたいのは、すべてのブックに入っているそれらの数値を平均して、 別に用意しておいた集計用のブックの同一セル(B4からP4)に入れるという作業です。 ブックを結合してから串刺し演算をしても良いのですが、できればマクロ一発で しかもできるだけシンプルなコードで以上を実現できれば嬉しいです。 過不足等ございましたら補足させて頂きますので、どうかお知恵をお貸しください。
- ベストアンサー
- その他MS Office製品
- 別bookのシート名一覧を作成するVBA(都度)
初めまして。エクセルVBA初心者です。 別bookのシート名を取得するマクロをつくりたいのですがご教示頂けないでしょうか? その際、マクロを実行すると最初にどのbookを開くか?ファイル場所を聞いてくるマクロを設計したいのです。 その後、今開いているアクティブbookのA列の1行目に別bookのシート名一覧が入力されるというものです。 ファイル場所を聞いてくるマクロは調べてもでてこないため、質問しました。 完了したら別bookは閉じてある状態であることが理想です。 そして、その隣のB列はまたさらに他の別bookのシート名一覧を比較用に入力予定ですので、B列用の別マクロを続きで作成したいと思っています。 ご教示のほど宜しくお願いします。
- ベストアンサー
- Excel(エクセル)
- EXCEL VBA 別ブックから貼り付け
お世話になります。 A、Bという2つのブックがあります。 A.xls データファイル B.xls 処理実行ファイル Bブックを開いてSheet1に置いてあるボタンを押すとファイル洗濯ダイヤログが出てきて、そこで指定したBブックをsrtPathに格納(シートは1つだけ)のBブックのA1から全データをAブックのSheet1に貼り付けたいのです。 下記VBAを書いてみましたがエラーになってうまく動きません。 Workbooks(strPath).Range("A1").Copy ActiveWorkbooks.Worksheets("Sheet1").Range("A1").PasteSpecial どなたが解決方法をご教授いただけませんでしょうか。 よろしくお願い致します。
- ベストアンサー
- Excel(エクセル)
- 同じフォルダー内の別ブックで計算結果を入力
Aブックsheet1をActiveしており同じフォルダー内にあるBブックのsheet1の検索値"A2"のVLooKUPで出した計算結果13の値のみをAブックsheet1 セル"A2"に入力したいのですが。Excel関数は解るのですがVBA関数となると難しくどなたか解るかた宜しくお願いします。因みにBブックは閉じています。
- ベストアンサー
- Visual Basic
- 複数のExcelブックから特定シートのセル範囲抽出
同一フォルダ内にある複数のExcelブックから特定シートの特定セル範囲を抽出して一覧表にまとめるExcel マクロ(VBA)を教えてください。 このサイトで殆どよく似た回答を読んだのですがうまくいきません。VBA初心者です。 よろしくお願いします。 【前提】 ・実行する端末のOSはWindows 10 ExcelはOffice365 ProPlus ・対象フォルダはネットワーク接続フォルダ この中に、複数のExcelブック(xlsx、xlsm)があります。 ・抽出したい対象は、各ブック内の「台帳」シートの「A3:Cの最終行」で 複数のブックの中には「台帳」シートが含まれていないブックも混在しています。 【抽出一覧作成イメージ】 ・「集約.xlsm」ブックの「集計」シートの2行目から抽出した結果を一覧表示する。 ・「集約.xlsm」ブックにマクロは登録する ・表示はA列に抽出元ブック名(=ファイル名)、B列からD列に抽出元「A3:Cの最終行」セルの値。 ・「A3:Cの最終行」セルの値を「集約.xlsm」ブックの「集計」に貼り付ける際には「値で貼り付ける」が望ましい。
- ベストアンサー
- Windows 10
- Excel VBA 複数ブックのシート結合方法
複数ブックの特定のシート(都度指定)のみを結合するマクロを組みたいです。 例えば、「ファイルマージ前」というフォルダがあって、その中には数値のみ違う同フォーマットのアンケート集計結果が保存されています。 このフォルダ内には50ほどのブックが保存されていて、そのブック内の「N表」というシート(50あるブック内全てに存在するシート)を新規ブック(マクロを組み込むブック)の1シートに上から順に値コピーしていきたいです。 今後、別の機会でファイルマージが必要になった際にも使用出来る様に、シート名を都度指定(セルにシート名を入力して、そのシート名を参照する等)出来るようにしたいのですが、自分の知識とネット等で調べた情報のみではうまく作成出来ませんでした。 詳しい方のお知恵をお借りしたいです。 宜しくお願い致します。
- 締切済み
- Visual Basic