|
▼ゆーあ さん:
>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
じゃないかな?
|
|