如何在多张sheet表插入sql语句

optxxx

示例表.rar (1.98 KB, 下载次数: 13)

2018-9-6 14:32 上传

点击文件名下载附件

请教各位老师，如何在多张sheet表插入sql语句，需求如下：工作簿中存在多张sheet表，现需要在每张表的固定单元格内插入sql语句（="insert into "表名"(多个字段名)values(具体数据);"）每张sheet表字段个数不一致，改如何操作？谢谢！！示例见附件

optxxx

真心请教各位老师.

abc123281

在每张表的固定单元格内插入sql语句（="insert into "表名"(多个字段名)values(具体数据);"）
  这样做有什么意义呢   代码能执行吗
  要求不明白  要干什么也不知道

optxxx

abc123281 发表于 2018-9-7 08:38
在每张表的固定单元格内插入sql语句（="insert into "表名"(多个字段名)values(具体数据);"）
  这样做有 ...

其实就是在excel 中生成 sql insert 语句，但是有多张sheet表，所以字段的个数不一致，该如何自动生成

lsdongjh

Sub Test()
    MsgBox CreateSQL
End Sub


Function CreateSQL() As String
    Dim arr As Variant, lngCol As Long, arrTemp As Variant
    Dim strTableName As String, strFields As String, strValues As String
    Dim strSQL As String
   
    lngCol = ActiveSheet.Range("A2").End(xlToRight).Column
    arr = Range(Cells(1, 1), Cells(3, lngCol))
   
    strTableName = arr(1, 1)
    arrTemp = Application.WorksheetFunction.Index(arr, 2, 0)
    strFields = Join(arrTemp, ",")
    arrTemp = Application.WorksheetFunction.Index(arr, 3, 0)
    strValues = "'" & Join(arrTemp, "','") & "'"
   
    strSQL = "Insert Into " & strTableName & "(" & strFields & ") Values(" & strValues & ");"
   
    CreateSQL = strSQL
End Function