| |
こんにちわ。
以前投稿されていた質問を参考に
ファイルをインポートするマクロを
作りたいのですが。
毎週1回の業務の中で10種類以上の.dbfファイルをインポートして
10個以上のテーブルを作成しています。
今までは1つ1つファイル→外部データの取込という手順で
していましたが、一度にインポートしたいと思いやってみました。
が下の様に記述したのではテーブルが出来上がりません。
どの部分がおかしいのでしょうか？
Sub ダイアログを呼び出す()
Dim FName As Variant
Const IFName = "D:\from\20060920"
With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = True
.Title = "インポートするファイルを選択(複数選択可)"
.Filters.Add "ファイル", "*.dbf"
.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
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
- 06/10/4(水) 14:02 -
