Excel VBA-写入映射的网络驱动器

您好，VBA开发人员

我想写入映射的网络驱动器（p:\）

下面的代码似乎不起作用，并生成错误。你能给我解释一下这个错误的原因和解决方法吗

非常感谢您提前提出的建议

Sub Enregistre_Fichier_bon_nom_bon_endroit()

    ChDrive "P"
    ChDir "P:\SG\INFOR\"

    Repertoire = Sheets("MAJ").Range("B1").Value & "\" & Sheets("FICHE_DEMANDE").Range("AH2").Value & "\"
    ChDir Repertoire
    SaveFileName = CurDir & "\" & Sheets("FICHE_DEMANDE").Range("B14").Value & "_" & Sheets("FICHE_DEMANDE").Range("a4").Value & "_ Suivi_FIR_directions_metier_2015_"
    MsgBox (SaveFileName)
    Set REP = Application.FileDialog(msoFileDialogSaveAs)
    With REP
    .AllowMultiSelect = False
    .InitialFileName = SaveFileName
    .FilterIndex = 2
    If .Show = -1 Then
    ActiveWorkbook.SaveAs Filename:=SaveFileName, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
    End If
    End With
End Sub

---

我建议使用完整文件名来代替使用changedir的操作系统

像

---

为什么不使用UNC路径？在

ChDrive“P”

Repertoire = Sheets("MAJ").Range("B1").Value & "\" &     Sheets("FICHE_DEMANDE").Range("AH2").Value & "\"

SaveFileName = "P:\" & Repertoire & "\" &  Sheets("FICHE_DEMANDE").Range("B14").Value   & "_" & Sheets("FICHE_DEMANDE").Range("a4").Value & "_ Suivi_FIR_directions_metier_2015_"