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

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

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

[[20160516100126]]: #score: 14119; @digest: eaf87b869d20b51d531c7ab2452eb075; @id: 70679; @mdate: 2016-05-16T04:25:16Z; @size: 2231; @type: text/plain; #keywords: wksheet (16636), 合良 (4759), display (1824), book1 (1378), desktop (1312), っ張 (940), activex (781), 引っ (767), sample2 (723), アロ (699), ダイ (664), xlsx (622), d10 (592), 張っ (590), 、引 (567), ファ (544), て来 (542), 2016 (534), 月) (528), workbooks (516), クか (495), 一回 (459), 都合 (444), 無駄 (425), ァイ (421), 初心 (380), モジ (379), 代入 (376), イア (376), 心者 (372), ジュ (362), トモ (361); 『閉じたブックからデータを引っ張る』（初心者）
閉じたブックからデータを引っ張ってくることをしたくて、下記、サイトまで行き着きました。 https://www.moug.net/tech/exvba/0060037.html Sub Sample2() Dim i As Long, j As Long For i = 1 To 10 For j = 1 To 4 Cells(i, j) = _ ExecuteExcel4Macro("'C:¥[Book1.xls]Sheet1'!R" & i & "C" & j) Next j Next i End Sub このコードで確かにデータを引っ張って来れるのですが、一回づつ、どのファイルかをダイアログで聞いてきますので、完全自動化となりません。ファイルは指定していますので、ダイアログで聞いてこず、処理をしたいのですが、何か方法はありますか? DISPLAY ALERTSをfalseにしたら、引っ張ってきたデータは「#REF!」となりました。＜使用 Excel:Excel2010、使用 OS:Windows7 ＞ ---- いちいちファイル確認してくるということは、ファイル名のフルパスが間違っているのだと思います。それよりも、1セルずつ代入しているのが無駄に思うので、以下のマクロではいかがでしょうか? Sub test() With Workbooks.Open("c:¥book1.xlsx", False, True) Range("A1:D10").Value = .Sheets("Sheet1").Range("A1:D10").Value .Close False End With End Sub （???） 2016/05/16(月) 10:37 ---- ???様ありがとうございます。上記試してみましたが、 ("c:¥book1.xlsx", False, True)のように記載すると途中でエラーになってしまい、 ("c:¥Users¥abc¥Desktop¥book1.xlsx", False, True)のように書くとエラーにはなりませんが、データは空白であり、引っ張って来れていません。どのような理由でしょうか? ファイルはデスクトップに置いていますが・・・お手数ですが、ご教授をお願いします（初心者） 2016/05/16(月) 11:27 ---- 先のコードは、シートモジュールに貼り付ける事を前提としたものです。（ActiveXのボタンを押すと動く、とかならば、その方が都合良いもので）標準モジュールであれば、以下を使ってみてください。 Sub test() Dim wkSheet As Worksheet Set wkSheet = ActiveSheet With Workbooks.Open("c:¥Users¥abc¥Desktop¥book1.xlsx", False, True) wkSheet.Range("A1:D10").Value = .Sheets("Sheet1").Range("A1:D10").Value .Close False End With End Sub （???） 2016/05/16(月) 11:58 ---- ???様大変ありがとうございました。解決しました! （初心者） 2016/05/16(月) 13:25 ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201605/20160516100126.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