求助，很着急！！！

Question

在excel表中有几万条数据，我想按冒个字段进行分开成多个表，有什么方法吗？

Answer 1

好办。
Dim db As Database
Dim rs As Recordset
Set db = OpenDatabase(yourExcelPath, True, False, "Excel 5.0")
set rs = db.OpenRecordset("select distinct field1 form [" & sSheetName & "$]")
Do Until rs.EOF
   db.Execute "Select * into " & rs!field1 & " from [" & sSheetName & "$] where field1='" & rs!field1 & "'"
   rs.MoveNext
Loop
rs.Close
Set rs = Nothing
db.Close
Set db = Nothing

Answer 2

是不是必须把excel先导入数据库呀，可不可以直接对excel表进行sql操作呀？

Answer 3

当然不可了，不过可以通过其他的手段但不是sql的操作。
先把excel导到数据库在操作也可以。