エクセルの学校：全文検索：Hyper Estraier： ExecuteExcel4Macro　閉じた｜開いて

Results of 1 - 1 of about 71 for ExecuteExcel4Macro　閉じた｜開いて｜開かず (0.012 sec.)

executeexcel4macro (140), 閉じた (629), 開いて (4904), 開かず (263)

[[20070226204040]]: #score: 14119; @digest: a8aa3eb98f401791a11427ebc4c5f23f; @id: 29032; @mdate: 2007-02-27T14:59:21Z; @size: 3119; @type: text/plain; #keywords: ak17 (30124), のg6 (13671), らak (10819), ceexcelvba (7380), book2 (6225), きbo (5246), book1 (4595), 録→ (3027), 定ra (2915), activate (2368), windows (2263), g6 (1521), executeexcel4macro (1194), にbo (1191), ロ登 (1069), paste (1053), activesheet (1033), selection (953), settings (892), select (855), ペー (845), ース (812), cells (762), 記マ (693), documents (671), xls (576), ー→ (565), copy (563), スト (558), 何卒 (444), うシ (406), ピー (402); 『別ブックの参照とコピー、ペースト』（たか）
先日はありがとうございました。また、質問をさせていただければと思います。 Book1とBook2というブックがあり、Book1のG6からAK17までコピーしてBook2のG6からAK17までペーストをしたいと思います。 Book2でマクロ登録→Book1を開く→Book1のG6からAK17をコピー→Book2のG6からAK17へペーストと行ったのですが、その際 Sub Macro2() Range("G6:AK17").Select Selection.Copy Windows("Book2.xls").Activate ActiveSheet.Paste End Sub となってしまい、Book1が開かれていないとき Book2からBook1を開くことが出来ません。また、 Workbooks.Open "C:¥Documents and Settings¥PC-USER…（省略）"←Book1を指定 Range("G6:AK17").Copy としてこの後にペーストを加えますがBook1を開いたとき Book1のマクロが実行されてしまいます。このマクロの実行をしないでただ開いてその部分だけをコピーとしたいのですがどのように行えばよろしいでしょうか? ここで行いたいのはとりあえずBook2のG6からAK17に Book1のG6からAK17までペーストしたいだけですので、開く必要が無ければその旨ご指導いただければと思います。 ---- すいません。皆さんからの返答が無い為、もう一度お願いしたいと思います。下記マクロにてBook2の参照したいシートをアクティブにしているときBook1へペーストはできました。上記では、G6〜AK17のコピーだけでしたが途中11行目などにロックをかけたセルがありますので、下記のようになっています。ただ、下記のマクロにBook2の"a"というシートを開いていなくてもマクロと同時にBook2を開いて、"a"というシートの下記の部分をコピーしてペーストしたいのですがいかがなものでしょうか? 何卒、お願いします。（たか） Sub Macro1() Dim i As Long For i = 1 To 2 Windows("Book2.xls").Activate Range(Cells(i * 18 - 10, 7), Cells(i * 18 - 10, 37)).Select Selection.Copy Windows("Book1.xls").Activate Cells(i * 18 - 10, 7).Select ActiveSheet.Paste Windows("Book2.xls").Activate Range(Cells(i * 18 - 8, 7), Cells(i * 18 - 7, 37)).Select Selection.Copy Windows("Book1.xls").Activate Cells(i * 18 - 8, 7).Select ActiveSheet.Paste Windows("Book2.xls").Activate Range(Cells(i * 18 - 5, 7), Cells(i * 18 - 4, 37)).Select Selection.Copy Windows("Book1.xls").Activate Cells(i * 18 - 5, 7).Select ActiveSheet.Paste Windows("Book2.xls").Activate Range(Cells(i * 18 - 1, 7), Cells(i * 18 - 1, 37)).Select Selection.Copy Windows("Book1.xls").Activate Cells(i * 18 - 1, 7).Select ActiveSheet.Paste Next i End Sub ---- 値だけが必要なら。 Sub test() Dim c As Range For Each c In ActiveSheet.Range("G6:AK17") c.Value = Application.ExecuteExcel4Macro _ ("'C:¥temp¥[Book2.xls]a'!R" & c.Row & "C" & c.Column) Next c End Sub 【参考】 [[20070227095303]] 『各ファイルから合計数を抽出したい』（みの） http://ryusendo.no-ip.com/cgi-bin/fswiki/index.cgi?page=%A5%B1%A5%F3%CB%B7%A4%CEExcelVBA%C1%EA%C3%CC%BD%EA seiyaさんの書き込みで思い出した。 (みやほりん)(-_∂)b ---- みやほりんさんありがとうございます。明日にでも試してみますです。毎回ながらありがとうございます。 ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/200702/20070226204040.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