- 帖子
- 82
- 主題
- 5
- 精華
- 0
- 積分
- 115
- 點名
- 0
- 作業系統
- Vista
- 軟體版本
- Office 2003
- 閱讀權限
- 20
- 性別
- 男
- 來自
- Taipei
- 註冊時間
- 2010-5-1
- 最後登錄
- 2023-4-18
|
Sub test()
spath = "D:\test\"
mybook = ActiveWorkbook.Name
Sheets("工作表A"").Range("A2:F56").Copy
Sheets.Copy
Workbooks(mybook).Sheets("工作表B").Range("A2:F50").Copy ActiveWorkbook.Sheets(1).Range("C1")
ActiveWorkbook.SaveAs spath & Format(Now(), "YYYYMMDDhhmmss") & Workbooks(mybook).Sheets("工作表C").Range("K3")
End Sub |
|
發表於 2019-6-20 18:58
| 