通过vbs脚本从excel导入数据到SqlServer

直接上代码吧，最近研究了下vbs，刚有有个任务需要导入数据，就做了一个简单的导入数据操作，记录一下：

Dim xlApp
Dim xlWorkbook
Dim xlWorksheet

Set Cnn = CreateObject("ADODB.Connection")
Cnn.ConnectionString ="Provider=SQLOLEDB.1;Password=xxxxxxxxx;Persist Security Info=True;User ID=sa;Initial Catalog=xxxx;Data Source=xxxx"
Cnn.Open   '打开数据库连接
If Cnn.State = 0 Then      '判断数据库连接是否成功
     MsgBox "连接数据库失败"
else
     MsgBox "连接数据库成功"
End If

Set xlApp=CreateObject("Excel.Application")
Set xlWorkBook=xlApp.Workbooks.Open("C:\tel.xlsx")
xlApp.Visible=True
Set xlWorksheet=xlWorkBook.WorkSheets("Sheet1")
xlWorkBook.WorkSheets("Sheet1").Activate

FOr i=2 to 270
B=xlWorksheet.Range("B"&i).Value
C=xlWorksheet.Range