返回列表 上一主題 發帖

分頁存在指定的目錄內

分頁存在指定的目錄內

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

班級.rar (12.97 KB)

本帖最後由 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
程式是依需求寫的,需求表達不清楚
或者沒有上傳附件,愛莫能助

TOP

回復 2# n7822123

謝謝這位高手!

TOP

回復 2# n7822123


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

TOP

回復 4# ssooi


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

TOP

        靜思自在 : 能善用時間的人,必能掌握自己努力的方向。
返回列表 上一主題