怎么把Excel的内容导入到数据库的表中？

Question

想通过command控件来操作，单击它，然后导入选定的excel文件，使数据库中新建一个表，将excel的内容导入到该数据库的表中

Answer 1

拖個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

Answer 2

看ms sql 导入生成的 bas

Answer 3

创建链接服务器以访问 Excel 电子表格用于 Jet 4.0 的 Microsoft OLE DB 提供程序可用于访问 Microsoft Excel 电子表格。 若要创建访问 Excel 电子表格的链接服务器，请使用下例中的格式。 
sp_addlinkedserver N'Excel', N'Jet 4.0',
                   N'Microsoft.Jet.OLEDB.4.0',
                   N'c:\data\MySheet.xls', NULL, N'Excel 5.0'
GO
sp_addlinkedsrvlogin N'Excel', false, sa, N'ADMIN', NULL
GO若要访问 Excel 电子表格中的数据，请将单元范围与名称相关联。可以通过将范围名称用作表名来访问命名范围。通过使用在上例中设置的链接服务器，下面的查询可用于访问称为 SalesData 的命名范围。 
SELECT *
FROM EXCEL...SalesData
GO