• 締切済み

ブックを開くマクロ

データ管理というファイルの中にある データー(1)のファイルの中の データ表(1)というエクセルbookのあるマクロを実行すると 同じくデータ管理というファイルの中にある データー(2)のファイルの中の データ表(2)というbookを開き そのbookのsheet1のA1:B5をコピーして データ表(1)エクセルbookのsheet1のA1:B5に貼り付ける・・・ というVBAを組む事は出来ますでしょうか? 分かりにくくてすいません

みんなの回答

  • hallo-2007
  • ベストアンサー率41% (888/2115)
回答No.2

VBエディターでマクロの記述を確認してみると ActiveWindow.Close とかの行があると思いますが ActiveWindow.Close SaveChanges:=False と少し追加してみてください。

masa1717
質問者

お礼

出来ました 有難うございます VBEを簡単に編集できる能力が自分にないのでやはり勉強しないといけませんね 助かりました

  • hallo-2007
  • ベストアンサー率41% (888/2115)
回答No.1

マクロの記録で十分かと思いますが、 マクロの記録の開始  ファイル 開く で  データー(2)のフォルダの中の  データ表(2)というbook  sheet1のA1:B5をコピーして  データ表(1)エクセルbookのsheet1のA1:B5に貼り付ける・  データ表(2)というbook を閉じる マクロの記録の終了 です。

masa1717
質問者

補足

マクロを実行した時 最後のデータ表(2)のbookを閉じる時に 変更を保存しますか?が出るんですが そのメッセージを出さずにbookを閉じる事は出来ますでしょうか?

関連するQ&A

  • 「開いているすべてのブック」に保存したマクロの削除

    パソコンド素人です。マクロが含まれたほかのエクセルブックを多数開いたまま、エクセルマクロ初心者講座(http://kabu-macro.com/kouza/macro/macro_jikkou.html)を見ながら、A1のセルのデータを消去するマクロを作って実行したところ、実行時の保存先が「開いてるすべてのブック」になっていたからなのか、他のエクセルのブックでも新しくシートを作っても、Ctrl+Z (ショートカットを作っていました)でA1のデータが削除されるようになってしまいました。(実行前には標準モジュールのModule2にこのVBAが入ってたのを確認したのですが、実行後にはModule2がなくなっていました) このままでも問題はないのですが、わからないのは悔しいので、どなたかこのマクロの削除方法を教えてください!  個人用マクロブックとやらにあるらしいことはわかったのですが、そのファイルが検索しても出てきません。OSはVistaでエクセル2000と2007を使用してます。ちなみにエクセル2000でこのマクロを作ったのに2007でもCtrl+ZでA1のデータが削除されます。 よろしくお願いします。

  • Excelマクロで同じブックにCSVを読み込むには

    Excelの指定したシートにCSVファイルを読み込ませたいのですが 以下のVBAマクロを実行すると新しいブックが起動して 新しいブックの方にCSVファイルが読み込まれてしまうのですが これをVBAマクロを実行しているブックの指定のシート(例えばSheet3など)に 読み込ませたいのですがどのように記述すればよいのでしょうか。 よろしくお願いします(Excel2010) Sub Macro1()  ChDir "C:\test"  Workbooks.Open Filename:= "test1.csv" End Sub

  • マクロを実行すると2つのBookで実行されてしまう

    AというBookとBというBookを同時に開いています。 どちらにもそれぞれ違った複数のマクロを登録しています。 マクロの中にはAの内容をBにコピーするというマクロもありますので、この2つは同時に開いておく必要があります。 困っているのはAのマクロを実行するとBでも同じように実行されてしまうのです。 マクロによってはその現象が起きないマクロもあります。 逆にBのマクロを実行してもAでは何も起きません。 Aのマクロを作成登録してる時にBも開いていたからでしょうか? この現象がいつから起きたのか分かりません。 例えばAの表の内容を一括で消すマクロを実行すると、 Bの方でも消えてしまうのです。 Aのマクロの内容を見てもBでも動作させるような内容はありません。 何度おこなっても同じです。 どうすれば元に戻せますか? 数時間かけて作成したマクロが無駄になってしまい困っています。 宜しくお願いします。

  • エクセル マクロ 2つのブックの情報からデータを抜き出したい

    エクセル マクロ 2つのブックの情報からデータを抜き出したい 初めて質問させていただきます。明日までに仕上げなければいけない仕事で大変困っています。 作業内容としてはAのブックには電話番号、Bのブックには電話番号と住所などその他の情報があります。 Aのブックにある電話番号のみからBのブックからデータを探し、 Bのブック横列にある電話番号を含むその他のデータをコピーして別ブックに抽出したいと 考えています。 Aのブックには電話番号が1600件、Bのブックには1600件の電話番号を含んだデータで 20万件ほどのデータがあります。シートは7つにわかれています。 利用しているオフィスのバージョンは2003になります。 VBAなどの知識がほとんど無く、正直困り果てています。 よろしくお願いいたします。

  • 複数のブックを新しいブックのSheet1にまとめたい

    教えてください。 「A」「B」「C」「D」「E」「F」「G」 と言った名前のエクセルファイルがあります。 実際は約50個ありますが・・・。 それぞれ、Sheet1にのみ同じフォーマットですが、行数というか、件数が異なります。 新しいエクセルブックのSheet1にA」のデータの下に「B」のデータを貼り付けるという風に、「A」~「G」をまとめて一つのシートにまとめたいです。コピペではなくマクロでできるということを知りました。 毎月作業することになるので、マクロを組んでおきたいと思っています。 しかし、マクロは単純作業を記録して実行するというような基本的なことしかわかりません。 専門的用語ではなく、 (1)ツールをクリック (2)すべてのブックを開いておく (3)Visual Basicをクリック などというように、手順を教えていただけないでしょうか? よろしくお願いします。

  • Book間でのコピー

    エクセルで以下の処理を実行するマクロを知りたいのですが。 Book1とBook2が開いています。 Book2のSheet1のA1~A10を、Book2のSheet1のA1~A10にコピーします。 この処理を任意の2つのBook間で実行するためにはどんなマクロになるでしょうか。(Book3とBook5で行ったり、Book25とBook46で行ったり等) アクティブになってないBookからアクティブになっているBookにコピーするようにしたいのですが。 宜しくお願いします。

  • 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だけにするには どのようにすればよいでしょうか。

  • エクセル ブック間コピー マクロ

    ブックA(ブック名は固定)のシートA(シート名は毎回違います)を ブックB(ブック名は固定)の一番左へコピーしたいのですがうまくいきません。 動作 :シートAでマクロを実行しブックBへシートのコピー(挿入)します。 まず第一段階のブックAのシートAをブックBへのコピーがうまくいきません。 シートAが固定シート名ならコードは Sheets("A").Select Sheets("A").Copy Before:=Workbooks("B.xls").Sheets(1) ですが・・・・ Sheets("A").SelectをWith ActiveSheet.Selectにすれば良いのですか? 申し訳ないのですが、後教授お願いします。

  • 複数のブックのデータを一つのブックにまとめたい

    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は、デスクトップ上のエクセルファイルの"Sheet1"のA1:B4のA列は数値、B列は文字列。 Aをデスクトップ上の別のフォルダーにあるエクセルファイルの"Sheet1"のA1:B4にデータをコピーをするのですが・・・。まったくわかりません。または、説明が下手でやりたい事が伝わらないかもしれませんが、よろしくお願いいたします。

専門家に質問してみよう