- 帖子
- 354
- 主題
- 5
- 精華
- 0
- 積分
- 387
- 點名
- 0
- 作業系統
- windows7
- 軟體版本
- vba,vb,excel2007
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2017-1-8
- 最後登錄
- 2024-8-2
 
|
本帖最後由 singo1232001 於 2023-12-8 03:07 編輯
回復 9# missbb
Sub 同資料夾導出()
Set outSh = ActiveSheet
Set myBook = ThisWorkbook
Filename = outSh.[G2].Value & " " & Format(Now, "yyyyMMdd_HHnnss") & ".xlsx"
' 設定檔案保存路徑（更改為所需路徑）
filePath = myBook.Path & "\" & Filename
outSh.Copy
Set NewWorkbook = ActiveWorkbook
' 保存新工作簿
NewWorkbook.SaveAs Filename:=filePath
End Sub
Sub G1G2另存路徑導出()
Set outSh = ActiveSheet
Set myBook = ThisWorkbook
Filename = outSh.[G2].Value & " " & Format(Now, "yyyyMMdd_HHnnss") & ".xlsx"
' 設定檔案保存路徑（更改為所需路徑）
filePath = Range("G1").Value & "\" & Filename
outSh.Copy
Set NewWorkbook = ActiveWorkbook
' 保存新工作簿
NewWorkbook.SaveAs Filename:=filePath
End Sub
Sub 資料選擇器路徑導出()
Set fd = Excel.Application.FileDialog(msoFileDialogFolderPicker) '設定選取檔案功能
fd.InitialFileName = Excel.ActiveWorkbook.Path '設定預設目錄
fd.Show '顯示對話框
If fd.SelectedItems.Count = 0 Then Exit Sub
Set myBook = ThisWorkbook
Set outSh = ActiveSheet
myPath = fd.SelectedItems(1)
Filename = outSh.[G2].Value & " " & Format(Now, "yyyyMMdd_HHnnss") & ".xlsx"
' 設定檔案保存路徑（更改為所需路徑）
filePath = Range("G1").Value & "\" & Filename
outSh.Copy
Set NewWorkbook = ActiveWorkbook
' 保存新工作簿
NewWorkbook.SaveAs Filename:=filePath
End Sub |
|
發表於 2023-12-8 03:06
| 