Excel VBA質問箱 IV

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

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


5000 / 13646 ツリー ←次へ | 前へ→

【53153】アスタリスクの使い方について教えて下さい yuyu 07/12/17(月) 20:51 質問[未読]
【53154】Re:アスタリスクの使い方について教えて下... マクロマン 07/12/17(月) 20:59 発言[未読]
【53158】これならどうでしょうか? yuyu 07/12/17(月) 21:55 質問[未読]
【53160】Re:開いているブックをワイルドカード(*)... かみちゃん 07/12/17(月) 22:02 発言[未読]
【53182】Re:開いているブックをワイルドカード(*)... yuyu 07/12/18(火) 19:13 お礼[未読]

【53153】アスタリスクの使い方について教えて下さ...
質問  yuyu  - 07/12/17(月) 20:51 -

引用なし
パスワード
   いま、「A」というファイルの中にマクロを記述してあって、
もし「B」というファイルをアクティブにして、
「B」の中からデータを抜き出したいと考えています。

そこで、マクロ中に
Workbooks("○○*.xls").Activate
[○○*.xlsがBのファイル名です]

という記述をしたいのですが、アスタリスクの使い方が悪くうまくいきません。
本来なら「B」ファイル名を直接記述すればいいのですが、
いずれこの部分を入力できるように変えて行きたいと考えています。

申し訳ありませんが、どのように記述すれば良いのか教えてください。
よろしくお願い致します。

【53154】Re:アスタリスクの使い方について教えて...
発言  マクロマン  - 07/12/17(月) 20:59 -

引用なし
パスワード
   何をなさりたいのかがよく分かりませんが、
「Like演算子」について調べてみるといいかもしれません。

【53158】これならどうでしょうか?
質問  yuyu  - 07/12/17(月) 21:55 -

引用なし
パスワード
   ▼マクロマン さんへ

なにぶん初心者なものでうまく説明も付かない状況です。
申し訳ありません。

うまく説明が付きませんので、ちょっと質問を変更させてください。

マクロの中で、If文を使って、
「もし○○というファイルがオープンしていれば」
という記述が出来ますか?
また、このとき○○という部分にアスタリスクを使用して記述できますか?

このような質問ならいかがでしょうか?
よろしくお願い致します。

【53160】Re:開いているブックをワイルドカード(...
発言  かみちゃん  - 07/12/17(月) 22:02 -

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

横から失礼します。

>マクロの中で、If文を使って、
>「もし○○というファイルがオープンしていれば」
>という記述が出来ますか?
>また、このとき○○という部分にアスタリスクを使用して記述できますか?

簡単には、できないと思いますが、以下のような感じであれば、似たようなことはできると思います。

Sub Sample()
 Dim wb As Workbook
 
 For Each wb In Workbooks
  If wb.Name Like "B*" Then
   MsgBox wb.Name & "が開いています"
  End If
 Next
End Sub

【53182】Re:開いているブックをワイルドカード(...
お礼  yuyu  - 07/12/18(火) 19:13 -

引用なし
パスワード
   ▼かみちゃん さん:

返信ありがとうございました。
非常に分かりやすく参考にさせていただきました。
というより、ご指導頂きました方法で解決いたしました。

ありがとうございました。

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