VBA, EXCEL, Sharepoint, ADODB.Connection

Формулировка задачи:

У меня вопрос по VBA в Excel. Вот часть кода, который работает в network, но не работает в sharepoint:

ioobjConn =  ADODB.Connection
 ioobjCmnd =  ADODB.Command 

 strCnctn      

strCnctn =  & _
                  & ThisWorkbook.FullName &  & _

 ioobjConn
        .ConnectionString = strCnctn
        .CursorLocation = ADODB.adUseClient
        .
     

Проблема в ThisWorkbook.FullName. В sharepoint это путь http:\....., и ADODB ioobjConn его не понимает. Для диска работает.
Кто-нибудь сталкивался?

Решение задачи: «VBA, EXCEL, Sharepoint, ADODB.Connection»

textual
                            Листинг программы 
                        

                            tmp = ThisWorkbook.FullName
<font color="blue">if</font> left(tmp, <font color="darkblue"><b>7</b></font>) = <font color="teal">"http://"</font> <font color="blue">then</font>     <font color="00AA00">' значит мы в sharepoint</font>
    tmp = replace(tmp, <font color="teal">"http://"</font>, <font color="teal">""</font>) <font color="00AA00">' убираем протокол</font>
    tmp = replace(tmp, <font color="teal">"/"</font> , <font color="teal">"\"</font>)  <font color="00AA00">' правим слеши</font>
    tmp = ....    <font color="00AA00">' и дальше курочишь tmp, пока не превратишь его в правильный вид</font>
<font color="blue">end</font> <font color="blue">if</font>
strCnctn = <font color="teal">"Provider=Microsoft.Jet.OLEDB.4.0;"</font> & _
                 <font color="teal">"Data Source="</font> & tmp & <font color="teal">";"</font> & _
                 <font color="teal">"Extended Properties="</font><font color="teal">"Excel 8.0;HDR=No"</font><font color="teal">";"</font>
                        