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

Question

您好 VBA 开发人员

我想写入映射的网络驱动器 (P:\)

以下代码似乎不起作用并生成执行 76 的错误。您能否向我解释此错误的原因以及如何解决它？

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

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

Answer 1

而不是使用changedir的操作系统，我建议使用完整的文件名

喜欢

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_"