- 帖子
- 4901
- 主題
- 44
- 精華
- 24
- 積分
- 4916
- 點名
- 109
- 作業系統
- Windows 7
- 軟體版本
- Office 20xx
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台北
- 註冊時間
- 2010-4-30
- 最後登錄
- 2024-5-11
              
|
回復 3# missbb
若工作表排序錯誤就容易出錯
建議將工作表對應密碼表寫再PASSWORD工作表(如圖)
直接取用工作表名稱對應密碼避免出錯
- Sub ex()
- Dim f$, fd$, fs$, A As Range
- fd = "D:\"
- With Sheets("PASSWORD")
- For Each A In .Range(.[A1], .[A1].End(xlDown))
- f = CStr(A)
- fs = fd & f & ".xls"
- Sheets(f).Copy
- With ActiveWorkbook
- .ActiveSheet.UsedRange = .ActiveSheet.UsedRange.Value
- .SaveAs Filename:=fs, Password:=CStr(A.Offset(, 1)), WriteResPassword:=""
- .Close 0
- End With
- Next
- End With
- End Sub
|
|
發表於 2013-11-26 13:49
| 
