Excel VBA質問箱 IV

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

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


8815 / 13644 ツリー ←次へ | 前へ→

【30407】ブラウザのテキストボックスにVBAから入力したい いわし 05/10/26(水) 21:58 発言[未読]
【30408】Re:ブラウザのテキストボックスにVBAか... かみちゃん 05/10/26(水) 22:07 発言[未読]
【30448】Re:ブラウザのテキストボックスにVBAか... いわし 05/10/27(木) 20:20 質問[未読]
【30454】Re:ブラウザのテキストボックスにVBAか... かみちゃん 05/10/27(木) 21:38 発言[未読]
【30506】Re:ブラウザのテキストボックスにVBAか... いわし 05/10/29(土) 0:33 質問[未読]
【30509】Re:ブラウザのテキストボックスにVBAか... かみちゃん 05/10/29(土) 8:14 回答[未読]
【30696】Re:ブラウザのテキストボックスにVBAか... いわし 05/11/3(木) 9:21 質問[未読]
【30836】Re:ブラウザのテキストボックスにVBAか... かみちゃん 05/11/5(土) 17:40 発言[未読]
【31020】Re:ブラウザのテキストボックスにVBAか... いわし 05/11/9(水) 12:28 質問[未読]
【31021】Re:ブラウザのテキストボックスにVBAか... かみちゃん 05/11/9(水) 13:00 発言[未読]

【30407】ブラウザのテキストボックスにVBAから...
発言  いわし  - 05/10/26(水) 21:58 -

引用なし
パスワード
   ブラウザ上から大量のデータを登録しなければならないのですが、CSVで一括でデータ登録することもできない状態で困っています。
ブラウザにデータをEXCELからコピペすているのが現状です。

エクセルのデータをブラウザのテキストボックスに自動的に入力できればうれしいのですが・・・・。
できるかできないかだけでも教えていただけると助かります。

【30408】Re:ブラウザのテキストボックスにVBA...
発言  かみちゃん E-MAIL  - 05/10/26(水) 22:07 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>エクセルのデータをブラウザのテキストボックスに自動的に入力できればうれしいのですが・・・・。

そのURLにもよりますが、WebBrowserコンポーネントなどを使えばできます。
あとは、HTMLのタグの知識も必要かと思います。
ただ、私は、同様のことを実現させています。

※ご質問の際には、投稿種別を「発言」ではなく、「質問」にしましょう。

【30448】Re:ブラウザのテキストボックスにVBA...
質問  いわし  - 05/10/27(木) 20:20 -

引用なし
パスワード
   ※ご質問の際には、投稿種別を「発言」ではなく、「質問」にしましょう。
ごめんなさい、利用の仕方がよく分からなかったので間違えました。
修正ができないようなので、このまま利用させてください。

URLの最後は .asp でpostで送っています。
.asp?para=1234&para2=4567という形式でないので困っています。
---aaaa.xls------------------------------

ボタン1

ああああ
---aaa.asp-------------------------------
<form method=post>
<input type="text" size="30" name="text">
</form>
<input type="submit" value="送信する">

-----------------------------------------
ボタン1をクリックするとaaa.aspのtxtに”ああああ”と
入れば楽かな・・・と思いました。WebBrowser Object
でできるのでしょうか?
調べたのですが、ピンとこなかったのですが・・・。
よろしくお願いいたします。

【30454】Re:ブラウザのテキストボックスにVBA...
発言  かみちゃん E-MAIL  - 05/10/27(木) 21:38 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>ボタン1をクリックするとaaa.aspのtxtに”ああああ”と
>入れば楽かな・・・と思いました。WebBrowser Object
>でできるのでしょうか?

WebBrowserコントロールについては以下のURLが参考になりますでしょうか?
http://www.asahi-net.or.jp/~zn3y-ngi/YNxv9195.html

たとえば、この掲示板のトップページのテキストボックスに「WebBrowserの使い方」
という文字列を設定するには、以下のようにすればできると思います。

