Excel VBA文件的问题；另存为；在我的用户文件夹或网络驱动器中

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

例如，我希望路径是C:\Test\Segname.xlsx，它在Test目录中工作。在其他任何地方都不起作用。提前谢谢

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

---

你能确认这不是吗？

newPath=environ（“USERPROFILE”）和“\documents\”&SegName

对你有用吗？不，但我怀疑我的问题是SegName。当我逐步浏览时，我看到SegName是“空的”，但不确定为什么会在这个目录中发生，而不是在C中：\Test@Vaslo那么

这个工作簿.Sheets（“Settings”）.Range（“D29”）

的值是多少？@horst我是个白痴，忘了在那个userfolder文件中的D29中加一个值，而不是测试中的那个。对不起，浪费了大家的时间。