vba实现数据自动复制粘贴-生成sql创建脚本和json格式脚本存入指定路径下

VBA实现数据复制粘贴及脚本生成存储

最新推荐文章于 2025-06-10 11:48:37 发布

原创

最新推荐文章于 2025-06-10 11:48:37 发布 · 832 阅读

0 ·

CC 4.0 BY-SA版权

这段VBA代码演示了如何在Excel中实现数据操作，包括从Sheet1复制数据到Sheet2，修改特定单元格内容，然后生成SQL创建脚本和JSON格式的文件并保存到指定路径。代码还会根据数据类型转换字段，并根据用户选项生成不同类型的JSON和SQL语句。

Private Sub CommandButton1_Click()

Sheet1.Range("B10").Value = Sheet1.Range("D2").Value + Sheet1.Range("B3").Value + ".sql"
Sheet1.Range("B14").Value = Sheet1.Range("D2").Value + Sheet1.Range("B3").Value + ".json"
Sheet1.Range("B16").Value = Sheet1.Range("D2").Value + Sheet1.Range("B3").Value

i = Sheet1.Range("A65536").End(xlUp).Row

'# 复制字段到sheet2中'

Sheets("首页").Activate
Sheet1.Range("A19 : K" & i).Select

'Sheet1.Range(Cells(A, 19), Cells(K, I)).Select

Selection.Copy
Sheets("Sheet2").Activate
Sheet2.Range("A15").Select
ActiveSheet.Paste
Sheets("首页").Activate

'# 修改realDbName名字为：'

Sheets("首页").Activate
Sheet1.Range("B16").Select
Selection.Copy
Sheets("Sheet2").Activate

M = Sheet2.Range("A65536").End(xlUp).Row

Sheet2.Range("A6 : A" & M).Select
ActiveSheet.Paste
Sheets("首页").Activate

''''''''''''''''''''''''''''''''''''''''''

Sheet1.Range("H19 : H" & i).Select
Selection.Copy
Sheets("json必填").Activate
Sheet6.Range("B2").Select
ActiveSheet.Paste

Sheet6.Range("E2").Select
ActiveSheet.Paste
Sheets("首页").Activate

'# 生成create 语句写入sql文件，存放到指定目录下

Sheets("Sheet2").Activate

For num = 6 To M
Dim columm_type_m As String
columm_type_m = Sheet2.Range("C" & num).Value

If columm_type_m Like "*varchar*" Or columm_type_m Like "*char*" Then
Sheet2.Range("C" & num).Value = "string"

End If


Next num

Sheet2.Range("C6:C" & M).Select
Selection.Copy
Sheets("Sheet2").Activate


Sheet2.Range("F6 : F" & M).Select
ActiveSheet.Paste

Dim sql As String
Dim tableName As String

' For si = 1 To Workbooks(1).Sheets.Count '从第一张表开始,遍历每一张表

' Set mysheet = Workbooks(1).Sheets(si) '表
tableName = Sheet1.Range("B16").Value ' 英文表名


'如果数据库中已存在表，则删除表
'if exists drop table tableName
&nbs