【開啟視窗選取資料夾顯示路徑】     With Application.FileDialog(msoFileDialogFolderPicker) '開啟選取檔案視窗       .InitialFileName = ActiveWorkbook.Path ...

【利用FileDialog產生檔案選取視窗】 With Application.FileDialog(msoFileDialogFilePicker) '開啟選取檔案視窗         .InitialFileName = ActiveWorkbook....

【取得目前使用者桌面路徑】 MsgBox "桌面路徑：" &  CreateObject("WScript.Shell").SpecialFolders("Desktop") 相關課程：無。 ...

【關閉指定活頁簿】 ActiveWorkbook.Close Workbooks(" 目前開啟的檔名.xlsx ").Close 若要避免跳出存檔提示視窗，可暫時將系統提示訊息關閉( 檔案有被修改將不會儲存 ) Application.Displ...

【開啟指定活頁簿】 Workbooks.Open Filename:=" 檔案完整路徑.xlsx ", UpdateLinks:=0 UpdtaeLinks:=0 代表檔案開啟時不會更新外部參照 ReadOnly:=true 代表以唯讀檔案開啟，預...

【使用FileSystemObject判定路徑下檔案是否存在】 Dim fs as Object Set fs = CreateObject("Scripting.FileSystemObject") If fs.fileexists(  完整檔案路徑...

【判斷資料夾是否存在，若資料夾不存在，則新增】 Dim fs as Object Set fs = CreateObject("Scripting.FileSystemObject") If fs.FolderExists( 資料夾完整路徑 ) = ...

【使用FileSystemObject函數判定路徑下資料夾是否存在】 Dim fs as Object Set fs = CreateObject("Scripting.FileSystemObject") If fs.FolderExists(  ...

【存檔時關閉系統提示訊息】 在活頁簿關閉或另存新檔時，系統會跳出提示或確認訊息 例如： 這樣經常造成程式中斷，必需由...

【工作表另存成PDF(發佈)】 ActiveWorkbook. ExportAsFixedFormat Type:= xlTypePDF , Filename:= " 完整路徑 .pdf", _ Quality:=xlQualityStan...

【活頁簿另存新檔】 ActiveWorkbook.SaveAs Filename:= 存檔完整路徑含檔名 , FileFormat:= 檔案格式 範例 ： ' 存成 xlsx ActiveWorkbook.SaveAs ...

【列出指定目錄下所有檔案名稱】 當你需要將特定資料夾下的檔案名稱放入 Excel 工作表內做處理，除了辛苦的將檔名個別複製或寫入外，還有沒有更快的方式 ?? 本範例是在工作表上放個按鈕，只要按下就即刻更新 目前檔案所在的資料夾 下所有的檔案名稱 ...

章老師的電腦小講堂 https://www.facebook.com/ScenicSchool/ ※※ 本區做為經常使用之程式碼複製區，提問請至小講堂唷 ※※ 【使用 Dir 讀取指定資料夾下的 檔案名稱 】 Dim myDir As Variant my...

章老師的電腦小講堂 https://www.facebook.com/ScenicSchool/ ※※ 本區做為經常使用之程式碼複製區，提問請至小講堂唷 ※※ 【開啟 Excel Workbook 】 Workbooks.Open Filename:= ...

【使用Dir函數判定路徑下資料夾是否存在】 If Dir( 資料夾完整路徑 , vbDirectory) = vbNullString Then     '資料夾不存在 Else     '資料夾存在 End IF 相同功能： 〔VBA〕Di...

【使用Dir函數判定路徑下檔案是否存在】 If Dir(  完整檔案路徑含副檔名   ) = "" Then     '檔案 不存在 Else     '檔案存在 End IF 參考文件： https://docs.mic...