使用vba程式，實現excel資料庫模板生成sql資料庫結構

来源:https://www.cnblogs.com/hufanglei/archive/2020/06/06/13053081.html
-Advertisement-
Play Games

@ 最近公司有個需求，提前讓資料庫表結構在excel模板中設計，然後再建對應的資料庫DB。欄位少好說，無腦錄入即可，但是，我遇到個100多個欄位的，實在忍不了，最終入門了VBA編程，自己寫腳本生成了sql語句。減少了需要無用重覆勞動。 VBA基礎 首先學習下vba的基礎。 一.瞭解VBA 1.進入v ...


@目錄

最近公司有個需求，提前讓資料庫表結構在excel模板中設計，然後再建對應的資料庫DB。欄位少好說，無腦錄入即可，但是，我遇到個100多個欄位的，實在忍不了，最終入門了VBA編程，自己寫腳本生成了sql語句。減少了需要無用重覆勞動。

VBA基礎

首先學習下vba的基礎。

一.瞭解VBA

1.進入vba

alt + f11

文件 - 選項 - 自定義功能區 - 勾選開發工具

2.認識巨集

  • 錄製巨集

  • 使用相對應用錄製巨集

二. VBA編程

1.hello world

雙擊某個sheet頁, 把滑鼠放在 視窗裡面，點擊工具欄的插入，選擇過程，隨便起個過程名，比如 class就生成了代碼:

Public Sub class()
End Sub

寫個hello world程式:

Sub class()
    Dim name
    name = "Hello World"
    name = "胡老師好"
    MsgBox name    
End Sub

在這裡插入圖片描述

2.調出立即視窗和本地視窗

在工具欄中選擇 選擇立即視窗，和本地視窗。
在這裡插入圖片描述

3.debug顯示

Sub class()
    Dim name
    name = "Hello World"
    Debug.Print name
    name = "胡老師好"
    MsgBox name
    Debug.Print name
End Sub

在這裡插入圖片描述

4.註釋

註釋有2種形式，一種是rem。一種是 ' (單引號)

在這裡插入圖片描述

5.數據類型

variant 代表任意類型

single double decimal 代表 小數、

rem 代表註釋關鍵字

Const 常量關鍵字

在這裡插入圖片描述
在這裡插入圖片描述

Sub class()
    Rem variant是任意類型
    Dim name As Variant
    name = "Hello World"
    Rem debug
    Debug.Print name
    name = "胡老師好"
    Debug.Print name
    Rem 定義常量
    Const num As Integer = 123
    Debug.Print num
    
End Sub

5.變數的生命周期和定義域

  • 定義域: public 和 private
    在這裡插入圖片描述
  • static 是靜態變數
Sub class1()
Dim x As Integer
Rem static 是靜態變數
Static y As Integer
x = x + 1
y = y + 1
Debug.Print "x=" & x
Debug.Print "y=" & y
End Sub

6.判斷語句

Sub class3()
Dim number As Integer
number = 1
If number > 100 Then
   Debug.Print "優秀"
ElseIf number > 95 Then
   Debug.Print "良好"
Else
  Debug.Print "一般"
End If
End Sub

7.不等於<> , switch case 條件判斷

  • <> 不等於
Sub class3()
Dim number As String
number = "匹配"
If number > "匹配" Then
   Debug.Print "優秀"
ElseIf number <> "匹配" Then
   Debug.Print "良好"
End If
End Sub
  • switch case

Sub class4()
    Dim number As String
    number = "匹配"
    Select Case number
      Case "匹配"
        Debug.Print "匹配"
      Case "不匹配"
        Debug.Print "不匹配"
    End Select
        
End Sub
  • boolean類型的使用
Sub class5()
    Dim count As Integer
    Dim if_f As Boolean
    count = 11
    if_f = (count = 10)
    MsgBox if_f
End Sub

8.迴圈

  • 最簡單的迴圈
Sub class()
Rem 演示迴圈
Dim count As Integer
    For count = 1 To 10
        Debug.Print count
    Next
        Debug.Print "count 迴圈結束之後的值是 " & count
End Sub

在這裡插入圖片描述

  • 迴圈控制單元格屬性

    Sub class()
Rem 演示迴圈
Dim count As Integer
    For count = 2 To 10
        If count Mod 2 = 0 Then
            Rem rang函數代表選中的某列單元格
            Rem Interior代表單元格內部的對象
            Range("T" & count).Interior.ColorIndex = 1
        Else
            Range("T" & count).Interior.ColorIndex = 3
        End If
     Next
     Debug.Print "count 迴圈結束之後的值是 " & count
End Sub

在這裡插入圖片描述

  • 迴圈控制單元格求和

    Sub class()
