上次節課我們簡單介紹了下DOS批處理。我們學習DOS批處理是為了實現更高效更智能的辦公。今天我們來看看如何利用DOS批處理結合EXCEL來實現高效辦公吧。
01我們來看個簡單的例子：
任務要求：
將c:\tmp\data.txt 打開、分列處理。篩選出零庫存。另存為0庫存報表.xlsx在d:\data\temp\創建以當前日期使命的文件夾將生成的0庫存報表.xlsx 移動到d:\data\temp\當前日期文件夾
02本例實現步驟：
在C:\tmp\創建文本文件——生成0庫存報表.txt
編寫如下批處理腳本代碼：
@echo off
cd\
c:
cd C:\tmp 』將當前目錄設置在C:\tmp
start 生成0庫存報表.xlsm 』運行代VBA腳本可生成0庫存報表的程序文檔。
md d:\data\%date:~0,4%%date:~5,2%%date:~8,2% 『在d:\data下創建以當天日期命名的文件夾。
move 0庫存報表.xlsx d:\data\%date:~0,4%%date:~5,2%%date:~8,2% 』將生成的最終報表——0庫存報表.xlsx 移動到d:\data\當天日期命名的文件夾
start d:\data\%date:~0,4%%date:~5,2%%date:~8,2% '打開d:\data\當天日期命名的文件夾。
@echo on
如圖：
將生成0庫存報表.txt 擴展名改為.cmd或.bat ,本例改為: 生成0庫存報表.cmd
03生成0庫存報表的VBA程序文檔
新建 生成0庫存報表.xlsx
按ALT+F11,進入VBE編程環境 ，編寫如下VBA代碼：
Sub auto_open()
Application.DisplayAlerts = False
Workbooks.OpenText Filename:="C:\tmp\data.txt", Origin:=936, tartRow:=1 , DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), Array( 3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1)), TrailingMinusNumbers:=True '用EXCEL打開文本文件data.txt 並分列。 Cells.Select '全選
Selection.AutoFilter
ActiveSheet.Range("$A$1:$H$6011").AutoFilter Field:=7, Criteria1:="=0", Operator:=xlAnd '篩選庫存為0的列表。
Cells.Select '全選
Selection.Copy '複製
Workbooks.Add '新建文檔
Range("a1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks :=False, Transpose:=False '粘貼
Application.CutCopyMode = False
ActiveWorkbook.SaveAs Filename:="C:\tmp\0庫存報表.xlsx", FileFormat:= xlOpenXMLWorkbook, CreateBackup:=False '另存出0庫存報表
Workbooks("0庫存報表.xlsx").Close '關閉另存出0庫存報表
ActiveWorkbook.Close '關閉當前工作表
ActiveWorkbook.Close '關閉當前工作表
Application.DisplayAlerts = True
End Sub
如下圖所示：
04
將 生成0庫存報表.xlsx 另存為 ：生成0庫存報表.xlsm。
在excel 文件-選項-信任中心-宏設置-啟用所有宏
如下圖所示：
至此就完成了本例的製作。
滑鼠雙擊 生成0庫存報表.cmd 即可實現
將c:\tmp\data.txt 打開、分列處理。篩選出零庫存。另存為0庫存報表.xlsx在d:\data\temp\創建以當前日期使命的文件夾將生成的0庫存報表.xlsx 移動到d:\data\temp\當前日期文件夾
05思路
本例是利用DOS批處理 調用包含宏或VBA代碼的EXCEL文檔實現高效辦公。此方法是比較常見實用的方案希望對大家提高工作效率有所啟發和幫助。
喜歡我的文章請關注、轉發、點讚、收藏，謝謝大家的支持！
更多作者文章：
操作文檔你會更有效率
如何使用EXCEL 製作動態密碼登入窗體
EXCEL菜單還可以這樣個性定義
Excel 製作二級目錄的方法——表單控制項法
EXCEL蝴蝶圖還可以這樣製作