我有一個從A2到B6的數值范圍，我希望在一個新的作業簿中保存這些單元格。目標檔案夾在(C:)，名稱為 "產品"，因此新作業簿必須在這個檔案夾內。
另外，作為一個補充，如果在保存檔案之前，宏能夠通過一個輸入框詢問我想給新的excel檔案取什么檔案名，那將是非常了不起的。
uj5u.com熱心網友回復：
像這樣的東西可以完成這項作業：
Sub CopyToNewWb()
Dim wb As Workbook
Dim wb_New As 作業簿
Set wb = ThisWorkbook
Dim wbstring As String
Dim input_file_name As String
input_file_name = InputBox("輸入檔案名", "輸入新作業簿檔案名") '創建輸入框。
wbstring = "C:Products" '設定作業簿路徑。
Workbooks.Add.SaveAs 檔案名:=wbstring & input_file_name & ".xls", FileFormat:=56 '如果用戶兩次輸入同一個名字，我將在這里添加日期。
Set wb_New = ActiveWorkbook
wb_New.Worksheets("Sheet1").Range("A2:B6").Value = wb.Worksheets("Sheet1") 。 Range("A2:B6").Value 'Copy Range from wb to new workbook。
End Sub
關于不同的檔案格式號，請看鏈接。 https://docs.microsoft.com/en-us/office/vba/api/excel.xlfileformat
轉載請註明出處，本文鏈接：https://www.uj5u.com/qukuanlian/324155.html
標籤：