Excel VBA質問箱 IV

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

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


2998 / 13644 ツリー ←次へ | 前へ→

【64811】【初心者】任意のブックの指定 dodemoee 10/3/15(月) 16:58 質問[未読]
【64814】Re:【初心者】任意のブックの指定 かみちゃん 10/3/15(月) 20:15 発言[未読]
【64854】Re:【初心者】任意のブックの指定 dodemoee 10/3/19(金) 14:39 お礼[未読]

【64811】【初心者】任意のブックの指定
質問  dodemoee  - 10/3/15(月) 16:58 -

引用なし
パスワード
   VBA初心者のものです。
初めてマクロを組みますが、一つ解決しない問題があり皆様の力を拝借したく投稿致しました。
参考書、ネット検索、本サイトの目安箱を参照しましたが解決できずにおります。
お手数おかけしますが、宜しくお願い致します。

現在下記作業をしております。

【作業】
随時出てくるフォーマットの決まったブック(A)があります。
この各々のブックから必要な情報を取り出し、あるブック(B)にリスト化します。

この作業のマクロを組む際に一つ問題があります。
プログラムには「A」と書き込んで、ブックを指定します。
しかし、随時出てくるブックは常にブック名が変化します。
(A'、A''、A'''、A''''…)

したがってマクロを組んだとしても、プログラムは随時出てくるCHFのブック名に対応していないので、マクロは作動しません。

このような状況下で、任意のブックを指定する方法はございますでしょうか?
あるいは他の方法があるのでしょうか?

(調べた結果、GetOpenFilenameがキーになる気がしますが…)

【64814】Re:【初心者】任意のブックの指定
発言  かみちゃん E-MAIL  - 10/3/15(月) 20:15 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>しかし、随時出てくるブックは常にブック名が変化します。
>(A'、A''、A'''、A''''…)
>
>したがってマクロを組んだとしても、プログラムは随時出てくるCHFのブック名に対応していないので、マクロは作動しません。
>
>このような状況下で、任意のブックを指定する方法はございますでしょうか?

一例として、以下のような感じです。
Aというブックを選択して、開くという処理をする場合に変数WBに格納するという例です。

Sub Sample()
 Dim WB As Workbook
 Dim strFileName As String
 
 strFileName = Application.GetOpenFilename("Excelファイル,(*.xls)", , "ブックAを選択してください")
 If strFileName = "False" Then
  MsgBox "処理を中止しました"
  Exit Sub
 End If
 Set WB = Workbooks.Open(strFileName)
 MsgBox WB.FullName & vbCrLf & WB.Path & vbCrLf & WB.Name
End Sub

【64854】Re:【初心者】任意のブックの指定
お礼  dodemoee  - 10/3/19(金) 14:39 -

引用なし
パスワード
   ▼かみちゃん さん:
教えていただきありがとうございました。
ばっちり、解決することができました。助かりました。

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