| |
お世話様です。
HYPERLINK関数を使用し、xlsファイルを開く件ですが、
お教え頂いた下記コードに、Unload UserForm2を追加すると、
xlsファイルが開けることが確認出来ました。
>Private Sub CommandButton6_Click()
>Dim ACR As Long
>Dim WK_Link As String
>Dim WSH
> Worksheets("Sheet5").Activate
> ACR = ActiveCell.Row
> Cells(ACR, 6).Select
> ActiveCell.FormulaR1C1 = "=HYPERLINK(RC[-3],RC[-3])"
>
> WK_Link = Cells(ACR, 6).Value
> If Cells(ACR, 3) = "" Then
> Cells(ACR, 3).ClearContents
> Exit Sub
> End If
> Set WSH = CreateObject("Wscript.Shell")
> WSH.Run """" & WK_Link & """", 3
> Set WSH = Nothing
Unload UserForm2 ←追加
> Worksheets("Sheet1").Select
>End Sub
ですが、
出来ればUser Form2を消さず、また、
User Form2を表示させずに、開いたxlsファイルを
表示する方法は御座いますでしょうか？
（もとのファイルをマウスで選択しアクティブにすると、
画面上にUser Form2は表示されている）
現状、開いたxlsファイル画面上に、User Form2（& User Form1）が
表示されております。
これを消してしまうと、もとのファイルから、User Form1を呼び出し、
User Form1で検索をし、データ表示を行い、
User Form1上にある、User Form2を呼び出すコマンドボタンを押し・・・
っと、かなり手間が増えてしまいます。
どうか宜しくお願い致します。
|
|
ゆーあ
- 14/7/11(金) 14:50 -
