将工作表另存为特定文件夹的新工作簿

Question

您好我有一个工作簿，我将当前工作表保存为新工作簿，以便将其发送给某人。我已经完成了它，直到它提示我使用SaveAs对话框，但我希望它将它保存到特定的文件夹中，并使用我指定的名称和范围值。当我运行它时，它将其保存在Windows默认下载文件夹下，并命名为“False”。请帮忙。

此外，当我将工作表复制到新工作簿时，当我打开新工作簿时，它会弹出一个对话框，提示“此工作簿包含链接等等”并要求我更新...是否可能编写代码的方式，当我保存为新工作簿时，没有链接到原始工作簿？请帮帮我!!

Sub Save_As_Workbook()

Dim wb As Workbook
Dim wbnew As Workbook
Dim ws As Worksheet
Dim filename As String
Dim userprofile As String

userprofile = Environ$("userprofile")
Set wb = ActiveWorkbook
Set ws = wb.Worksheets("PL")
Set wbnew = Workbooks.Add
wb.Activate

ActiveSheet.Copy Before:=wbnew.Sheets(1)
ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value



wbnew.SaveAs filename = userprofile & "\Dropbox\PL Folder\"outshipment" & _
"PO" & " " & ActiveSheet.Range("H1").Value


wbnew.Close

End Sub