分頁存在指定的目錄內

帖子: 37
主題: 15
精華: 0
積分: 72
點名: 0
作業系統: win10
軟體版本: 0
閱讀權限: 20
註冊時間: 2020-7-23
最後登錄: 2022-5-27

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2020-8-4 00:08 | 只看該作者

分頁存在指定的目錄內

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

班級.rar (12.97 KB)

樓主熱帖

帖子: 37
主題: 15
精華: 0
積分: 72
點名: 0
作業系統: win10
軟體版本: 0
閱讀權限: 20
註冊時間: 2020-7-23
最後登錄: 2022-5-27

5^#

發表於 2020-8-6 14:31 | 只看該作者

回復 4# ssooi

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

帖子: 37
主題: 15
精華: 0
積分: 72
點名: 0
作業系統: win10
軟體版本: 0
閱讀權限: 20
註冊時間: 2020-7-23
最後登錄: 2022-5-27

4^#

發表於 2020-8-6 14:26 | 只看該作者

回復 2# n7822123

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

帖子: 37
主題: 15
精華: 0
積分: 72
點名: 0
作業系統: win10
軟體版本: 0
閱讀權限: 20
註冊時間: 2020-7-23
最後登錄: 2022-5-27

3^#

發表於 2020-8-5 20:12 | 只看該作者

回復 2# n7822123

謝謝這位高手!

n7822123

　暱稱: 阿龍

帖子: 406
主題: 8
精華: 0
積分: 453
點名: 0
作業系統: WINDOWS 7
軟體版本: 2007
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2015-2-7
最後登錄: 2021-7-31

2^#

發表於 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

程式是依需求寫的，需求表達不清楚
或者沒有上傳附件，愛莫能助