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

来源

2015-02-09 jean-marc caspar

为什么不使用UNC路径？ – SWa 2015-02-10 10:43:24

您的'ChDrive“后面缺少'：'P”' – 2015-02-10 12:08:30

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

来源

2015-02-09 17:47:06

VBA - 写信给映射网络驱动器

回答

相关问题