原创 VBA-組合框聯動（通過XML進行文件傳輸）
我們知道，用XML文件傳輸文件有很多好處，現在我們來做一個簡單的小程序--一個省對應它的市在列表中顯示出來首先我們得製作一個窗體，具體佈局如下圖首先我們得有一些基本信息，省市的基本信息然後我們製作一個窗體，佈局如運行效果圖所示，其次我們得
2020-06-20 12:42:43
7
原创 vba-access 數據庫連接，增，刪，改，查
Option ExplicitSub 數據庫連接()'告訴電腦，我們要有ado，引用ado'創建連接對象'給對象取名字Dim con As ADODB.Connection '聲明對象變量'創建對象變量並賦值Set con = New A
2020-06-20 12:42:43
45
原创 VBA-自動對賬（改善版）僅供參考
1.在工作表的open事件中添加代碼，用以提醒用戶使用規則 Private Sub Workbook_Open() If MsgBox("該工作表僅支持快遞對賬費用，如不是快遞費用對賬請關閉", vbYesNo, "溫馨提示") =
2020-06-20 12:42:33
2
原创 VBA--XML文件的讀取與輸出
XML的簡單使其易於在任何應用程序中讀寫數據，這使XML很快成爲數據交換的唯一公共語言，雖然不同的應用軟件支持其它的數據交換格式，但不久之後他們都將支持XML，那就意味着程序可以更容易的與Windows, Mac OS, Linux以
2020-06-20 12:42:33
243
原创 VBA-合併多個工作簿
1.首先我們理清思路，我們將所有要合併到一起的Excel工作簿放到一個文件夾裏，該文件夾裏面有一個啓用宏的工作表，啓動該工作表的宏，就可以將該文件夾裏面的所有Excel文件的內容合併到一張表裏面，後面可以將合併完成後的數據複製或剪切到新的
2020-06-20 12:42:33
38
原创 VBA-如何用代碼打開工作簿
1.代碼很簡單，只要把文件路徑寫清楚就好了Option ExplicitSub 打開工作表()Dim wb As WorkbookSet wb = Workbooks.Open("C:/Users/oyq/Desktop/作業/工作簿1.
2020-06-20 12:42:33
3
原创 VBA-批量數據分類
1.近期做了一個將總表數據按一定的分類規則來拆分成幾個分表的自動錶格，數據源不便公佈，在這裏只發布代碼，僅供參考： Sub classfication() Dim w0 As Workbook Dim w1 As Wor
2020-06-15 00:31:30
原创 VBA-DIR函數（文件自動歸檔）
1.今天用dir函數做了一個自動將文件歸檔的程序，我們一起來看看效果，首先，文件夾裏面的文件名稱如下圖所示，我們可以看到所有的文件名（除我們寫VBA代碼的表格）都符合2020.xx.xx.xlsx的格式 2.我們要做的是將同一月份的表格
2020-05-09 19:49:13
1
原创 VBA-自動篩選符合條件的數據
1.效果圖如下 2.我們可以看到符合條件---即入住日期剛好滿7天的數據信息被篩選出來 3.代碼如下 Option Explicit Dim w0 As Workbook Dim book0 As Worksheet Dim book
2020-03-10 04:43:28
1