使用VB和宏在Excel中创建查询

Question

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

Answer 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