怎么把Excel的内容导入到数据库的表中？
想通过command控件来操作，单击它，然后导入选定的excel文件，使数据库中新建一个表，将excel的内容导入到该数据库的表中
[解决办法]
拖個CommonDialog進去，用於選擇要導入的excel文件
單擊command控件時打開，選取excel，然後導入
Private Sub ImportExcel(strExcelName As String)
Dim objExcel As Excel.Application
Dim i As Integer
Set objExcel = New Excel.Application
objExcel.Workbooks.Open strExcelName
'你的一些判断，第一行列名
i=2
While objExcel.Cell(i,1).value<>""
'根据excel每行的值，做你的数据库操作
i=i+1
Wend
objExcel.Quit
End Sub
