Access VBAについて教えて下さい。

質問

Access VBAについて教えて下さい。

<内容>
選択ボタンを押下するとファイル選択のダイアログ画面が表示されます。
そこから複数ファイルを選択してテキストボックスに選択したファイルを取得します。
実行ボタンを押下するとテキストボックスで取得したファイルを同じテーブルにインポートします。
※テキストボックスの名前 ＝ FileList

<VBA>
Private Sub 選択_Click()

With Application.FileDialog(msoFileDialogFilePicker)
.Filters.Clear
.Title = "ファイル選択"
.Filters.Add "すべてのファイル", "*.*"
.Filters.Add "テキストファイル", "*.txt"
.Filters.Add "TSVファイル", "*.tsv"
.Filters.Add "EXCELファイル", "*.xls"
.AllowMultiSelect = True
.InitialFileName = CurrentProject.Path
If .Show = -1 Then
Me.FileList = .SelectedItems(1)

'ユーザーが [キャンセル] をクリックした場合
Else
End If
End With
End　Sub

Private Sub 実行_Click()

'テーブル削除
On Error GoTo エラー

Dim mySQL As String
Dim strName As String
Dim strmsg As String

Set Db = CurrentDb
strName = "テスト"
strmsg = "" & strName & "テーブルを削除します。"

mySQL = "DROP TABLE " & strName

'「はい」ボタンを押下した場合
If MsgBox(strmsg, vbYesNo) = vbYes Then
Db.Execute mySQL
MsgBox strName & "テーブルを削除しました。", vbCritical
MsgBox "インポートします。", vbInformation

'インポート開始
DoCmd.TransferSpreadsheet aclmport, acSpreadsheetTypeExcel8, "テスト", FileList, True
MsgBox "インポート完了", vbInformation

'「いいえ」ボタンを押下した場合
End If
Db.Close: Set Db = Nothing
Exit Sub

'テーブルが存在しなかった場合
エラー:
MsgBox strName & "テーブルが存在しません。", vbExclamation

MsgBox "インポートします。", vbInformation

'インポート開始
DoCmd.TransferSpreadsheet aclmport, acSpreadsheetTypeExcel8, "テスト", FileList, True
MsgBox "インポート完了", vbInformation

End Sub

<困っていること>
ファイルを複数選択することは、出来ますがテキストボックスには1ファイルしか取得出来ません。
そのため、インポートも1ファイルのみになってしまいます。
どのようにしたらテキストボックスに複数ファイル名を取得し、インポート出来るのでしょうか？

回答No.1

nda23 · ベストアンサー

せっかく複数個を選択しているのに、最初の１個しか
使ってませんからね。
テキストボックスではなく、リストボックスにしては
如何でしょうか？

ダイアログ後の処理
If .Show = -1 Then
　　　　Do Until Me.FileList.ListCount = 0
　　　　　　　　Me.FileList.RemoveItem 0
　　　　Loop
　　　　X = .SelectedItems.Count
　　　　For I = 1 To X
　　　　　　　　Me.FileList.AddItem .SelectedItems(I)
　　　　Next
Else
　　ユーザーが [キャンセル] をクリックした場合

インポート時の処理
Dim A, B
A = Split(Me.FileList.RowSource, ";")
For Each B In A
　　　　DoCmd.TransferSpreadsheet aclmport, ～, B, True
Next

お礼

ご親切にありがとうございました。
リストボックスも検討してみます。

回答No.2

kmetu

こちらを参考にしてみてください(ファイル名をループで表示している部分)

http://www.geocities.jp/cbc_vbnet/tips/dialog.html

お礼

参考にしてみます。
ありがとうございました。