Accessファイル選択インポート

質問

環境WinXP,MS-Access2003
Accessマクロを利用して
インポートファイルを「ダイアログのファイルを指定」にて固定長のインポートをさせたいです。
実行形式はマクロボタン押下だけです。

VBAのサンプルがあればご教授お願いいたします。
なお
インポートファイルは111.txt
インポート定義はAAA
インポート先テーブルはXXX

回答No.1

noname#77657

>VBAのサンプルがあればご教授お願いいたします。
当然、VBAの知識はありますよね。

それなら、まず自分で作ったVBAソースコードを載せて、それを添削してもらう方が、良い回答が得られると思います。

宜しくお願いします。

お礼

回答のご記入ありがとうござます。
さっそく明日、ソースコードを載せて、ヒントを頂くような形でご支援いただくようにいたします。ご指摘ありがとうございます。
当方、VBAの知識は初級者ですので皆様のご支援お待ちしております。
宜しくお願い申し上げます。

補足

ここまで作成してみましたが、インポートできませんとエラーが表示されうまくいかないようです。
教えていただけないでしょうか？大変困っております。
何卒、宜しくお願い致します。

エラー箇所
DoCmd.TransferText acImportFixed, "MFG_IMP6", "MFG_IMP", strFileName, -1

------------------------------
インポート定義 MFG_IMP6
インポート先テーブル MFG_IMP
変換の種類　固定長インポート
フィールド名の設定　いいえ

インポートファイル aaa.pm(仮)
------------------------------
==↓ここより実際のソース====================================================
Public Function GetFileName()

Dim intRet As Integer

With Application.FileDialog(msoFileDialogFilePicker)
.Title = "ファイル選択"
.Filters.Clear
'.Filters.Add "csvファイル", "*.csv"
.Filters.Add "すべてのファイル", "*.*"
.FilterIndex = 1
.AllowMultiSelect = False
.InitialFileName = CurrentProject.Path
intRet = .Show

If intRet <> 0 Then
GetFileName = Trim(.SelectedItems.Item(1))

Else
'ファイルが選択されなかった時
GetFileName = ""
End If
End With
End Function

Private Sub update_Click()

Dim strFileName As String

strFileName = GetFileName()
If Len(strFileName) > 0 Then

DoCmd.TransferText acImportFixed, "MFG_IMP6", "MFG_IMP", strFileName, -1

Else
MsgBox "ファイルは選択されていません! "
End If

End Sub
====================================================