回覆列表
-
1 # 使用者2735111693393
-
2 # 藍風24
Sub aa()
Dim wb As Workbook
For Each wb In Workbooks
If wb.Name ActiveWorkbook.Name Then
wb.Close true
End If
Next
End Sub 預設儲存
Sub aa()
Dim wb As Workbook
For Each wb In Workbooks
If wb.Name ActiveWorkbook.Name Then
wb.Close true
End If
Next
End Sub 預設儲存
都是系統外的一些小的用途，主要是方便操作：1、vba中使用ado場景一：快速生成周期性固定格式報表 設定好模板，從資料庫或者別人提供的excel工作簿中取數，設個按鈕，一鍵生成各種週期性固定格式的報表，而且再也不用擔心別人臨時修改資料了，再按下按鈕就更新好了。場景二：區域網資料共享 同事a開共享，維護共享資料夾中的工作簿，其他同事在本機桌面上使用模板，手動一鍵（也可以設定間隔時間更新、或者設定工作簿開啟、關閉時更新）獲取同事a更新的資料。場景三：不同口徑的資料格式轉換 同事a和b的工作物件一樣，但是資料口徑不一樣，透過設定模板，同事b一鍵生成自己需要的格式的資料。方式可以同事a開區域網共享或者同事a傳送給同事b。2、vba中的小的自定義功能，錄製宏簡單修改下引數就行，這類比較駁雜，就不場景模擬了。