excel文件转成sql的函数

excel文件转成sql的函数在Excel中，可以通过编写VBA宏来将数据转换为SQL语句。下面是一个示例函数，它可以读取Excel文件中的数据并生成相应的INSERT语句。

```

SubConvertExcelToSQL()

DimconnAsObject

DimrsAsObject

DimsConnStringAsString

DimstrSQLAsString

DimiAsInteger,jAsInteger

DimsSheetAsString

DimsDataRangeAsString

DimsTableNameAsString

'设置连接字符串（这里使用的是MicrosoftOLEDBProviderforSQLServer）

sConnString="Provider=SQLOLEDB;DataSource=ServerName;InitialCatalog=DatabaseName;UserID=UserName;Password=Password;"

'设置要读取数据的工作表名称、数据范围和目标表名称

sSheet="Sheet1"

sDataRange="A1:C10"

sTableName="TableName"

'创建连接对象和记录集对象

Setconn=CreateObject("ADODB.Connection")

Setrs=CreateObject("ADODB.Recordset")

'打开连接

conn.OpensConnString

'选择要操作的工作表

strSQL="SELECT*FROM["&sSheet&"$"&sDataRange&"]"

'执行查询语句

rs.OpenstrSQL,conn

'生成INSERT语句

strSQL="INSERTINTO"&sTableName&"VALUES"

'遍历查询结果，生成INSERT语句的值部分

WhileNotrs.EOF

strSQL=strSQL&"("

Forj=0Tors.Fields.Count-1

strSQL=strSQL&"'"&rs.Fields(j).Value&"',"

Nextj

'删除最后一个逗号

strSQL=Left(strSQL,Len(strSQL)-1)&"),"

rs.MoveNext

Wend

'删除最后一个逗号

strSQL=Left(strSQL,Len(strSQL)-1)

'执行插入语句

conn.ExecutestrSQL

'关闭连接和记录集

rs.Close

conn.Close

Setrs=Nothing

Setconn=Nothing

EndSub

```

要使用这个函数，可以在Excel中按下`Alt+F11`打开VBA编辑器，然后选择`插入`菜单中的`模块`，将上述代码粘贴到模块中。

需要根据实际情况修改以下参数：

-`DataSource=ServerName`：指定SQLServer的服务器名。

-`InitialCatalog=DatabaseName`：指定要连接的数据库名。

-`UserID=UserName`：指定连接数据库的用户名。

-`Password=Password`：指定连接数据库的密码。

-`sSheet`：指定要读取数据的工作表名。

-`sDataRange`：指定数据的范围（单元格起始位置和结束位置）。

-`sTableName`：指定要插入数据的表名。

注意：该函数仅适用于简单的数据