产生sql语句的vba

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84

//清除空列 <br><br>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  <br>//替换星  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