Rem 演示迴圈
Dim COUNT As Integer
Dim score As Double
For COUNT = 2 To 20
    Rem cells的參數 第一個參數代表橫行，第2個參數代表豎行
    Cells(COUNT, 8) = "=sum(rc[-1]:rc[-6])"
Next
End Sub

在這裡插入圖片描述

  • 迴圈單元格操作+if
Sub class()
Rem 演示迴圈
Dim COUNT As Integer
Dim score As Double
For COUNT = 2 To 20
    Rem cells的參數 第一個參數代表橫行，第2個參數代表豎行
    Cells(COUNT, 8) = "=sum(rc[-1]:rc[-6])"
    score = Cells(COUNT, 8)
    If score > 700 Then
        Cells(COUNT, 9) = "秀兒"
    ElseIf score > 650 Then
        Cells(COUNT, 9) = "良好"
    Else
       Cells(COUNT, 9) = "小垃圾"
    End If
Next
End Sub

在這裡插入圖片描述

do while

Sub class()
    Rem do while 演示
    Dim count As Integer
    count = 20
    Do While count > 10
        Debug.Print count
        count = count - 1
        Debug.Print count
    Loop
    
    Rem do .. loop 條件 不演示了
     Do        
    Loop While count > 10
    
End Sub

在這裡插入圖片描述

退出迴圈的語句 exit for

使用for迴圈的時候退出用 exit for

Sub class1()
    Dim count As Integer
    For count = 1 To 10
        If count = 5 Then
            Debug.Print "count 退出迴圈的值是: " & count
            Exit For
        End If
        Debug.Print count
    Next
End Sub

在這裡插入圖片描述

退出迴圈的語句 exit do

使用fo while迴圈的時候退出用 exit do

Sub class1()
    Dim count As Integer
    Do While True
        count = count + 1
        If count > 5 Then
            Debug.Print "此時退出迴圈的值是: " & count
            Exit Do
        End If
    Loop
End Sub

在這裡插入圖片描述

9.數組

Sub class()
  Dim arr(2) As Variant
  Dim i As Integer
  arr(0) = "小明"
  arr(1) = 2
  arr(2) = True
  For i = 0 To 2
    Debug.Print arr(i)
  Next
End Sub

在這裡插入圖片描述

  • 下標越界

    Sub class()
 ' Const i As Integer = 10
 ' Dim arr(i) As Variant
  Rem  可以指明數組的範圍奧 起始開始限制了也是下標越界
  Dim arr(2 To 5) As Variant
  arr(1) = 1
  Debug.Print arr(1)
  
End Sub

在這裡插入圖片描述

10.二維數組

Sub class()
    Dim arr(2 To 5, 3 To 6) As Variant
      arr(2, 3) = 1
      Debug.Print arr(2, 3)
End Sub

在這裡插入圖片描述

  • 遍歷迴圈

    Sub class()
    Dim arr(2 To 5, 3 To 6) As Variant
      arr(2, 3) = 1
      'Debug.Print arr(2, 3)
      For x = 2 To 5
        For y = 3 To 6
            Debug.Print arr(2, 3)
        Next
      Next
      
End Sub

在這裡插入圖片描述

11.操作單元格

2中方式，一種是range，一種是cells

range
在這裡插入圖片描述

cells
在這裡插入圖片描述

實戰

現在掌握了上面的基礎知識，基本上可以滿足我們最開始的需求
解決思路: 迴圈方式獲取單元格中的內容，拼接成 sql 的創建腳本語句即可。

自定義vba腳本生成sql

  • 原來的excel模板內容:
    在這裡插入圖片描述
  • 目標:輸出sql創建表的語句:
    在這裡插入圖片描述
    具體實現的腳本:
