使用 VBA 和宏在 Excel 中创建查询答案

【问题标题】：creating queries in excel using VB and macros使用 VBA 和宏在 Excel 中创建查询
【发布时间】：2017-07-19 00:34:05
【问题描述】：

我在 excel 中有很多不同列的数据。我的任务是为每一行创建插入语句。我已经使用了 excel 的连接功能，但我想自动化这个方法。另一个任务是将'（单引号）替换为''（2个单引号），以便可以在sql语句中调整字符。主要是一旦我得到了excel，我运行我的脚本，它会自动进行所有的查询。之后，我将在 SQL developer 或 TOAD 中手动运行这些查询。

【问题讨论】：

标签： sql excel vba insert

【解决方案1】：

在没有关于您的表格和 Excel 数据的任何信息的情况下，这里有一个示例，假设您的 Excel 数据位于从第 2 行开始的列 A:D 中，与您的表格具有相同的布局。我还假设您的所有字段都是文本类型。

Sub createQueries()

    Dim r As Range, cel As Range, record As String

    'Get the range to export
    With Sheet1
        Set r = .Range("A2:D" & .Range("D999999").End(xlUp).Row)
    End With

    ' Create a text file for the query
    With CreateObject("Scripting.FileSystemObject").CreateTextFile("c:\SO\queries.txt")
        For Each r In r.Rows
            ' create an Insert line into the query
            record = "INSERT INTO MYTABLE (""FieldA"", ""FieldB"", ""FieldC"", ""FieldD"") Values ("
            For Each cel In r.Cells
                record = record & "'" & Replace(cel.Text, "'", "''") & "',"
            Next
            record = Left(record, Len(record) - 1) & ");"
            .WriteLine record
        Next
        .Close
    End With
End Sub

【讨论】：