[[20200123153918]] 『新規のファイルを開くたびに毎回同じマクロを実行』(にこ) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『新規のファイルを開くたびに毎回同じマクロを実行する』(にこ)

表題の件で、最小の手数で実行する方法を探しています。

1ファイルを開く(マウスで)
2マクロ実行
3ファイルを閉じる(マウスで)

この繰り返しを最も楽に行いたいです。

2の部分でつまづいています。特定のマクロを実行するボタンを常に配置できればいいのですが。今は毎回ファイルのインポートをしてマクロを実行しています。

いい方法があれば教えていただけますでしょうか。よろしくお願いいたします。

< 使用 Excel:Office365、使用 OS:Windows10 >


ボタンになっているかどうかはともかく、全てのブックに同じマクロを書いているのですかね?

とりあえず、以下のようにすれば他ブックのマクロを実行できると思いますが、マクロ終了の同期が取れるかどうかは試してみてください。
(普通は、他ブックはデータとしてだけ使い、マクロは自分のものしか使いませんから、連続実行できるか気にした事が無い)

 Sub test
     Dim wkBook as WorkBook

     Set wkBook = WorkBooks.Open("他のブック名")
     Application.Run wkBook.Name & "!シート名.プロシジャ名"
 End Sub

標準モジュールのプロシジャならば、"!Module1.プロシジャ名" のようにします。
(???) 2020/01/23(木) 15:57


説明不足でした。すいません。
今回はマクロをつくる必要はありません。

行いたい作業としては、
1インターネットから一日に何度もCSVファイルを手動でダウンロードします。
2次にダウンロードしたファイルを手動で開きます。
3そのファイルを開いたら毎回同じ特定のマクロを実行します。

この3の作業をなるべくシンプルに行いたいのです。
現在はマクロをフォルダからインポートして行っていますが、その作業が手間です。

簡略化できませんでしょうか?
(にこ) 2020/01/24(金) 08:23


今のマクロを個人用マクロブックにコピーして、
そのマクロをクイックアクセスツールバーに登録しておけば、
その都度ボタンをクリックするだけでできませんか?
(γ) 2020/01/24(金) 08:29

・CSVダウンロード
・CSVをシートに貼る
・マクロ処理
これらを全て行う、1つの新しいマクロを書くだけでは? 手作業だから手間になっているのでしょう?
(???) 2020/01/24(金) 09:59

???さん、解決致しました。
アドバイス頂き、ありがとうございました。

γさん、このやり方でだいぶん楽になりました。
これで行こうと思います。
毎度的確な回答を頂き、ありがとうございます。
(にこ) 2020/01/24(金) 20:43


コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.