Форумы HiProg.com - MS ACCESS, VBA, VB

ник: час
Конвертер пути
Иначе ООО не поймёт - где лист, какой путь..........

Public Function ConvertToUrl(strFile) As String 'конвертирует путь MS Windows в URL (RFC 1738)    On Error GoTo ConvertToUrl_Error '----------------------------------------------------------------------------------     strFile = Replace(strFile, "\", "/") '    strFile = Replace(strFile, ":", "|")     strFile = Replace(strFile, " ", "%20")     strFile = "file:///" + strFile     ConvertToUrl = strFile '"file:///C:/1.odt", "_blank", 0, NoArg) '("file://localhost/C:\TEMP\Ostatki.xls", "_blank", 0, Массив); '----------------------------------------------------------------------------------    On Error GoTo 0    Exit Function ConvertToUrl_Error: Call FUN_IN_TXT(FUN_Patch_File(App.Path, "Error.txt"), "Error " & Err.Number & " (" & Err.Description & ") in procedure ConvertToUrl of Module OOO_MOD") End Function

пример использованя
STR_PATH = ConvertToUrl(STR_PATH)