VBS将本地的Excel数据导入到SQL Server中

wheat

Dim DB,objRecordSet　　
Dim Excel
　　
'SQL Server服务器地址
　　
Dim SQLserver
　　
'SQL Server 数据库
　　
Dim Database
　　
'SQL Server登录名
　　
Dim uid
　　
'SQL Server登陆密码
　　
Dim pwd
　　
'SQL Server 数据库表名
　　
Dim Tablename
　　
'SQL Server数据库表列字段
　　
Dim Column
　　
'Excel表路劲
　　
Dim XLSPath
　　

　　
SQLserver = "192.168.7.170"
　　
Database = "PasswordInfo"
　　
uid = "sa"
　　
pwd = "Password"
　　
tablename = "UserServerInfo"
　　
column = "Username"
　　
'XLSPath = "d:\users.xlsx"
　　
msgbox "请选择源文件"
　　
XLSPath = CreateObject("WScript.Shell").Exec("mshta vbscript:""f.click();new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(1).Write(f.value)[close()];""").StdOut.ReadAll
　　
Set DB = CreateObject("ADODB.Connection")
　　
Set objRecordSet = CreateObject("ADODB.RECORDSET")
　　
Set Excel = CreateObject("Excel.Application")
　　
DB.Open "Driver=SQL Server;server="&SQLserver&";Database="&Database&";uid="&uid&";pwd="&pwd&";"   Excel.DisplayAlerts=FALSE    Excel.visible=FALSE    Excel.workbooks.open(XLSPath)
　　
line = 1
　　
value = Excel.ActiveSheet.Cells(line,1).Value
　　
  Do While value  ""
　　
    line = line + 1
　　

　　
     insertDB(value)
　　
      value = Excel.ActiveSheet.Cells(line,1).Value
　　
         Loop
　　
msgbox "Finish"
　　

　　
Function insertDB(value)
　　
sql = "insert into "&Tablename &"("& Column &") VALUES ("&"'"&value&"'"&")"
　　
      'msgbox sql
　　
      DB.Execute(sql)
　　
   End Function