zoukankan      html  css  js  c++  java
  • 产生sql语句的vba

    //清除空列 

    Sub ClearNullMacro1() Dim j As Integer Dim colCount As Integer colCount = Cells(2, Columns.Count).End(xlToLeft).Column For j = 1 To colCount Dim v As String v = Cells(2, j).value ' MsgBox v If v = "" Then Columns(j).Delete Dim PauseTime PauseTime = Timer + 1.5 colCount = Cells(2, Columns.Count).End(xlToLeft).Column End If Next MsgBox "successed" & Cells(2, Columns.Count).End(xlToLeft).Column End Sub //创建sql语句 Sub GenerateSqlMacro1() For Each Sh In Worksheets Dim j As Integer Dim colCount As Integer Dim keys As String Dim values As String colCount = Sh.Cells(2, Columns.Count).End(xlToLeft).Column For j = 1 To colCount keys = keys & Sh.Cells(1, j).value & ", " & Chr(10) values = values & "'" & Sh.Cells(2, j).value & "', " & Chr(10) Next Sh.Cells(5, 1).value = "insert into " & Sh.Name & "(" & Chr(10) & keys & ")" Sh.Cells(7, 1).value = "values (" & Chr(10) & values & ")" keys = "" values = "" Next MsgBox "successed" End Sub
    //替换星 Sub HandleXing() For Each Sh In Worksheets Dim j As Integer Dim colCount As Integer Dim keys As String Dim values As String Dim parms As String colCount = Sh.Cells(2, Columns.Count).End(xlToLeft).Column For j = 1 To colCount keys = keys & Sh.Cells(1, j).value & ", " & Chr(10) If InStr(Sh.Cells(2, j).value, "*") <= 0 Then values = values & "'" & Sh.Cells(2, j).value & "', " & Chr(10) Else Dim value As String value = Replace(Sh.Cells(2, j).value, "*", "@") values = values & value & ", " & Chr(10) parms = parms & "declare " & value & " nvarchar(200) " & Chr(10) End If Next Sh.Cells(11, 1).value = "insert into " & Sh.Name & "(" & Chr(10) & keys & ")" Sh.Cells(12, 1).value = "values (" & Chr(10) & values & ")" Sh.Cells(13, 1).value = parms keys = "" values = "" parms = "" Next MsgBox "successed" End Sub
  • 相关阅读:
    html之长文本框置顶
    Red Hat Enterprise Linux Server 6.5安装GCC 4.9.2
    精通正则表达式
    解决UNION ALL合并两个结果集后排序的问题
    ELK搭建日志管理系统记录
    Spring Boot使用@ConfigurationProperties 读取自定义的properties的方法
    maven配置profile,按指定环境打包
    java自定义标签,tld文件,获取数据字典的值
    JAVA实现RSA签名、验签
    jquery.validate.js中的remote用法
  • 原文地址:https://www.cnblogs.com/haoliansheng/p/4962189.html
Copyright © 2011-2022 走看看