从Excel自动生成SQL CREATE TABLE及INSERT语句的自定义函数

ericxzhou

Excel ADO 毕竟没有专业SQL软件强大，我写了一个自定义函数，可以根据Excel表格自动生成建表语句，供参考：

1. Function SQLCTable(ByVal rng As Range, ByVal tblName As String) As String
   
2. 'rng为表的范围包含表头
   
3. 'tblName为表名，用双引号包围
   
4.     Dim i%, j%, arr, str$, str1$, str2$
   
5.     arr = rng
   
6.     For i = 1 To UBound(arr, 2)
   
7.         str1 = str1 & "," & arr(1, i) & typeJudge(arr(2, i))
   
8.         '需确保表头下第一行都有数据，第一行如为小数类型小数点后需有数字，否则无法判断列的数据类型
   
9.     Next
   
10.     str1 = "CREATE TABLE " & tblName & " (" & Right(str1, Len(str1) - 1) & ");" & Chr(10)
    
11.     For i = 2 To UBound(arr)
    
12.         For j = 1 To UBound(arr, 2)
    
13.             Select Case VarType(arr(i, j))
    
14.                 Case 7
    
15.                     str = str & "," & "'" & Format(arr(i, j), "yyyy-m-d") & "'"
    
16.                     '注意SQL存储日期数据的格式，不能用#号包围
    
17.                 Case 8
    
18.                     str = str & "," & "'" & arr(i, j) & "'"
    
19.                 Case 0, 1, 10
    
20.                     str = str & ",NULL"
    
21.                     '如需改为0，需判断字段类型，否则会发生插入不匹配报错
    
22.                 Case 2, 3, 4, 5, 6
    
23.                     str = str & "," & arr(i, j)
    
24.                 Case Else
    
25.                     str = str & "," & "'" & arr(i, j) & "'"
    
26.             End Select
    
27.         Next
    
28.         str2 = str2 & ")," & Chr(10) & "(" & Right(str, Len(str) - 1)
    
29.         str = ""
    
30.     Next
    
31.     SQLCTable = str1 & "INSERT INTO " & tblName & " VALUES " & Right(str2, Len(str2) - 2) & ");"
    
32. End Function
    
33. 
    
34. Function typeJudge(ByVal inputData As Variant) As String
    
35.     Select Case VarType(inputData)
    
36.         Case 7
    
37.             typeJudge = " DATE"
    
38.         Case 8
    
39.             typeJudge = " VARCHAR(100)"
    
40.             '100为最大长度，如不够可调
    
41.         Case 2, 3, 4, 5
    
42.             If Int(inputData) = inputData Then
    
43.                 typeJudge = " BIGINT"
    
44.             Else
    
45.                 typeJudge = " DOUBLE"
    
46.             End If
    
47.         Case Else
    
48.             typeJudge = " VARCHAR(100)"
    
49.         End Select
    
50. End Function

复制代码

·遁去的一·

看着很牛的样子，不会用

ykcbf1100

上个附件，来个实例呗

ericxzhou

ykcbf1100 发表于 2023-7-4 16:31
上个附件，来个实例呗

已在1楼增加

thtfzhaobo

之前写过类似的，可以在access，sqlserver,mysql
里面用，支持分享。

mmwwdd

很好，但在Excel中还是少用SQL,毕竟SQL是专业的