Public Sub class()
    Rem 聲明欄位row的開始行號
    Const startRow As Integer = 13
    Rem 聲明欄位row的結束行號
    Const endRow As Integer = 28
    Rem 聲明表名
    Dim tableName  As String
    tableName = Range("E" & 6)
    Rem 聲明主鍵
    Dim primaryKey  As String
    primaryKey = Range("F" & 13)
    Rem 聲明表名註釋
    Dim tableComment As String
    tableComment = Range("E" & 7)
    Rem 聲明欄位名對應列 英文序號
    Dim filedMetaNo As String
    filedMetaNo = "F"
    Rem 聲明欄位註釋對應對應列 英文序號
    Dim commentMetaNo As String
    commentMetaNo = "C"
    Rem 聲明欄位備註 對應列的 英文序號
    Dim comment2MetaNo As String
    comment2MetaNo = "U"
    Rem 聲明類型 對應列的 英文序號
    Dim typeMetaNo As String
    typeMetaNo = "G"
    Rem 聲明字長 對應的列的英文序號
    Dim lengthMetaNo As String
    lengthMetaNo = "H"
    
    Rem 最終要拼接的sql
    Dim sqlStr As String
    sqlStr = "CREATE TABLE " & Range("E" & 6) & Chr(13)
    sqlStr = sqlStr & "(" & Chr(13)
    For count = startRow To endRow
       Rem 拼接 欄位名
       sqlStr = sqlStr & Replace(Range(filedMetaNo & count).Text, " ", "")
       Rem 拼接  欄位類型(欄位長度)
       sqlStr = sqlStr & "   " & Range(typeMetaNo & count)
       If IsEmpty(Range(lengthMetaNo & count)) = False Then
         sqlStr = sqlStr & "(" & Range(lengthMetaNo & count) & ")  "
       End If
       Rem 如果是主鍵，設置NOT NULL COMMENT
       If primaryKey = Range(filedMetaNo & count) Then
         sqlStr = sqlStr & " NOT NULL COMMENT "
       Else
        Rem 拼接  DEFAULT NULL COMMENT  '欄位名稱註釋(欄位備註)'
       sqlStr = sqlStr & " DEFAULT NULL COMMENT "
       End If
       sqlStr = sqlStr & "'" & Range(commentMetaNo & count)
       If IsEmpty(Range(comment2MetaNo & count)) = False Then
        sqlStr = sqlStr & "(" & Range(comment2MetaNo & count) & ")"
       End If
       sqlStr = sqlStr & "'"
       sqlStr = sqlStr & "," & Chr(13)
    Next
    sqlStr = sqlStr & "PRIMARY KEY (" & primaryKey & ")" & Chr(13)
    sqlStr = sqlStr & ")ENGINE=InnoDB DEFAULT CHARSET=utf8mb4 COMMENT='" & tableComment & "'" & Chr(13)
    Debug.Print sqlStr
 End Sub

顯示結果：
在這裡插入圖片描述

在navicat中運行
在這裡插入圖片描述

顯示已經把mysql資料庫的表結構導入資料庫了。

見證奇跡的時刻（如何使用腳本）

腳本只需要改一個地方:
在這裡插入圖片描述
對應這裡的行號:
在這裡插入圖片描述
即可。

在這裡插入圖片描述

以上即是用腳本生成的4張表效果圖。

個人微信公眾號：
搜索： 怒放de每一天
不定時推送相關文章，期待和大家一起成長！！
在這裡插入圖片描述

完

謝謝大家支持!


您的分享是我們最大的動力!

