如何利用VBA，控制窗口在不同的工作表間切換
如何利用VBA控制窗口在不同的工作表間切換
或許你看過不同的VBA程序的運行，對於窗口的切換一定印象深刻。在程序運行時，根據不同的需求，窗口在不同的工作表間自由的切換，可以先從一個工作表取值，放到第二個工作表中，再從其他的工作表中取出參數並參與運算，運算得出結果，放到一個單獨的工作表中，看的人眼花繚亂。
這種運算是VBA所特有的。雖然在運行時會產生很多的碎片，影響時間的利用，但對於單純的運算來講，還是節約了時間，最主要的是提高了數據的準確性和可信度。
在羨慕別人的同時，是否也希望自己能做出這樣的程序呢？當然，對於每位學習VBA的朋友來說，這是很自然的事情，學以致用，利用自己的所學。從VBA入手點滴的積累，總會有所收穫，正如你經常來我這個平台，福不唐捐，總會能碰到你急於掌握的知識一樣。前些時有位朋友留言，說是幫了他大忙，但我確實不知道這位朋友的大忙是什麼，也並非給這位朋友定製的，總是機緣吧。
閑話少敘，其實這個實現起來很簡單的，今天就給大家講解一下利用VBA如何控制窗口的切換。
我們先看下面的代碼：
11 Dim AppPATH
12 AppPATH = ActiveWorkbook.Path
13 ChDir
AppPATH14 Workbooks.Open FileName:=AppPATH &
"XX.XLS" 打開文件15 Sheets("SHEET1").Select
16
17 Do While .Cells(I, 1).Value <>
""18-90 提取數據』
91 I = I + 1
92 Loop
93
94 ActiveWindow.Close (False) 關閉文件
95
96 Windows("LUMAN").Activate
97
98 Sheets("SHEET1").Select
99-199 執行操作
200
201 Sheets("SHEET2").Select
201-230 執行操作
231
232 MsgBox
("ok!")233
程序講解，上面的代碼是一個名為LUMAN.xls的EXCEL的VBA部分代碼，當執行到第11行時，程序會識別一下路徑，進而打開一個在同文件夾下名字為XX的文件。
15-93行程序會在此文件中進行操作，此時窗口的文件就是這個XX的文件，當執行到第94行時，文件XX會自動的關閉
執行到第95行時，活動窗口又回到了LUMAN的文件，先在SHEET1中進行操作，然後到SHEET2中進行操作。
所有操作執行完成後彈出對話框」OK」。
上面的代碼在運行的過程中用到了兩個文件，並在期間切換運行，窗口的可視性非常的好，這點比其他程序要友好，如VB6的控制項，GO對EXCEL的操作。這也是強大的EXCEL的功能造就的。
當然，對於初識VBA的朋友，上面的講解不是很解渴，不過沒關係的，上面的文章中引入了很多的知識點，如：如何獲得當前的地址,如何打開一個文件，如何關閉一個文件，如何把窗口切換到另外的文件等等，只要你掌握了其中之一，就有收穫，而且是不小的收穫。
今日內容迴向：
1 VBA如何獲得當前的地址,
2 VBA如何打開一個文件，
3 VBA如何關閉一個文件，
4 VBA如何把窗口切換到另外的文件
5 如何提高程序的可視性
6 如果不關閉上一個窗口，是否會影響到下面的操作？
我從事管理工作多年，這一系列文章是根據多年的經驗編寫的，也是一直在利用的工具，非常方便好用。現在分享出來，希望能對同樣在職場打拚的朋友有些許的幫助。
我的公眾號「VBA與GOLANG語言學習」或「NZ_9668」和「VBA學習交流社群」里有更多的內容分享。對數據分析有需要的公司、組織或個人可以直接加入聯繫我，為你提供專業的技術支持。朋友們有問題請隨時提出來，我們一起探討學習。目的就是玩轉Excel、VBA，提高工作效率，能有更多的時間和精力享受生活。
分享成果，隨喜正能量
推薦閱讀：
