'因為自己昨天想不通，在路上想了一會兒，今天過來一會兒就想明白了，看來做事還是講效率比較好，磨時間沒意義
sub dakaiguanbi()
'這個**就是進行二次後處理並生成建立新的excel
dim str as string
'這個vba**是後處理的**,載入階段未接觸上進行修正
dim wb as workbook
str = dir("c:\users\dell\desktop\儲存\*.*")
' activewindow.windowstate = xlnormal
dim xunhuan as integer
str = dir
if str = "" then
exit for
end if
next
end sub
『20201127-9：45
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...
VBA 拷貝資料夾下的所有檔案到乙個新的資料夾下
把 中path下的檔案複製到afterpath目錄下 sub copyfiles path as string,afterpath path 原資料夾路徑 afterpath 目標資料夾路徑 dimspath as string 下邊的我自己也不是很理解，但是效果達成是莫得問題的.set fs cr...
VBA 合併同一資料夾下的所有表
同一資料夾下由n多表，且表的格式相同，需要將表合併在一張表中，以方便統計。sub 合同同一資料夾下的所有表 dim r as long,c as long r 1 c 3 c的值是為了控制有幾列，可以根據實際情況調整 range cells r,a cells 65536,c clearconten...