VBA 活頁簿(Workbooks)管理@ Edison.X. Blog - 痞客邦

置頂 VBA 活頁簿(Workbooks)管理 ... filename = "C:\VBA\test.xls" Workbooks.Open filename ... 關閉指定檔案, 不提示訊息. Dim filename As String Edison.X.Blog 跳到主文 YouLoveMe()?LetItBe():LetMeFree(); 部落格全站分類：數位生活 相簿 部落格 留言 名片 Jan18Tue201121:30 VBA活頁簿(Workbooks)管理 '------------------------------------------------------------'查看目前開啟excel檔案數量Dim OpenCntas IntegerOpenCnt =Application.Workbooks.Count '------------------------------------------------------------'依序查已開檔名-方法一   DimiAsInteger   Fori=1ToWorkbooks.Count       MsgBoxi&""&Workbooks(i).Name   Next '------------------------------------------------------------'依序查已開檔名-方法二 DimmySheetAsWorkSheetForEachmySheetInWorksheets   MsgBoxmySheet.NameNextmySheet '------------------------------------------------------------'開啟特定檔案-方法一filename="C:\VBA\test.xls"Workbooks.Openfilename '------------------------------------------------------------'開啟特定檔案-方法二DimfilenameAsStringfilename="C:\VBA\test.xls"   DimsnAsObject   Setsn=Excel.Application   sn.Workbooks.Openfilename    'sn.Workbooks(filename).Close'關閉   Setsn=Nothing '------------------------------------------------------------'關閉指定檔案,不提示訊息   Dimfilename AsString   filename="Test.xls" '這裡只可以給短名,給全名會錯   ' 假設Test.xls已於開啟狀態   Application.DisplayAlerts=False'關閉警告訊息   Workbooks(filename).Close   Application.DisplayAlerts=True'再打開警告訊息 '------------------------------------------------------------'關閉所有開啟檔案,但留下主視窗Workbooks.Close '------------------------------------------------------------'關閉excel程式Application.Quit '------------------------------------------------------------' 直接進行存檔DimfilenameAsStringfilename="a.xls"'只可為短檔名WorkBooks(filename).Save '------------------------------------------------------------'指定檔名進行另存新檔，並關閉'假設要將"a.xls"存成"C:\b.xls" Application.DisplayAlerts=False'關閉警告訊息Workbooks("a.xls").SaveAs"C:\b.xls"'另存新檔Workbooks("b.xls").Close'關閉b.xlsApplication.DisplayAlerts=True'開啟警告訊息 '------------------------------------------------------------'指定當前活頁簿 DimCaptionasStringCaption="a.xls"Workbooks(Caption).Activate' 將視窗切到a.xls 全站熱搜 創作者介紹 edisonx Edison.X.Blog edisonx發表在痞客邦留言(0)人氣() E-mail轉寄 全站分類：數位生活個人分類：VBANote此分類上一篇：VBA視窗與程式 此分類下一篇：VBA時間函式 上一篇：VBA視窗與程式 下一篇：預處理器(Preprocessor) 歷史上的今天 2011:VBA視窗與程式 2011:VBA99乘法7種寫法 ▲top 留言列表 發表留言 站方公告 [公告]2022年度農曆春節期間服務公告[公告]MIB廣告分潤計劃、PIXwallet錢包帳戶條款異動通知[公告]2021年度農曆春節期間服務公告 活動快報 舒特膚經典三件組 舒特膚全新升級！有效解決敏弱肌5大問題：乾燥、粗... 看更多活動好康 我的好友 熱門文章 文章分類 開發手札(2) 未實作的想法(4)心得筆記(2) C/C++(8) C/C++Note(52)亂數(10)Debug(9)HiddenFeaturesinC(6)面試題庫(12)OONOTE(0)C/C++FAQ(4)STLNote(3) 應用軟體/工具(1) Office(1) 數值分析(9) 非線性方程式求解(10)矩陣運算(7)深入質數(5)浮點數(9)複數Complex(2)積分法(2)多項式內差法(2)常見關於數(5)math.h/cmathapplication(8) 程式之美(1) 遊戲之樂(3) VB.Net(1) VB.NetNote(1) 英文(1) 專題單字(1) AutoIt!!(2) AutoIt!!Note(13)Auto-Dll(9) VBA(4) VBANote(9)VBAFAQ(5)VBAtec.(1)VBA_Note2(3) MFC(1) MFC雜記(4) Win32(8) Win32-Console(5)Process(10)檔案系統(1)音效(1)隱喻外掛(3)GDI(2)Systemundoc.(0)記憶體管理(1) 環境與Script(5) visualstudio(6)批次檔batch(2)VBS(0)程式環境架構(3)Library(3) 數學整理(2) 有趣數學(2)常用公式(1) 演算法(7) AI(13)Bit-Hacks(1)大數(5)資料結構(0)影像(2)遞迴-recursive(2)回溯.列舉.遞迴(2) 程設亂語(1) 胡言亂語(11) SmallTalk(1) SmallTalk(27) 最新文章 最新留言 動態訂閱 文章精選 文章精選 2017二月(1) 2016十月(1) 2014四月(1) 2014三月(1) 2014二月(2) 2014一月(1) 2013九月(2) 2013五月(1) 2013一月(3) 2012十二月(10) 2012十一月(6) 2012十月(4) 2012八月(1) 2012七月(13) 2012六月(17) 2012五月(2) 2012四月(15) 2012三月(9) 2012一月(4) 2011十二月(7) 2011十一月(33) 2011十月(8) 2011九月(8) 2011八月(11) 2011七月(3) 2011六月(7) 2011五月(12) 2011四月(13) 2011三月(5) 2011二月(1) 2011一月(31) 2010十二月(34) 2010十一月(22) 2008六月(1) 2008五月(1) 2008三月(11) 2007十一月(1) 2005十一月(2) 所有文章列表 文章搜尋 新聞交換(RSS) 誰來我家 參觀人氣 本日人氣： 累積人氣： QRCode POWEREDBY (登入) {{article.user_name}} {{article.timestamp*1000|date:'MMM.dd.y.hh.mm'}} {{article.title}} {{article.content}} 我要留言 回到頁首 回到主文 免費註冊 客服中心 痞客邦首頁 ©2003-2022PIXNET 關閉視窗 PIXNET Facebook Yahoo! Google MSN {{guestName}} (登出) 您尚未登入，將以訪客身份留言。

亦可以上方服務帳號登入留言 請輸入暱稱(最多顯示6個中文字元) 請輸入標題(最多顯示9個中文字元) 請輸入內容(最多140個中文字元) 請輸入左方認證碼： 看不懂,換張圖 請輸入驗證碼 送出留言