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

【问题标题】：VBA - Write to a mapped network driveVBA - 写入映射的网络驱动器
【发布时间】：2015-02-09 17:36:56
【问题描述】：

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

【问题讨论】：

为什么不使用 UNC 路径？
您的ChDrive "P" 后面缺少:

标签： excel mapped-drive vba

【解决方案1】：

我建议使用 changedir 代替 os 使用完整文件名

喜欢

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

【讨论】：