MYSQL肿么批量导入多个excel文件，字段都是对应的

这个VB文件很长啊，试试下面这个VBA（省略了定义语句），原理基本一样：在保存宏命令所在表格文件的路径中，逐个打开全部文本文件（扩展名为.TXT，注意，文件名不能太长27位以内，否则不被导入），同时将它们逐一移到宏命令所在文件。
创建方法：自建一表格文件（文件名不限），保存后，在VBA开发工具中，选中该文件，插入“模块”，将下面的宏命令复制到模板编辑区，再次保存。
使用方法：将自建文件保存到要导入的TXT文件同一文件夹中，打开（建议将宏安全性设置为中，需要时就启用宏，不需要时不启用），按键Alt+F8，执行宏“导入本地文件夹TXT文件”即可。

Sub 导入本地文件夹TXT文件()
路径全名 = ThisWorkbook.FullName
命令文件 = ThisWorkbook.Name
路径名称 = Left(路径全名, Len(路径全名) - Len(命令文件)) '取得命令文件所在路径
If Right(路径名称, 1) <> "\" Then 路径名称 = 路径名称 + "\"
文件类型 = "*.txt"
Set s = CreateObject("Scripting.FileSystemObject") '为VBA创建文件系统
Set d = s.GetFolder(路径名称) '为VBA指定文件夹
Set f = d.Files '将文件夹中全部文件作为处理对象
For Each k In f '逐个文件处理
m = k.Name '提取文件名（短文件名）
If (LCase(Right(m, 3)) = "txt") Then '如果是txt文件，就打开它
文本长名 = 路径名称 + k.Name
Application.StatusBar = "正打开文件：" + k.Name '在状态栏提示处理进度
Workbooks.OpenText Filename:=文本长名
On Error GoTo 出错提示 '防止因文本文件名称过长，影响表单移动
ActiveSheet.Move Before:=ThisWorkbook.Sheets(1) '以移动代替导入
On Error GoTo 0
End If
Next k
Set f = Nothing
Set d = Nothing
Set s = Nothing
MsgBox "当前文件夹中TXT文件收集完毕！", vbOKOnly, "处理结果"
Exit Sub
出错提示:
MsgBox "移动表单出错！（TXT文件名可能太长了）"
ActiveWorkbook.Close False
Resume Next
End Sub

操作步骤如下：
准备数据:在excel中构造出需要的数据   

2.将excel中的数据另存为文本文件(有制表符分隔的)    

3.将新保存到文本文件中的数据导入到pl*sql中
      在pl*sql中选择tools-->text importer,在出更晚纪现的窗口中选择"Data from Textfile",然后再选择"Open data file",

    在弹出的文件选择框中选中保存有数据的文本文件，此时将会看到data from tex操频么甲富须员华洲鱼tfile中显示将要导入的数据   

4.在configuration中进行如下配广殖杆袁配迫钱现置  

注:如果不将"Name in header"勾选上会导致字段名也当做记录被导入到数据库中，从而导致数据错误

5.点击data to oracle，选择将要导入数据的表，并在fields中将文本中的字段与表中的字段进行季告关联  

6.点击import按钮进行导入

7.查看导入的数据

OK,至此数据导入成功。

这个不难，你发两个TXT样本给我，再发整理后的最终格式的EXCEL表格给我，我帮你写好代码。
276337287@qq.com