複数のCSVファイルをMSAccess 2003に追加するために必要なマクロ

Question

2種類のヘルプが必要

1）複数のCsvファイルをAccessにインポートするマクロ。 私はMSAccess2003でそれぞれと非常にファイルをインポートし、約60以上のCsvファイルを持っています
確かに時間がかかります。 Googleで検索すると、次のコードを得たが、それは私

Import_multi_csv() 
Dim fs, fldr, fls, fl 
Set fs = CreateObject("Scripting.FileSystemObject") 
Set fldr = fs.getfolder("D:CSVFolder\") 
Set fls = fldr.files 
For Each fl In fls 
    If Right(fl.Name, 4) = ".csv" Then 
     DoCmd.TransferText acImportDelim, , "tblName", " D:CSVFolder \" & fl.Name, True 
    End If 
Next fl 

2）MSAccess2003に複数のCSVファイルから特定のcoulmnをインポートするために利用可能な任意のマクロのために働いていませんか？

ご協力いただきまして誠にありがとうございます。

Answer 1

私は第二に、私はFLDR、fsを設定している、正しく変数を宣言することは常に良いです信じて、あなたは間違いなくドライブ文字に従うべきである\含まれていない、「HansUp」で同意し、[OK]をFLSまず第一にしかし、それはすぐに、FLSの各FLを要求し、それは100％必要ではないかもしれないが、次のように私の経験では、宣言するとよいでしょう：

薄暗いFLをラインが動作していないファイル