コンボボックスに入れた値をDir関数に渡したい

Question

ユーザーインターフェースのコンボボックスに入れた値をSubプロシージャのDir関数に渡し、引数がファイル名に入っているファイルを開きたい

VBA初心者です。
別のファイルから必要なデータだけを抽出して、リストを作成するプログラムを書いてます。
タイトルの通りにしたいのですが、「データ型が違う」となり、エラーになります。
数時間あれこれ調べたり試したのですがダメでした。ご教示頂ければ幸甚に存じます。

発生している問題・エラーメッセージ

エラーメッセージ
エラー：１３
型が一致しません

該当のソースコード

VBAソースコード

ーーーーーーー（引き渡したい値/コンボボックスに入力する値↓）－－－－－－－－－－－－－－－
1:Dim i As Integer
2:Dim VYear As Integer

3:VYear = Year(Date)

4:For i = VYear - 1 To VYear + 1
5:CmbBox_年.AddItem i
6:CmbBox_年.value = VYear

7:Next
8:End Sub

ーーーーーー(値の引き渡しを指示するプロシージャ↓)－－－－－－－－－－－－－－－－－－－－
1:Private Sub CmdBtn_作成_Click()

2:Profile_List_年度全員 CmbBox_年.Text

3:End Sub

ーーーーーーー（引き渡されるプロシージャ↓）－－－－－－－－－－－－－－－－－－－
1:Option Explicit
2:Sub Profile_List_年度全員(ByVal VVYear As String)

3:Dim aa As String
4:Dim bb As String

5:aa = Dir("C:\Users\me\Desktop\VBA\共有フォルダ\勉強用　" And VVYear And "　人数データ.xlsx")
6:bb = Dir("C:\Users\me\Desktop\VBA\Profile List Maker.xlsm")

7:Workbooks.Open Filename:="C:\Users\me\Desktop\VBA\共有フォルダ\勉強用　" And VVYear And "　人数データ.xlsx", ReadOnly:=True
8:Workbooks(aa).Worksheets(VVYear And "年　人数データ").Copy after:=Workbooks(bb).Worksheets(Worksheets.Count)

9:Workbooks(aa).Close Filename:="C:\Users\me\Desktop\VBA\共有フォルダ\勉強用　" And VVYear And "　人数データ.xlsx"

10:End Sub

試したこと

コンボボックスの値を設定するときにDate関数を用いてますので、
CStr関数でDir関数に合うように文字列に変換してみたのですが、結果は変わりませんでした。

Comments

[meg_]

エラーはどの行で発生しているのですか？

Answer 1

質問タイトルの「コンボボックスに入れた値をDir関数に渡したい」は出来ているかと思います。

「型が一致しません」のエラーが出ているのは下記コードだと思います。

Workbooks.Open Filename:="C:\Users\me\Desktop\VBA\共有フォルダもどき\勉強用　" And VVYear And "　人数データ.xlsx", ReadOnly:=True

Andを&に変更しましょう。

Workbooks.Open Filename:="C:\Users\me\Desktop\VBA\共有フォルダもどき\勉強用　" & VVYear & "　人数データ.xlsx", ReadOnly:=True

※パス内の余計な空白も削除した方が良いかもしれません。

Comments

[退会済みユーザー]

meg_さん

早速のご回答ありがとうございます。
仰る通り、ご指摘の行でエラーになっています。
私も"&"で最初試したのですが、うまくいかなかった為、"And"にした次第です。

ただ入力ミスした可能性もありますので、少し寝て"&"で再チャレンジしてみます。また結果をお知らせしますので、宜しくお願い致します。

※ファイルパス内の全角スペースにつきましては、見やすくする為か、抽出元のファイル名に必ず入っていて、私側ではなくすことができません。なんとかそのままで、ファイルパスが取得できれば助かるのですが...。

[退会済みユーザー]

meg_さん

少し頭を回復させて再チャレンジしました。
仰る通り、"&"でうまくいきました！私の入力の仕方が良くなかったようです。
（またCStr関数で引数を文字列にしたままにしてしまい、引き渡しの時に何を入れても"0"で渡されてしまっていたようです；）
この度はありがとうございました。ベストアンサーにさせて頂きます。