前几天才试出的招,保证管用.
Insert Into TableName1
SELECT * FROM
OPENROWSET('Microsoft.JET.OLEDB.4.0',
'Excel 8.0;Database=C:\training\inventur.xls',
'SELECT * FROM [Filiale1$]')
首先利用vb从excel中读出数据,然后依次添加到sql server 2000的表中!
vb读取excel数据的简单代码:
Dim ex As Object
Dim exwbook As Object
Dim exsheet As Object
Set ex = CreateObject("excel.application")
Set exwbook = Nothing
Set exsheet = Nothing
Set exwbook = ex.Workbooks().Open(str1) 'str1为打开excel文件的路径
ex.Visible = True
Set exsheet = exwbook.Worksheets("sheet1")
For i = 1 To rows
For j = 1 To cols
str2=ex.Cells(i, j ).Value
Next j
Next i