エクセルの学校：全文検索：Hyper Estraier： VBA ��

Results of 1 - 1 of about 14696 for VBA �� (0.003 sec.)

[[20160812130848]]: #score: 3411; @digest: 277c1efde286cbcdb08869fd03491bba; @id: 71350; @mdate: 2016-08-12T07:05:34Z; @size: 6207; @type: text/plain; #keywords: 算フ (154057), 作フ (68508), fileaa (29072), fileba (29072), 作シ (19402), スfi (16322), ルa (15942), 義' (13353), panel (12695), ロa (11188), ファ (7745), タフ (7457), トra (7264), ァイ (5996), control (5029), イル (5019), 挙動 (4408), 操作 (3672), 計算 (3220), savechanges (2921), ト") (2773), マナ (2143), 別フ (1831), のvb (1807), 2016 (1604), 実行 (1451), 金) (1448), を操 (1362), workbooks (1292), 起こ (1284), 記述 (1054), 、計 (990); 『VBAで他ブックのVBAを操作したい』（まめ）
初めて質問いたします。 Excel VBAを使いデータ集計を行っているのですが、データ量が重いため、集計を10程度のファイルで分割して行い、計算結果を別ファイルにまとめている作業があります。（イメージ）計算ファイルA 計算ファイルB 計算ファイルC ⇒ まとめファイル : : 計算ファイルJ それぞれのファイルを手作業でVBA実行すると、VBA実行と集計待ちが連続し、作業時間が膨らんでしまうため、これらの作業（それぞれのファイルでVBA実行）をコントロールする別ファイル（操作ファイル）を作って、操作できないかと考えています。根本的な質問ですが、VBAでこうした設定をすることは可能でしょうか? 「Application.Run」を使えば、計算ファイルAにあるVBAを実行することは可能ですが、それはあくまで計算ファイルAにあるVBAを操作ファイルで実行させるに過ぎず、計算ファイルAに対して実行することはできません。（↑私の認識だと）操作ファイルで計算ファイルAのVBAを計算ファイルAに対して実行する方法があれば、ご教授いただけないでしょうか? また、そもそも不可能であれば、その旨お教え頂けると助かります。＜使用 Excel:Excel2007、使用 OS:Windows7 ＞ ---- 操作ファイル（マクロブック）から、データファイルA.B.C,…を操作してまとめファイルにデータを集約するという感じにするとよいと思います（マナ） 2016/08/12(金) 13:37 ---- マナさんアドバイスありがとうございます。計算ファイルAにあるVBAを操作ファイルに記述すればよいということでしょうか? （まめ） 2016/08/12(金) 13:40 ---- ＞計算ファイルAにあるVBAを操作ファイルに記述すればよいということでしょうか? そうです。現在のコードで操作対象のブックやシートをちゃんと指定すれば問題ないはずです。また計算ファイルも10個に分割する必要もないかもしれません。（マナ） 2016/08/12(金) 13:48 ---- マナさんありがとうございます。計算ファイルのVBAがかなり煩雑なため、できれば避けたい方法でしたが、他にないなら仕方ありませんね。それなら、ファイル全体の設計を見直したほうがいいかもしれませんが……。（まめ） 2016/08/12(金) 13:59 ---- そうですか、Application.Runでするとしても現在のコードで操作対象のブックやシートをちゃんと指定すれば問題ないはずです。その修正が煩雑かもしれませんが。（マナ） 2016/08/12(金) 14:10 ---- ＞操作ファイルで計算ファイルAのVBAを計算ファイルAに対して実行する方法そもそも出来ないと何故判断したのでしょう。出来なかったコードを提示することは可能ですか。（マナ） 2016/08/12(金) 14:37 ---- マナさんすいません、少し席を外してました。計算ファイルAのVBAは、別ファイルからデータを抽出し、計算ファイルA上で関数等を使い集計しています。（イメージ）データファイル ⇒ 計算ファイルA 操作ファイルで以下のようなVBAを設定（説明用にやや簡素化しました）し、実行しましたが、何も起こらずに終わったため、挙動しないものと判断しました。＜以下、操作ファイルのVBA＞ Sub 計算ファイルAを挙動() 'ファイル定義' Dim PathA As String Dim FileAa As String PathA = Worksheets("操作シート").Cells(2, 4).Value ←計算ファイルAのパス FileAa = Worksheets("操作シート").Cells(3, 4).Value ←計算ファイルAの名前 On Error Resume Next Application.DisplayAlerts = False '計算ファイルAの更新' Workbooks.Open Filename:=PathA & FileAa, ReadOnly:=False ←計算ファイルAを開く Windows(FileAa).Activate Application.Run "計算ファイルA!Module1.マクロa" ←計算ファイルAのマクロa実行 Workbooks(FileAa).Close SaveChanges:=False ←計算ファイルAを閉じる Application.DisplayAlerts = Ture Sheets("操作シート").Select ←操作ファイルのシート Range("A1").Select End Sub ＜以下、計算ファイルのVBA＞ Sub マクロa() 'ファイル定義' Dim PathB As String Dim FileBa As String PathB = Worksheets("Control Panel").Cells(5, 4).Value ←データファイルのパス FileBa = Worksheets("Control Panel").Cells(7, 4).Value ←データファイルの名前 'データ貼り付け' Workbooks.Open Filename:=PathB & FileBa, ReadOnly:=False ←データファイルを開く Windows(FileBa).Activate ←データファイルのデータシートをコピー Sheets("データ").Select Cells.Select Selection.Copy Windows("計算ファイルA.xls").Activate ←データを計算ファイルに貼り付け Sheets("計算シート").Select Range("A1").Select ActiveSheet.Paste Range("A1").Select Workbooks(FileBa).Close SaveChanges:=False ←データファイルを閉じる Sheets("操作シート").Select ←計算ファイルのシート Range("A1").Select End Sub （まめ） 2016/08/12(金) 14:58 ---- 「何も起こらずに終わった」のは恐らくエラーのせいじゃないですか。 On Error Resume Nextを削除してから、もう一回実行してみてください。（x） 2016/08/12(金) 15:33 ---- ＞Workbooks(FileAa).Close SaveChanges:=False ←計算ファイルAを閉じる計算ファイルは、変更を保存せずに閉じていますが。実際は、この前に、まとめファイルに転記しているのでしょうか? ＞実行しましたが、何も起こらずに終わったため何が起こって欲しかったのでしょうか。適当にブレークポイントを設定して確認してはどうでしょうか。（マナ） 2016/08/12(金) 15:35 ---- ＞計算ファイルは、変更を保存せずに閉じていますが。上記ではVBA構文の一部を例示させていただきました。保存等は別のVBAで実行しています。＞何が起こって欲しかったのでしょうか。計算ファイルAのVBAを手動で実行したときと同じ挙動をして欲しかったのですが、何も起こりませんでした。（操作ファイルで挙動させることを前提とした記述ではないからでしょうが。）（まめ） 2016/08/12(金) 15:47 ---- ＞On Error Resume Nextを削除してから、もう一回実行してみてください。外したところ、マクロaが定義されていないとして、エラー表示されました。これについては以下の定義が、計算ファイルAに書かれているためだと思われます。 PathB = Worksheets("Control Panel").Cells(5, 4).Value ←データファイルのパス FileBa = Worksheets("Control Panel").Cells(7, 4).Value ←データファイルの名前（まめ） 2016/08/12(金) 15:51 ---- マナさん質問途中ですが、冒頭でアドバイス頂いたとおり、操作ファイルに直接計算ファイルAで記述していたVBA（挙動するように一部編集）を記述したら、動くようになりました。そんなに大変そうではないので（冒頭にファイルパスを記述するだけ）、このやり方で操作ファイルを作ることにします。ありがとうございました。（まめ） 2016/08/12(金) 16:05 ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201608/20160812130848.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