Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


20446 / 76732 ←次へ | 前へ→

【61705】Re:回答ではないですが・・・・
発言  HIRO  - 09/5/28(木) 12:38 -

引用なし
パスワード
   ▼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

お手数おかけしますがよろしくお願いします。

5 hits

【61677】別ブックの編集について HIRO 09/5/27(水) 12:25 質問
【61680】回答ではないですが・・・・ つん 09/5/27(水) 16:15 発言
【61696】Re:回答ではないですが・・・・ HIRO 09/5/28(木) 10:11 発言
【61698】Re:回答ではないですが・・・・ つん 09/5/28(木) 10:29 回答
【61700】Re:回答ではないですが・・・・ HIRO 09/5/28(木) 11:18 質問
【61702】誰か助けて〜 つん 09/5/28(木) 11:53 発言
【61704】Re:誰か助けて〜 Abebobo 09/5/28(木) 12:04 発言
【61703】Re:回答ではないですが・・・・ neptune 09/5/28(木) 11:58 発言
【61705】Re:回答ではないですが・・・・ HIRO 09/5/28(木) 12:38 発言
【61707】Re:回答ではないですが・・・・ Yuki 09/5/28(木) 13:54 発言
【61708】Re:回答ではないですが・・・・ HIRO 09/5/28(木) 14:16 お礼

20446 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free