vba工作表命名并保存到新工作簿

Question

如题所述

Answer 1

newName = Sheets("Sheet2").Range("B2") '所谓的另一个工作表的单元格，自己改工作表名称和单元格以获得新工作簿的名称SaveDir = Application.GetOpenFilenameSaveDir = Left(SaveDir, InStrRev(SaveDir, "\"))Sheets("Sheet1").Copy '所谓特定工作表，自己改名称ActiveWorkbook.SaveAs SaveDir & newNameEnd Sub运行此宏，会弹出一让你选择文件路径及文件，你得手动点到待保存路径，并必须选择该路径下的一文件（这样才能获取文件路径）。