怎么样导入不同的CSV文件

在窗体上创建一个命令按钮，按钮的单击事件代码如下：

Dim fd As FileDialog

 Set fd = Application.FileDialog(msoFileDialogFilePicker) '设置文件对话框
 fd.Filters.Add "文本文件", "*.CSV", 1 '设置默认的文件类型
 fd.FilterIndex = 1
 Set fs = CreateObject("Scripting.FileSystemObject") '设置文件系统的访问

 With fd
  .AllowMultiSelect = True '设置可以多选文件
  If .Show = -1 Then '如果选择了文件
   For Each vrtSelectedItem In .SelectedItems '对每一个选择的文件进行处理
    bm = fs.GetBaseName(vrtSelectedItem) '用文件的基本名作为表名
    wjm = vrtSelectedItem '选取的文件
    DoCmd.TransferText acImportDelim, "", bm, wjm, True, "" '导入
   Next vrtSelectedItem
   MsgBox ("自动导入完成")
  Else  '取消了文件的选取
   MsgBox ("取消了导入功能")
  End If
End With
Set fd = Nothing '释放存储空间
Set fs = Nothing '释放存储空间

即可解决你的问题。