コンボボックスからファイルを指定して、マクロを実行するには？

質問

EXEL VBAで、コンボボックスから2週分のファイルを選び、そのファイルの差を算出するマクロを組みたいのですが、どうしてもコンボボックスで選んだファイルを変数に変えてマクロを実行することが出来ません。どうしたらよいのでしょうか？
（現在作成中のマクロを下記に貼り付けました）

Private Sub UserForm_Initialize()
With Application.FileSearch
'検索先フォルダを指定する
.LookIn = "F:\Sample2008\数字ファイル(test)"
'検索するファイル名を指定する
.Filename = "*.xls"
'検索を実行する
If .Execute() > 0 Then
For i = 1 To .FoundFiles.Count
Workbooks("変更分.xls").Worksheets("変更数字確認シート").Cells(i, 151).Value = .FoundFiles(i)
Next i
Else
MsgBox "ファイルが見つかりません"
End If
End With

With UserForm1
'リストの項目にセルを指定する
.ListBox5.RowSource = Workbooks("変更分.xls").Worksheets("変更数字確認シート").Range("EU1:EU30").Address
'リストの項目にセルを指定する
.ListBox6.RowSource = Workbooks("変更分.xls").Worksheets("変更数字確認シート").Range("EU1:EU30").Address

End With
End Sub

Sub ListBox5_Click()
ListBox5.ListIndex = 先週分
End Sub

Sub ListBox6_Click()
ListBox6.ListIndex = 今週分
End Sub

'別マクロにて「先週分」と「今週分」の変数を使って引き算を実行

回答No.1

redfox63

選んだファイル名を取得したいのですか？

それでしたら
ListBox5.ListIndex = 先週分
では 選択位置を先週分に設定するだけですよ

sName = ListBox5.List( listBox5.ListIndex )
といった具合にしないと取得出来ないかと思います

選択されていない場合 ListIndexは -1になっていますのでif文などで例外処理をしましょう

# コンボボックスとリストボックスは異なりますよ

補足

さっそくありがとうございます。
ただ、まだわかっていなくて……（すみません）。

下記のマクロを連動させたいのですが、ファイル名の取得をどうしたらよいのでしょうか？

たとえば冒頭で、
　先週分 = ListBox5.List( listBox5.ListIndex)　
　今週分 = ListBox6.List( listBox6.ListIndex)

というふうに宣言すればよいのでしょうか？

・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・

Private Sub CommandButton1_Click()
'数字確認()

Const SUUJI4_CLM As Integer = 6 '「先週」「今週」シートの4月の基点列

Const HENKO4_CLM As Integer = 4 '変更シートの4月の列

Const KOUKOKUNUSHI_CLM As String = 1 '変更ブックの列

Dim i As Integer '変更分シートの開始列
Dim Cnt As Integer '先週、今週シートの開始列

'４月
For Cnt = 13 To 350
For i = 2 To 19

If Workbooks("今週分.xls").Sheets("○○").Cells(Cnt, SUUJI4_CLM).Value - Workbooks("先週分.xls").Sheets("○○").Cells(Cnt, SUUJI4_CLM).Value <> 0 Then
Workbooks("変更分.xls").Sheets("変更数字確認シート").Cells(i, HENKO4_CLM).Value = Workbooks("今週分.xls").Sheets("○○").Cells(Cnt, SUUJI4_CLM).Value - Workbooks("先週分.xls").Sheets("○○").Cells(Cnt, SUUJI4_CLM).Value
Workbooks("変更分.xls").Sheets("変更数字確認シート").Cells(i, 1).Value = Workbooks("今週分.xls").Sheets("○○").Cells(Cnt - 1, 1).Value

End If
Cnt = Cnt + 9
i = i + 2

Next i
Next Cnt
　End Sub