Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


35309 / 76732 ←次へ | 前へ→

【46624】Re:開いたファイルに別に保存してあるマクロを実行させる方法について
発言  inoue  - 07/2/8(木) 12:44 -

引用なし
パスワード
   >1.マクロの保存されたブックを開く
>2.マクロボタンをクリックする
>3.「ファイルを開く」ダイアログボックスが表示される(マクロA)
>4.開きたいファイルを選択する(→続けてマクロBが実行される)
>5.処理終了(マクロ実行後のファイルが表示される)
3番以降がそのマクロの処理ですよね。
ファイルを任意に指定して、そのファイルを開いて、
何らかの処理をして閉じるというなら、
以下のようなコードになると思います。
[例]
Sub TEST()
Dim objWBK As Workbook
Dim vntFileName As Variant
' ファイルの指定
vntFileName = Application.GetOpenFilename("Excelファイル,*.xls")
If VarType(vntFileName) = vbBoolean Then Exit Sub
' 指定ブックのOpen
Set objWBK = Workbooks.Open(CStr(vntFileName))
With objWBK
  ' この中で開いたブックに対して処理
  ' 例として先頭シートのA1セルの値を表示
  MsgBox .Worksheets(1).Range("A1").Value
End With
' 指定ブックのClose(保存は任意)
objWBK.Close
End Sub
1 hits

【46622】開いたファイルに別に保存してあるマクロを実行させる方法について ボボ 07/2/8(木) 10:56 質問
【46623】Re:開いたファイルに別に保存してあるマク... Jaka 07/2/8(木) 12:41 発言
【46626】Re:開いたファイルに別に保存してあるマク... ボボ 07/2/8(木) 13:27 お礼
【46637】Re:開いたファイルに別に保存してあるマク... ボボ 07/2/8(木) 18:01 質問
【46656】Re:開いたファイルに別に保存してあるマク... Jaka 07/2/9(金) 17:24 発言
【46624】Re:開いたファイルに別に保存してあるマク... inoue 07/2/8(木) 12:44 発言
【46636】Re:開いたファイルに別に保存してあるマク... ボボ 07/2/8(木) 17:47 お礼

35309 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free