Private Sub UserForm_Activate()
 Dim strURL As String
 
 myFlag = True
 
 '値をセットするURL
 strURL = "http://www.vbalab.net/"
 
 Me.WebBrowser1.Navigate strURL
 Do While myFlag 'ビジー、読み込み中の間
  DoEvents
 Loop
 MsgBox "処理が終わりました。"
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
 Dim objITEM As Object
 
 DoEvents
 If (Not Me.WebBrowser1.Busy) And _
  Me.WebBrowser1.ReadyState = 4 Then
   'テキストボックスにセットする。
   Me!WebBrowser1.Document.all.txtSearch.Value = "WebBrowserの使い方"
   'Submitボタンを押してみる。
   Me.WebBrowser1.Document.forms(0).submit
   myFlag = False
 End If
End Sub

【30506】Re:ブラウザのテキストボックスにVBA...
質問  いわし  - 05/10/29(土) 0:33 -

引用なし
パスワード
   かみちゃん様 ありがとうございます。
userfome1を作成し、
頂いたソースをコピペすると
Me.WebBrowser1.Navigate strURL 行でエラーになります。

『メソッド又はデータメンバーが見つかりません』と出ます。
何がいけないのでしょうか?

光が見えたと思ったら、くもってしまいました。

【30509】Re:ブラウザのテキストボックスにVBA...
回答  かみちゃん E-MAIL  - 05/10/29(土) 8:14 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>Me.WebBrowser1.Navigate strURL 行でエラーになります。
>
>『メソッド又はデータメンバーが見つかりません』と出ます。
>何がいけないのでしょうか?

ご紹介した、以下のURLを参考にして、WebBrowserコントロールをUserForm上に配置していますか?
http://www.asahi-net.or.jp/~zn3y-ngi/YNxv9195.html

【30696】Re:ブラウザのテキストボックスにVBA...
質問  いわし  - 05/11/3(木) 9:21 -

引用なし
パスワード
   かみちゃん さん
ご指摘どうりでした。こんなコントロールがあるとは今の今まで知りませんでした。


Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
 Dim objITEM As Object

 DoEvents
 If (Not Me.WebBrowser1.Busy) And _
  Me.WebBrowser1.ReadyState = 4 Then
   'テキストボックスにセットする。

   Me!WebBrowser1.Document.all.User_Name.Value = "userid"
   Me!WebBrowser1.Document.all.User_Pass.Value = "password"
   'Submitボタンを押してみる。
   Me.WebBrowser1.Document.forms(0).submit
   myFlag = False
 End If
End Sub

これを実行すると、
   Me!WebBrowser1.Document.all.User_Name.Value = "userid"
このラインで止まってしまいます。
実行時エラー'438'オブジェクトは、このプロパティまたはメソッドをサポートしていません。
URLを表示して
'Me.WebBrowser1.Document.forms(0).submit コメントアウト

”userid”"password"を手入力するとうまくログインできるのですが、なぜでしょうか?

【30836】Re:ブラウザのテキストボックスにVBA...
発言  かみちゃん  - 05/11/5(土) 17:40 -

引用なし
パスワード
   こんにちは。かみちゃん です。

すみません、コメント遅くなりました。

>これを実行すると、
>   Me!WebBrowser1.Document.all.User_Name.Value = "userid"
>このラインで止まってしまいます。
>実行時エラー'438'オブジェクトは、このプロパティまたはメソッドをサポートしていません。

User_Name
というのは、どのようにお知りになったのでしょうか?
おそらく、そのURLに「User_Name」という名前のテキストボックスがないからだと思います。
HTMLタグの特にINPUTタグの知識が必要ですので、確認してみてください。

【31020】Re:ブラウザのテキストボックスにVBA...
質問  いわし  - 05/11/9(水) 12:28 -

引用なし
パスワード
   かみちゃんさん 
レスありがとうございます。
ソースで確認しました。タグは分かるのですが・・・。
何度やってもダメなんです・・・・
一から作成したらうまくできました。
フレームで分割されたフォームでも同等の扱いと考えていいのでしょうか?

【31021】Re:ブラウザのテキストボックスにVBA...
発言  かみちゃん E-MAIL  - 05/11/9(水) 13:00 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>フレームで分割されたフォームでも同等の扱いと考えていいのでしょうか?

Me!WebBrowser1.Document.all.User_Name.Value = 〜
の部分をHTMLソースによっては、
Me!WebBrowser1.Document.Forms(0).User_Name.Value = 〜
としないといけないものもあると思います。
具体的なURL、もしくは、HTMLソースがわからないと、ちょっと説明は難しいですね。

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