【VBA】【SQL】 将excel列数据 输出为 SQL文 Insert语句

在VBA中，你可以编写代码将Excel列数据转换为SQL的INSERT语句。以下是一个示例代码，假设你有一个Excel表格，其中每一列代表数据库表中的一个字段，每一行代表一条记录。

示例数据
假设你的Excel表格如下：

ID Name Age City
1 Alice 23 New York
2 Bob 30 Los Angeles
3 Charlie 25 Chicago
VBA代码
以下代码将上述数据转换为SQL的INSERT语句：

vba
复制
Sub GenerateSQLInsertStatements()
Dim ws As Worksheet
Dim lastRow As Long
Dim lastCol As Long
Dim i As Long
Dim j As Long
Dim sql As String
Dim tableName As String
Dim fieldNames As String
Dim fieldValues As String

' 设置工作表
Set ws = ThisWorkbook.Sheets("Sheet1")

' 设置表名
tableName = "YourTableName"

' 获取最后一行的行号
lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row

' 获取最后一列的列号
lastCol = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column

' 获取字段名（假设第一行是字段名）
fieldNames = "("
For j = 1 To lastCol
    fieldNames = fieldNames & ws.Cells(1, j).Value
    If j < lastCol Then
        fieldNames = fieldNames & ", "
    End If
Next j
fieldNames = fieldNames & ")"

' 遍历每一行数据
For i = 2 To lastRow
    fieldValues = "("
    For j = 1 To lastCol
        ' 处理文本字段，添加单引号
        If IsNumeric(ws.Cells(i, j).Value) Then
            fieldValues = fieldValues & ws.Cells(i, j).Value
        Else
            fieldValues = fieldValues & "'" & ws.Cells(i, j).Value & "'"
        End If
        If j < lastCol Then
            fieldValues = fieldValues & ", "
        End If
    Next j
    fieldValues = fieldValues & ")"
    
    ' 生成SQL INSERT语句
    sql = "INSERT INTO " & tableName & " " & fieldNames & " VALUES " & fieldValues & ";"
    
    ' 输出SQL语句到立即窗口（Ctrl + G 查看）
    Debug.Print sql
Next i

End Sub
代码说明
工作表设置：

ws 变量设置为当前工作簿中的第一个工作表（Sheet1）。

表名设置：

tableName 变量设置为你的数据库表名（例如 YourTableName）。

获取数据范围：

lastRow 获取最后一行的行号。

lastCol 获取最后一列的列号。

获取字段名：

假设第一行是字段名，将其拼接成SQL语句中的字段名部分。

遍历每一行数据：

从第二行开始遍历每一行数据，生成对应的VALUES部分。

对于文本字段，添加单引号；对于数字字段，直接使用。

生成SQL语句：

将表名、字段名和字段值拼接成完整的INSERT语句。

使用Debug.Print将生成的SQL语句输出到立即窗口（按 Ctrl + G 查看）。

输出示例
假设表名为 YourTableName，生成的SQL语句如下：

sql
复制
INSERT INTO YourTableName (ID, Name, Age, City) VALUES (1, 'Alice', 23, 'New York');
INSERT INTO YourTableName (ID, Name, Age, City) VALUES (2, 'Bob', 30, 'Los Angeles');
INSERT INTO YourTableName (ID, Name, Age, City) VALUES (3, 'Charlie', 25, 'Chicago');
注意事项
字段类型：确保生成的SQL语句中的字段值与数据库表中的字段类型匹配。

特殊字符：如果数据中包含单引号等特殊字符，需要进行转义处理。

大数据量：如果数据量较大，建议将生成的SQL语句输出到文本文件，而不是立即窗口。

通过这个VBA代码，你可以轻松地将Excel中的数据转换为SQL的INSERT语句，方便导入到数据库中。