如何复制输入Excel工作表的位置并使用相同的位置来保存新的Excel工作表

Question

请提出一些答案。 1.脚本会弹出一个弹出框，询问输入是否为excel。

Set ObjFSO = CreateObject("Excel.Application")

SPREADSHEET_PATH = ObjFSO.GetOpenFileName("Excel Files (*.xls;*.xlsx),*.xls;*.xlsx")

1. 现在，在完成所有验证后，我将创建一个具有更新值的新Excel工作表。我正在使用

   strSSFileName =＆＃34; C：\ users \ Desktop \ New.xlsx＆＃34; 设置xlApp1 = CreateObject（＆＃34; Excel.Application＆＃34;） set xlBook = xlApp1.WorkBooks.add（） xlBook.saveAs（strSSFileName）

我不希望HARDCODE成为位置，因为它将始终成为特定位置。

请提出一些答案。

Answer 1

您似乎已经拥有该位置，即SPREADSHEET_PATH。您可以从完整路径和文件名中提取路径，然后使用提取的路径保存新文件并添加新文件名，例如： xlBook.SaveAs(extractedPath & "\" & "New.xls")。

修改 这会将文件保存在同一目录中，但名称不同

Dim extractedPath As String
extractedPath = Replace(SPREADSHEET_PATH, ".xls", " NEW.xls")
xlBook.SaveAs(extractedPath)