vba如何判斷某個資料夾下是否存在某工作簿

某乙個資料夾下存了許多檔案，想知道某一檔案是否存在，然後依據判斷結果進行各樣的操作。**可以這麼寫：

sub test()

dim filename as string
filename = thisworkbook.path & "\機密檔案.xlsx"
if len(dir(filename)) > 0 then
debug.print "yes"
else
debug.print "no"
end if
end sub

c:\users\joshua\desktop\測試\機密檔案.xlsx

c:\users\joshua\desktop\機密檔案.xlsx

sub test()

dim filename as string
filename = thisworkbook.path
filename = mid(filename, 1, instrrev(filename, "\"))
filename = filename & "機密檔案.xlsx"
debug.print filename
end sub
'輸出 → c:\users\joshua\desktop\機密檔案.xlsx

mid函式是擷取字串的，而instrrev函式返回乙個字串在另乙個字串**現的位置，從字串的末尾開始查詢。這裡就不詳細展開記錄了。

vba開啟關閉資料夾下的所有檔案

因為自己昨天想不通，在路上想了一會兒，今天過來一會兒就想明白了，看來做事還是講效率比較好，磨時間沒意義 sub dakaiguanbi 這個 就是進行二次後處理並生成建立新的excel dim str as string 這個vba 是後處理的 載入階段未接觸上進行修正 dim wb as work...

VBA刪除某些資料夾下的所有檔案

寫完就發現這個 不用寫得這麼重複的 sub shanchuwenjian dim str as string dim str2 as string 這個vba 是後處理的 載入階段未接觸上進行修正 dim i,jj,kk as integer dim wb as workbook for i 1 t...

執行某個資料夾下的全部py檔案

import os 執行乙個檔案裡所有的檔案,比如 def func path 先判斷這個path是檔案還是資料夾 isdir,isfile 如果是檔案 py結尾 if os.path.isfile path and path.endswith py 執行這個檔案 需要記怎麼執行檔案 os.syst...