Excel 将文件保存到文件资源管理器中的Onedrive文件夹

Excel 将文件保存到文件资源管理器中的Onedrive文件夹,excel,vba,directory,save,onedrive,Excel,Vba,Directory,Save,Onedrive,我正在尝试将文件保存到Onedrive文件夹中,该文件夹在文件资源管理器中同步。我需要网络路径才能正常工作吗?这就是我到目前为止所做的: Sub Macro4() Dim myDir, strFilename, strPathname, strDateTime As String strDateTime = " (" & Format(Now, "hhmm AM/PM") & ")" myDir = Environ("USERPROFILE") & "\Folder 1\

我正在尝试将文件保存到Onedrive文件夹中,该文件夹在文件资源管理器中同步。我需要网络路径才能正常工作吗?这就是我到目前为止所做的:

Sub Macro4()
Dim myDir, strFilename, strPathname, strDateTime As String
strDateTime = " (" & Format(Now, "hhmm AM/PM") & ")"
myDir = Environ("USERPROFILE") & "\Folder 1\Folder2\Folder3\" & Worksheets("Private").Range("L5").Value
strFilename = Worksheets("HWR DATA - Craft").Range("C1").Value
strPathname = myDir & "\" & strFilename
MyMkDir myDir & "\"

    Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=strPathname & strDateTime & ".xlsm", _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

End Sub
L5指包含以下数据的单元格:
文件夹A\文件夹B\文件夹C

我发现了问题。问题是我的代码遇到了Microsoft的文件夹路径最大长度问题。(创建指向其他文件的链接时限制为256个字符)