Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8817 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【30407】ブラウザのテキストボックスにＶＢＡから入力したい いわし 05/10/26(水) 21:58 発言[未読]
【30408】Re:ブラウザのテキストボックスにＶＢＡか... かみちゃん 05/10/26(水) 22:07 発言[未読]
【30448】Re:ブラウザのテキストボックスにＶＢＡか... いわし 05/10/27(木) 20:20 質問[未読]
【30454】Re:ブラウザのテキストボックスにＶＢＡか... かみちゃん 05/10/27(木) 21:38 発言[未読]
【30506】Re:ブラウザのテキストボックスにＶＢＡか... いわし 05/10/29(土) 0:33 質問[未読]
【30509】Re:ブラウザのテキストボックスにＶＢＡか... かみちゃん 05/10/29(土) 8:14 回答[未読]
【30696】Re:ブラウザのテキストボックスにＶＢＡか... いわし 05/11/3(木) 9:21 質問[未読]
【30836】Re:ブラウザのテキストボックスにＶＢＡか... かみちゃん 05/11/5(土) 17:40 発言[未読]
【31020】Re:ブラウザのテキストボックスにＶＢＡか... いわし 05/11/9(水) 12:28 質問[未読]
【31021】Re:ブラウザのテキストボックスにＶＢＡか... かみちゃん 05/11/9(水) 13:00 発言[未読]
【30407】ブラウザのテキストボックスにＶＢＡから...
発言  いわし  - 05/10/26(水) 21:58 -
引用なし
パスワード
   ブラウザ上から大量のデータを登録しなければならないのですが、ＣＳＶで一括でデータ登録することもできない状態で困っています。
ブラウザにデータをＥＸＣＥＬからコピペすているのが現状です。

エクセルのデータをブラウザのテキストボックスに自動的に入力できればうれしいのですが・・・・。
できるかできないかだけでも教えていただけると助かります。
【30408】Re:ブラウザのテキストボックスにＶＢＡ...
発言  かみちゃん E-MAIL  - 05/10/26(水) 22:07 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

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

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

※ご質問の際には、投稿種別を「発言」ではなく、「質問」にしましょう。
【30448】Re:ブラウザのテキストボックスにＶＢＡ...
質問  いわし  - 05/10/27(木) 20:20 -
引用なし
パスワード
   ※ご質問の際には、投稿種別を「発言」ではなく、「質問」にしましょう。
ごめんなさい、利用の仕方がよく分からなかったので間違えました。
修正ができないようなので、このまま利用させてください。

ＵＲＬの最後は　.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:ブラウザのテキストボックスにＶＢＡ...
発言  かみちゃん E-MAIL  - 05/10/27(木) 21:38 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

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

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

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

Private Sub UserForm_Activate()
　Dim strURL As String
　
　myFlag = True
　
　'値をセットするＵＲＬ
　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:ブラウザのテキストボックスにＶＢＡ...
質問  いわし  - 05/10/29(土) 0:33 -
引用なし
パスワード
   かみちゃん様　ありがとうございます。
userfome1を作成し、
頂いたソースをコピペすると
Me.WebBrowser1.Navigate strURL　行でエラーになります。

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

光が見えたと思ったら、くもってしまいました。
【30509】Re:ブラウザのテキストボックスにＶＢＡ...
回答  かみちゃん E-MAIL  - 05/10/29(土) 8:14 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

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

ご紹介した、以下のＵＲＬを参考にして、WebBrowserコントロールをUserForm上に配置していますか？
http://www.asahi-net.or.jp/~zn3y-ngi/YNxv9195.html
【30696】Re:ブラウザのテキストボックスにＶＢＡ...
質問  いわし  - 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:ブラウザのテキストボックスにＶＢＡ...
発言  かみちゃん  - 05/11/5(土) 17:40 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

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

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

User_Name
というのは、どのようにお知りになったのでしょうか？
おそらく、そのURLに「User_Name」という名前のテキストボックスがないからだと思います。
HTMLタグの特にINPUTタグの知識が必要ですので、確認してみてください。
【31020】Re:ブラウザのテキストボックスにＶＢＡ...
質問  いわし  - 05/11/9(水) 12:28 -
引用なし
パスワード
   かみちゃんさん　
レスありがとうございます。
ソースで確認しました。タグは分かるのですが・・・。
何度やってもダメなんです・・・・
一から作成したらうまくできました。
フレームで分割されたフォームでも同等の扱いと考えていいのでしょうか？
【31021】Re:ブラウザのテキストボックスにＶＢＡ...
発言  かみちゃん E-MAIL  - 05/11/9(水) 13:00 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

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

Me!WebBrowser1.Document.all.User_Name.Value = 〜
の部分をHTMLソースによっては、
Me!WebBrowser1.Document.Forms(0).User_Name.Value = 〜
としないといけないものもあると思います。
具体的なＵＲＬ、もしくは、HTMLソースがわからないと、ちょっと説明は難しいですね。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8817 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free