我要做的一个系统中要实现一个功能别人上传EXCEL文件(规定格式)后系统将这个EXCEL里的数据导入到数据库中.急求
參考答案:假设你的EXCEL都已经是标准格式的文件了，那么你可以使用以下代码进行操作：
变量定义及ADO对象创建
....
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & strExcelFile & _
";Extended Properties=Excel 8.0"
strToDBConn = "odbc;Driver={SQL Server};Server=IP地址;Database=数据库名;UID=登录用户;PWD=密码"
'// 以记录集的形式打开 Excel 文件
adoConn.Open strConn
'// 将数据插入到指定的表中
strSQL = "INSERT INTO [" & strToDBConn & "].SQL数据库中的表名 SELECT EXCEL中的字段名(第一行) FROM EXECL工作表名"
adoConn.Execute strSQL, , adExecuteNoRecords
'// 这里有可能会产生一个错误，“系统不支持所选择的排序。(-***********)”
'// 但实际上已经有执行成功了，所以忽略此错误
If Err.Number = -*********** Then
Err.Clear
End If
