| |
▼独覚 さん
コメントありがとうございます。
実は、User Formがあったんですよ。
特に必要が無い情報かと勝手に判断してました。すみません。。。
>ユーザーフォームがあったんですね。
>このユーザーフォームはモーダルモードで開かれているのでしょうか？
>もしそうであればモードレスフォームで開くとどうなるでしょうか？
>(EXCELは開けても他に影響があるかもしれません)
すみません。。。
モーダルモード及びモードレスフォームという言葉自体知らないんです。
調べてみます。。。
>あと、ハイパーリンク先のEXCELはマクロを実行したEXCELで開かれる必要があるのでしょうか？
>新しいEXCELを開いてそちらで開いてもいいのであれば
>
> Dim XLApp As Excel.Application
>
> Set XLApp = CreateObject("Excel.Application")
> XLApp.Workbooks.Open WK_Link
> XLApp.Visible = True
> Set XLApp = Nothing
>で開いてみてはどうでしょうか？
これも、私には意味がよく分かりません。すみません。。。
ですが、お教え頂いたコードを早速使わせて頂いたら、
イメージ通りの動作が確認できました！ありがとうございます！！
>ただし上記で開けるのはエクセルブックのみなので拡張子をチェックしてエクセルブックならば上記で、エクセルブック以外は
>WSH.Run """" & WK_Link & """", 3
>で開くようにする必要があります。
これも私には荷が重い感じです。
If文を使うのかな？くらいのレベルです。。。
PDFが開けないのは少し心残りですが、
ここまで希望の動作が出来ましたので、充分過ぎるほど満足してます。
本当にありがとうございます！！！大変感謝です！！！
もっと勉強します！！！
|
|
ゆーあ
- 14/7/11(金) 16:31 -
