【VBA】EXCEL通过VBA生成SQL，自动生成创建表结构SQL

原文：https://blog.csdn.net/zutsoft/article/details/45441343

编程往往与数据库密不可分，一个项目往往有很多的表，很多时候通过excel来维护表结构，记录表名，字段，类型，注释等等信息，将表结构整理到excel已经是件很累的事了，如果整理好的表结构只是用来查字段当字典用，那就太浪费了，excel提供vba编程，我们可以通过一段小脚本来实现一键创建表结构。使用脚本创建的语句需要标准化每个sheet页的格式，格式根据自己需要来做，这里给出我使用的格式和脚本。

EXCEL模板

VBA编程

打开excel vba编程工具，在ThisWorkbook中添加如下代码：

 

[vb]  view plain  copy

 

1. Private Sub Workbook_BeforeClose(Cancel As Boolean)  
2. '关闭工作簿前，删除新创建的工具条先  
3.   Dim bar_name As String  
4.   bar_name = "HRBSJ"  
5.   Application.CommandBars(bar_name).Delete  
6.   On Error GoTo Exception  
7.   Exit Sub  
8. Exception:  
9. End Sub  
10. Private Sub Workbook_Open()  
11. '打开工作簿时创建工具条  
12.   Dim bar_name As String  
13.   Dim new_bar As Office.CommandBar  
14.     
15.   bar_name = "HRBSJ"  
16.   
17.   Set new_bar = Application.CommandBars.Add(bar_name)  
18.   new_bar.Visible = True  
19.     
20.   new_bar.Position = msoBarLeft  
21.     
22.         
23.   With new_bar.Controls.Add(Type:=msoControlButton, before:=1)  
24.     .BeginGroup = True  
25.     .Caption = "生成建表脚本"  
26.     .TooltipText = "生成建表脚本"  
27.     .Style = msoButtonCaption  
28.     .OnAction = "Create_HR_Table_Script"  
29.   End With  
30.     
31.   
32.     
33.   On Error GoTo Exception  
34.   Exit Sub  
35. Exception:  
36. End Sub  

 

创建模块：

 

[vb]  view plain  copy

 

1. Private Sub ShowTable()  
2.   frmTable.Show  
3. End Sub  
4. Private Sub Create_HR_Table_Script()  
5.   Dim line_tablename As Integer, len_col_id As Integer, len_str_type As Integer, col_num As Integer  
6.   Dim do_column As Boolean, column_end As Boolean  
7.   Dim table_name As String, str_col_id As String, str_space As String  
8.   Dim primary_col As String, index_col As String, str_primary As String  
9.     
10.   Dim str_temp As String, str_type As String, str_null As String, str_column As String  
11.   
12.        
13.   max_line = 1000  
14.   no_data = 0  
15.   do_column = False  
16.   column_end = False  
<