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

而不是使用changeir我建议使用完整文件名

喜欢

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

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

1 个答案: