標題: 分頁存在指定的目錄內 [打印本頁]

---

作者: ssooi    時間: 2020-8-4 00:08     標題: 分頁存在指定的目錄內

我想要程式自動在D槽新增一個今天日期的目錄，並將分頁存在該目錄?
請問各位高手該怎麼做~
謝謝
謝謝

[attach]32365[/attach]

---

作者: n7822123    時間: 2020-8-4 13:18

本帖最後由 n7822123 於 2020-8-4 13:22 編輯

回復 1# ssooi

試試看

Sub 複製分頁0804()
oPath = "D:\" & Format(Date, "yyyy-mm-dd")
On Error Resume Next: MkDir oPath: On Error GoTo 0
For Each sht In Sheets
  theName = oPath & "\" & sht.Name & ".xls"
  sht.Copy
  ActiveWorkbook.SaveAs theName, xlNormal
  ActiveWorkbook.Close True
Next
End Sub

---

作者: ssooi    時間: 2020-8-5 20:12

回復 2# n7822123

謝謝這位高手!

---

作者: ssooi    時間: 2020-8-6 14:26

回復 2# n7822123


好像存成xlsx，雖然儲存成功了
但是檔案變成無法開啟
請問該如何排解
謝謝

---

作者: ssooi    時間: 2020-8-6 14:31

回復 4# ssooi


    抱歉~~我查到了
後面改為xlWorkbookDefault就可以了
謝謝

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)