参照するファイルが日付によって以下のようになるので
ワイルドカードを使って【東】があるファイルだけを選択したいのですが、うまくいきません。
分かる方ご教示お願いいたします。
ファイル名
【東】1
【東】2
Sub test()
Dim wb1, wb2 As Workbook
Dim ws1, ws2 As Worksheet
Dim fName As Variant
Dim mys As String
Dim i, j As Long
Application.ScreenUpdating = False
mys = Workbooks("参照.xlsm").Sheets("Sheet1").Range("A1").Value '検索値
fName = Application.GetOpenFilename("ブック,*.xlsb")
Workbooks.Open fName
Set wb2 = Workbooks("【東】,*.xlsb") '検索対象ファイル
wb2.Activate
ReDim dary(10, 5) '10件まで
n = 1
With wb2.Worksheets(1) '検索ファイルの左側シートのみ対象
For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
If Cells(i, 2).Value Like mys And Cells(i, 3).Value = "1" Then
For j = 1 To 5
dary(n, j) = Cells(i, j + 1).Value
Next j
n = n + 1
If n > 10 Then Exit For
End If
Next i
End With
Set wb1 = Workbooks("参照.xlsm")
wb1.Activate
With wb1.Sheets("Sheet1")
For i = 1 To 10
For j = 1 To 5
.Cells(i + 2, j).Value = dary(i, j)
Next j
Next i
End With
Application.ScreenUpdating = True
MsgBox "完了"
End Sub
No.3ベストアンサー
- 回答日時:
ファイルを選択した段階でそのBookは開くので、
>Workbooks.Open fName
は不要になる。
>fName = Application.GetOpenFilename("ブック,*.xlsb")
>Workbooks.Open fName
>Set wb2 = Workbooks("【東】,*.xlsb") '検索対象ファイル
の代わりに、
Application.Dialogs(xlDialogOpen).Show "*【東】*.xlsb"
Set wb2 = ActiveWorkbook
にしてみるとか?
No.2
- 回答日時:
投稿後気が付きました。
>ワイルドカードで指定したい
でしたね。
For Each wb In Workbooks
If wb.Name Like "【東】*" Then Set wb2 = wb: Exit For
Next
こんな感じになります。
No.1
- 回答日時:
こんにちは、
コード全体を見ると色々ありますが、【東】,*.xlsbは既に開いている状態でしょうか?
であれば、開いているBookを順次参照して該当の名前があればSet するようにしてはいかがでしょう。
後の処理も1ファイルに対してのみと思われますので、該当ファイル名が複数開いている状態でない事が条件になるかと
例
Dim wb As Workbook
For Each wb In Workbooks
If InStr(wb.Name, "【東】") > 0 Then Set wb2 = wb: Exit For
Next
もし、開いてないファイルに対してであれば、フォルダ内を探すなどするようにします。
ご質問にない部分ですが、気になった点をお節介させて頂きますと
Dim wb1, wb2 As Workbook
この書き方の場合、VBAでは wb1 As Variant になってしまいます。
Dim wb1 As Workbook, wb2 As Workbook このように書きます。
Dim i, j As Longも同様です。
あと、
With wb1.Sheets("Sheet1") 内は正しく書かれていますが
With wb2.Worksheets(1) 内の各Rangeオブジェクト前の .がありません。
思わぬ結果になる場合がありますので、ご確認ください。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) Excelで下記のようにマクロを作ったところ、一回目は実行できたのですが、二回目以降「実行時エラー1 1 2022/03/25 08:08
- Excel(エクセル) VBAの指示の内容 昨日こちらでご教示頂いたのですが初心者な為、一つ一つの指示が何をやっているのかわ 2 2022/10/25 18:08
- Visual Basic(VBA) VBA 別ブックからの転記の高速化について VBA 別ブックからの転記の高速化についてご教授下さい。 19 2022/07/26 13:07
- Excel(エクセル) VBAについて 3 2022/06/19 18:19
- Visual Basic(VBA) 前回ご教授いただいたコードに覚えたてのループ処理で品名りんごAから順に20回for nextでループ 7 2023/01/13 22:01
- Visual Basic(VBA) A列B列C列 3 2023/04/26 18:11
- Visual Basic(VBA) エクセルのマクロを使ってメールを送る方法について教えてください 2 2022/03/29 01:36
- Visual Basic(VBA) VBAが止まります。 1 2022/09/02 14:51
- Visual Basic(VBA) フォルダの場所を可変にしたいです(マクロ) 4 2023/05/11 10:00
- Excel(エクセル) 【マクロ】【VBA】同じフォルダ内にあるエクセルのデータを転記したい【ブック1からブック2へ】 9 2023/08/10 07:51
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
VBAでファイルを開くときにファイル名でワイルドカードを使用したいです
その他(プログラミング・Web制作)
-
ExcelVBAでBookを開く時にファイル名の一部だけを指定で
Access(アクセス)
-
ワイルドカード「*」を使うとうまくいかないマクロの添削をお願いします
Visual Basic(VBA)
-
-
4
EXCELマクロで、開いてはいるがアクティブでないファイルをアクティブにする方法?
Excel(エクセル)
-
5
名前の変わるブックをアクティブにしたい。
Excel(エクセル)
-
6
vbaサブフォルダーをワイルドカードで取得したい
Visual Basic(VBA)
-
7
エクセルで「特定の文字を含むファイルへのリンク」or「特定の文字を含むファイルの検索の実行」
Excel(エクセル)
-
8
エクセルVBAでセルに入力したパスでブックを開く
Excel(エクセル)
-
9
excel VBA 部分一致の名前をパスに指定する方法
Excel(エクセル)
-
10
excel VBA 特定の文字列を含むフォルダを開く方法
Excel(エクセル)
-
11
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
12
EXCEL VBA 指定したファイルが存在しない場合メッセージボックスを表示させる
Access(アクセス)
-
13
Excel VBAで同じフォルダ内のファイルを開くには?
Excel(エクセル)
-
14
VBAでワークブックの名前を変数にして開かせる?
Excel(エクセル)
-
15
エクセルマクロで不特定なファイル名を使用するには
Excel(エクセル)
-
16
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
17
別ファイルを開かず、INDIRECT関数を使用せずに、別ファイルのデータを求めたい
Excel(エクセル)
-
18
worksheetFunctionクラスのVlookupプロパティを取得できません エラーへの対応
Visual Basic(VBA)
-
19
エクセルのエラーメッセージ「400」って?
Visual Basic(VBA)
-
20
VBA:ワークブックを変数でActiveにしたいのですが・・
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
アクセス 壊れた? 「ファイ...
-
CRCが一致する確率
-
公文書のxmlファイルの開き方が...
-
CSSを1ページに1枚作るのって変...
-
VBAのバイナリ出力について
-
csvファイルについて教えて下さ...
-
自分で作成した重要ファイルを...
-
VBAでのicsファイル変換
-
#include <Windows.h>というヘ...
-
リンクの張り付けかたを教えて...
-
Latexで図番号だけを「図1.1」...
-
jarファイル
-
binファイルを解凍したいの...
-
ファイルが開かれているかどう...
-
ファイル名を指定しないVBAは?
-
ADODB.Streamで開いたファイル...
-
エクセルファイルが複数同時に...
-
バッチ処理で追記コピーしたい
-
bibtexで参考文献作成できない
-
HTMLを正しく表示させるには
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
iPhoneでXMLファイルを開くには...
-
公文書のxmlファイルの開き方が...
-
binファイルを解凍したいの...
-
アクセス 壊れた? 「ファイ...
-
.NETアプリを作ったときの .man...
-
リンクの張り付けかたを教えて...
-
#include <Windows.h>というヘ...
-
jarファイル
-
Seasar2のdiconファイルの読み方
-
Word VBA MSGBOX 内で降順表示
-
監視ツールを入れさせられまし...
-
CSSを1ページに1枚作るのって変...
-
コマンドプロンプトで、指定し...
-
ファイルが開かれているかどう...
-
exeファイルをデータ転送サービ...
-
パイソンでpy ファイルと p...
-
exeファイルの中身を見る方法は...
-
Latexで図番号だけを「図1.1」...
-
参照するファイルをワイルドカ...
-
バッチ処理で追記コピーしたい
おすすめ情報