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

 

 

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).Se