| |
▼ぷーさん さん：
こんにちは。
Access2002ですと、Officeに付属しているFileDialogオブジェクトを
使用すると簡潔にコードが書けると思われます。
Sub ダイアログを呼び出す()
'要参照設定 Micosoft Office x.x Object Library 10.0以降
Dim FName As Variant
Const IFName = "C:\" 'デフォルトのパスを設定
With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = True
.Title = "インポートするファイルを選択(複数選択可)"
.Filters.Add "Excel ファイル", "*.xls"
.InitialFileName = IFName
If .Show = -1 Then
For Each FName In .SelectedItems
Call インポート(FName)
Next
End If
End With
End Sub
Function インポート(xName As Variant)
'こちらでTransferSpreadsheetメソッドを発行
MsgBox xName
End Function
>ファイル名が違うデータを大量にインポートしていきたいのですが。。
後は同じテーブルに取り込むのか、
違うテーブルに取り込むのかが問題になってきますね。
同じテーブルに取り込みたいのでしたら
ちょっと工夫が必要になってくるかもしれません。
|
|
小僧
- 06/5/19(金) 13:52 -
