如何将excel导入到sqlserver数据库

Posted 2023-04-14

tags:

篇首语：本文由小常识网(cha138.com)小编为大家整理，主要介绍了如何将excel导入到sqlserver数据库相关的知识，希望对你有一定的参考价值。

1，打开sql server，并且准备好Excel数据表。
2，打开sql server之后随意选择一个数据库，右击任务——导入数据。
3，导入数据第一个页面，点击下一步。
4，选择数据源为Excel，选择文件路径和Excel版本，点击下一步。
5，选择目标源和服务器名称，使用自己的登录方式，点击下一步，选择第一个选项，复制。
6，选择表和数据目标，可以点击预览，然后下一步——立即执行——下一步——完成即可。参考技术A 在向sqlserver中插入数据的时候，把数据都转变成字符串类型的，试试看

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

高文龙关注0人评论1170人阅读2017-05-14 12:54:44

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

最近有个测试，需要将本地的Excel数据导入到SQL Server中，所以就写了一个这个脚本，供有需要的同学进行参考。因为在此演示测试，所以准备的数据都比较简单。

我们准备将本地的Excel的A列插入到数据库中的Username列

首先准备本地的Excel数据

然后准备数据库及表结构

开始上脚本

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"
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

我们开始开执行，开始插入第一条数据

执行完成

我们查看数据库表

因为vbs脚本里面有连接数据库的账户及密码，比较敏感，所以我们为了安全，我们需要将vbs转化成exe，但是这样的话，文件路劲是写死的，不方便，所以我们需要将源文件的路劲更改成浏览框。

更换前：
‘XLSPath = "d:users.xlsx"
更换后：
msgbox "请选择源文件"
XLSPath = CreateObject("WScript.Shell").Exec("mshta vbscript:""<input type=file id=f><script>f.click();new ActiveXObject(‘Scripting.FileSystemObject‘).GetStandardStream(1).Write(f.value)[close()];</script>""").StdOut.ReadAll

修改后的整体代码

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:""<input type=file id=f><script>f.click();new ActiveXObject(‘Scripting.FileSystemObject‘).GetStandardStream(1).Write(f.value)[close()];</script>""").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