vba - 我的用户文件夹或网络驱动器中的 Excel VBA 文件“另存为”问题

Question

我在某些目录中通过 VBA 保存文件时遇到问题。如果我使用名为 C:\Test 的文件夹，它工作正常。但是，如果我尝试将其保存到我的 users\me\Documents 文件夹或网络文件夹，我会出错。直接从 Excel 保存时，我通常可以保存到我的用户目录或网络文件夹。以下代码是我用来创建文件并在宏运行之前保存版本的代码。有没有更好的方法可以至少保存在网络驱动器上？有关更多详细信息，我尝试保存到用户驱动器但收到错误 1004，这给了我一些我看不到的东西。

例如，我希望路径是 C:\Test\Segname.xlsx，并且在测试目录中有效。在其他任何地方都不起作用。提前致谢。

Sub AddNew(NewBook As Object)
Dim newPath As Variant
Dim SegName As Variant

SegName = ThisWorkbook.Sheets("Settings").Range("D29").Value
newPath = ActiveWorkbook.Path & "\" & SegName

Application.DisplayAlerts = False

Set NewBook = Workbooks.Add
    With NewBook
        .Title = "Calculations Output"
        .Subject = "Sales"
        .SaveAs Filename:=newPath
        .Worksheets.Add().Name = "DATA"
    End With

Application.DisplayAlerts = True

End Sub

标签： vbaexcel