-Advertisement-
Play Games
更多相關文章
  • 文件系統格式化和掛載
    linux文件系統： 文件系統常用的Linux分為EXT1,EXT2,EXT3,EXT4，xfs，vfat等 windows：NTFS，fat12，fat16等 linux分區： linux文件分區工具有： fdisk 主要為msdos（MBR）分區表支持 最多只可以分出4個主分區或者3個主分區(p ...
  • 入選CBInsights 中國企業服務競爭力榜單，巨杉資料庫引領企業級市場
    巨杉資料庫榮譽入選中國企業服務競爭力榜單，技術產品方向和企業級市場領先地位再獲認可。 ...
  • redis基本操作 —— set
    一、向集合添加一個或多個成員 命令：sadd 格式：sadd key member1 [member2] 127.0.0.1:6379> sadd set_key m1 (integer) 1 127.0.0.1:6379> sadd set_key m2 m3 (integer) 2 二、返回集合 ...
  • 安裝pg10
    安裝pg10 一、install yum install https://download.postgresql.org/pub/repos/yum/reporpms/EL-7-x86_64/pgdg-redhat-repo-latest.noarch.rpm yum install postgre ...
  • mysql用戶的管理
    -- 創建用戶 create user '用戶名'@'ip地址' identified by 'password'; ip adress 可填%，即指可以在任何電腦上登錄 -- 給用戶進行授權 （一）grant 許可權(select,insert,update) on 資料庫名.表名 to '用戶名' ...
  • 如何將 Python 腳本放到任務欄 (Pin Python Script to Taskbar)
    本文記錄，將常用的 Python 腳本，放到任務欄，的設置方法。 把 Python 腳本，放到任務欄，的方法如下： 首先，要創建一個當前 Python 腳本文件的快捷方式。 然後，滑鼠右鍵，點擊腳本文件，打開文件屬性界面。 然後，手動更改快捷鍵的路徑（Target）；把快捷方式的，路徑格式，改為如下 ...
  • Elastic APM安裝
    安裝前準備： 安裝之前事先安裝好elasticsearch和kibana。 下載安裝包： apm-server-7.0.0-linux-x86_64.tar.gz （服務端包）elastic-apm-agent-1.7.0.jar（終端包） 安裝步驟： Apm-server終端安裝 Apm-serv ...
  • Python筆記（十八）：協程asyncio
    （一）asyncio 1、asyncio 用async 修飾詞來聲明非同步函數 2、asyncio.create_task(非同步函數)來創建任務 3、通過await asyncio.gather(任務)來執行任務 4、通過asyncio.run(函數)來觸發運行 5、一個比較好的方式是asyncio. ...
一周排行
    -Advertisement-
    Play Games
  • WPF 已知問題 監聽 WMI 事件導致觸摸失效
    示例項目結構 在 Visual Studio 中創建一個 WinForms 應用程式後，項目結構如下所示： MyWinFormsApp/ │ ├───Properties/ │ └───Settings.settings │ ├───bin/ │ ├───Debug/ │ └───Release/ ...
  • [STAThread]特性
    [STAThread] 特性用於需要與 COM 組件交互的應用程式，尤其是依賴單線程模型（如 Windows Forms 應用程式）的組件。在 STA 模式下，線程擁有自己的消息迴圈，這對於處理用戶界面和某些 COM 組件是必要的。 [STAThread] static void Main(stri ...
  • UWP WinUI3 傳入 AddHandler 的 RoutedEventHandler 類型與事件所需不匹配將拋出參數異常
    在WinForm中使用全局異常捕獲處理 在WinForm應用程式中，全局異常捕獲是確保程式穩定性的關鍵。通過在Program類的Main方法中設置全局異常處理，可以有效地捕獲並處理未預見的異常，從而避免程式崩潰。 註冊全局異常事件 [STAThread] static void Main() { / ...
  • .NET 多版本 WinForm 開源控制項庫 SunnyUI
    前言 給大家推薦一款開源的 Winform 控制項庫，可以幫助我們開發更加美觀、漂亮的 WinForm 界面。 項目介紹 SunnyUI.NET 是一個基於 .NET Framework 4.0+、.NET 6、.NET 7 和 .NET 8 的 WinForm 開源控制項庫，同時也提供了工具類庫、擴展 ...
  • .net core8 使用Swagger（附當前源碼）
    說明 該文章是屬於OverallAuth2.0系列文章，每周更新一篇該系列文章（從0到1完成系統開發）。 該系統文章，我會儘量說的非常詳細，做到不管新手、老手都能看懂。 說明：OverallAuth2.0 是一個簡單、易懂、功能強大的許可權+可視化流程管理系統。 有興趣的朋友，請關註我吧(*^▽^*) ...
  • WPF 什麼時候 VisualTreeHelper.GetDescendantBounds 將返回無窮大
    一、下載安裝 1.下載git 必須先下載並安裝git，再TortoiseGit下載安裝 git安裝參考教程：https://blog.csdn.net/mukes/article/details/115693833 2.TortoiseGit下載與安裝 TortoiseGit，Git客戶端，32/6 ...
  • C# 開源教程帶你輕鬆掌握數據結構與演算法
    前言 在項目開發過程中，理解數據結構和演算法如同掌握蓋房子的秘訣。演算法不僅能幫助我們編寫高效、優質的代碼，還能解決項目中遇到的各種難題。 給大家推薦一個支持C#的開源免費、新手友好的數據結構與演算法入門教程：Hello演算法。 項目介紹 《Hello Algo》是一本開源免費、新手友好的數據結構與演算法入門 ...
  • 第22篇 生成proto文件bat腳本
    1.生成單個Proto.bat內容 @rem Copyright 2016, Google Inc. @rem All rights reserved. @rem @rem Redistribution and use in source and binary forms, with or with ...
  • 記一次 .NET某上位機視覺程式 卡死分析
    一：背景 1. 講故事 前段時間有位朋友找到我，說他的窗體程式在客戶這邊出現了卡死，讓我幫忙看下怎麼回事？dump也生成了，既然有dump了那就上 windbg 分析吧。 二：WinDbg 分析 1. 為什麼會卡死 窗體程式的卡死，入口門檻很低，後續往下分析就不一定了，不管怎麼說先用 !clrsta ...
  • 醫學DICOM文件與PACS系統進行數據傳輸
    前言 人工智慧時代，人臉識別技術已成為安全驗證、身份識別和用戶交互的關鍵工具。 給大家推薦一款.NET 開源提供了強大的人臉識別 API，工具不僅易於集成，還具備高效處理能力。 本文將介紹一款如何利用這些API，為我們的項目添加智能識別的亮點。 項目介紹 GitHub 上擁有 1.2k 星標的 C# ...
所有分類