|    | 
     ▼ゆーあ さん: 
>WinXP Excel2000 
> 
>先日お教え頂き、ブックの共有を行った状態で、 
>HYPERLINK関数を使用し、JPGファイルを開くことが出来たのですが、 
>今回、同様のコードでxlsファイルを開こうと思ったのですが、上手くいきません。 
 
こういう場合にはどのような状況になるのかを書いてね。 
 
私のところではゆーあさんのマクロで共有状態でEXCELが開かれてます。 
 
なので開かれない時に何かメッセージがないのか、等が問題の解決につながる可能性があります。 
 
で、開くファイルがEXCELのブック限定だったら 
Set WSH = CreateObject("Wscript.Shell") 
WSH.Run """" & WK_Link & """", 3 
Set WSH = Nothing 
の代わりに 
Workbooks.Open WK_Link 
でもいいのでは? 
 
あと、 
 
>  If Cells(ACR, 3) = "" Then 
>  Cells(ACR, 3).ClearContents 
>  Exit Sub 
は式をクリアするところなんで 
>  Cells(ACR, 3).ClearContents 
を 
>  Cells(ACR, 6).ClearContents 
じゃないかな? 
 | 
     
    
   |