OneDrive下的ThisWorkbook.Path
Dim strPath As StringIf InStr(ThisWorkbook.Path, "https://myoffice") > 0 ThenstrPath = Environ("OneDrive") & Mid(ActiveWorkbook.Path, Application.Find("@", Application.Substitute(ActiveWorkbook.Path, "/", "@", 6)), 999)strPath = Replace(strPath, "/", "\")ElsestrPath = ThisWorkbook.PathEnd IfstrPath = strPath & "\"
![[NOIP2009 提高组] 最优贸易（含代码题解）](http://pic.xiahunao.cn/[NOIP2009 提高组] 最优贸易（含代码题解）)
