|
▼neptune さん:
>▼HIRO さん:
>情報が小出しですねぇ。
>
>>CALL SHELL("BOOK1",1)にて起動した後に
>まぁ↑では絶対に動作しませんけど。とにかく、本当の文では
>動くわけですね?
>
>動くのなら、book名の所に本当のbook名を書けば動くはずです。
>Workbooks(book名).Activate
>動かないなら、・・・・・もっと再現できる情報を出しましょう。
>このままでは誰も想像でしか答えられんですよ。
情報が不足して申し訳ないです。
実際のエクセルをオープンさせているコードは
Call Shell(URL, 1)
となっています。
URLにはべつで代入しています。(HTTP〜のパス)
一応これで実行しますとファイルが開きます。
見た目上開いたものがアクティブでフォーカスも移ってるのですが
たとえばアクティブの文をなくして
SHEET1.RANGE("A1").Value="xx"
としていきなり書き込みにいっても実際に書き込まれるのは
開く処理の元のbook1のA1に書き込まれてしまう状態です。
一応すべてのコードを張っておきます。
Dim URL As String '依頼書本紙アドレス格納
Dim LIST As String
Dim MyAppID, ReturnValue
'*********************************************
'*ファイルオープン処理 *
'*********************************************
Sub 開く()
参照先確定
Call Shell(URL, 1)
If LIST = "xxxxxxxx" Then
初期設定 ←ここに先ほどのコードを記述してます。
End If
End Sub
*******************
Sub 参照先確定()
LIST = Sheet1.Range("D1").Text
LP = 1
Do
If LIST = Sheet2.Range("A" & LP).Value Then
URL = Sheet2.Range("B" & LP).Value
Exit Do
End If
LP = LP + 1
Loop
End Sub
お手数おかけしますがよろしくお願いします。
|
|