• 締切済み

エクセルのVBAを使用してのサイト更新に関しての質問です。

エクセルのVBAを使用してのサイト更新に関しての質問です。 現在、VBAを利用して各サイトの記事更新の一括処理を行っておりますが 画像の貼り付け時に不具合が起こりその解消方法に困っております まず、以下のような方法でサイトにアクセスを行っています。 ----------------------------------------------------------------------- Dim objIE As Object Set objIE = CreateObject("InternetExplorer.Application") objIE.Navigate "http://xxxxxxxxxxxxxx.com/" ----------------------------------------------------------------------- そして、ログイン後に以下のような方法でタイトル及び記事の入力を行っています。 ----------------------------------------------------------------------- objIE.document.forms(0).コントロールの名前.Value = タイトルテキスト objIE.document.forms(0).コントロールの名前.Value = 本文テキスト ----------------------------------------------------------------------- その後に画像のフルパスを入力させたいのですが上記方法ではうまくはまらないので 以下の方法で画像のフルパスを貼り付けています。 ----------------------------------------------------------------------- objIE.document.forms(0).Item("コントロールの名前").Select Application.SendKeys 画像のフルパス, True ----------------------------------------------------------------------- 動作環境は WINDOWS　XP IE 7 です。 しかし、上記の方法で貼り付けを行った場合、IEがアクティブな状態でない場合に その時アクティブになっているアプリケーションに画像のフルパスが貼り付けられ る状態になっております。 この状態ですと、IEを起動しているPCで他の作業が行えないので今後IEがアクティ ブでない状態でも画像のパスが正常に埋め込まれるようにプログラムを変更したい と考えておりますが、現段階の知識では良い方法がわかりません 抜本的な変更も踏まえてこの問題解消に当たりたいと思っております 良い方法をご存知な方がおられましたら、ご教授いただけないでしょうか 何卒よろしくお願い致します。

みんなの回答

  • xls88
  • ベストアンサー率56% (669/1189)
回答No.4

方法はあるようですが難しそうです。 EXCEL VBA でIEを制御して、INPUT type=file で出るダイアログに入力できませんか？ http://oshiete1.goo.ne.jp/qa4624451.html INPUT type=file で出るダイアログに入力で窓を確実に取得したい。 http://soudan1.biglobe.ne.jp/qa5446271.html IEを開いて→ファイル参照のテキストボックスにパスを入れて→アップロードのボタンを押す】 http://www.accessclub.jp/bbs/0223/beginers68585.html VBAでのIE操作に関する質問です。ヤフオクに自動出品するプログラムを作成中なの http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1316627063

  • mimeu
  • ベストアンサー率49% (39/79)
回答No.3

objIE.Document.getElementById("thumb_news_image").Value = "画像のフルパス" ではいかがでしょうか？

  • mimeu
  • ベストアンサー率49% (39/79)
回答No.2

　　Dim IEのハンドル as Long 　　IEのハンドル = objIE.HWND でハンドルを取得し 　　SetForegroundWindow (IEのハンドル) ＡＰＩで確実にＩＥの窓を前面に出した直後に 画像を貼り付けるとうまくいくと思います ご存じと思いますが、Declare Function が必要です。

siropara
質問者

お礼

ご回答ありがとうございます。 ご回答いただいた手段を試してみたところ、常にアクティブである必要がなくなり 大変使い勝手が良くなりました。 しかしながらアクティブになるタイミングがまったく存在しなくてよい処理を理想としておりますので もう少し質問を続けさせてくださいませ。

  • xls88
  • ベストアンサー率56% (669/1189)
回答No.1

HTMLソースを提示できないでしょうか。

siropara
質問者

補足

ご回答ありがとうございます。 HTMLソースを提示する件ですが、いくつかサイトがありますので そのうちのひとつを載せてみます、よろしくお願いいたします。 以下がソースになります input type="file"のコントロールになります。 ---------------------------------------------------------------------------- <input type="file" name="thumb_news_image"> --------------------------------------------------------------------------------------- thumb_news_imageにselectを利用して画像のフルパスを張り付けております。 IEがActiveでなくても画像の貼り付けが可能であれば、 全く別の手段でも良い手段がありましたらご教授お願いいたします

  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. その他MS Office製品

関連するQ&A

  • ＶＢＡでファミマＴポイントカードのサイトにログイン

    ＶＢＡでファミマＴポイントカードのサイトにログインしたいですが うまくいきません。 https://service.famimacredit.co.jp/ftps/top.do のＵＲＬを開いて、 --------------------------------------------------------- Sub test() Set ObjIE = CreateObject("InternetExplorer.application") ObjIE.Visible = True ObjIE.Navigate "https://service.famimacredit.co.jp/ftps/top.do" ObjIE.Document.all.loginID.Value = "" ObjIE.Document.all.pswd.Value = "" ObjIE.Document.forms(0).submit End Sub --------------------------------------------------------- をすると、エラーになってしまいます。 ログインだけがうまくいきません。 ObjIE.Document.forms(0).submit が間違ってると思います。 ご教授よろしくお願いします。

  • VBAでサイトのsubmitボタンをクリックしたい

    とあるサイトに自動ログインするｖｂａを作っています。 （三流君を参考にしています） Sub ログイン() Set ObjIE = CreateObject("InternetExplorer.application") ObjIE.Visible = True '************************************************** ObjIE.navigate "https://www" Do While ObjIE.Busy = True '表示させるまで待つ DoEvents Loop Application.Wait (Now + TimeValue("00:00:03")) ObjIE.Document.all.UserId.Value = "ID" ObjIE.Document.all.submit_l貸出照会.Click　’ここでエラーになる End Sub 上記のようなコードを書いているのですが 該当サイトのソースを読み取り、 「INPUT TYPE="text" NAME="userid" VALUE=""」 の部分は ObjIE.Document.all.UserId.Value = "ID" で出来たのですが 「<INPUT TYPE="submit" VALUE="貸出照会">」 の部分をクリックしてログインしたいのですが ObjIE.Document.all.貸出照会.Click だとエラーになってしまいます。 ObjIE.Document.Forms(0).item("貸出照会").Click もダメでした。 ご教授よろしくお願い致します。 （エクセル2003）

  • エクセルでのVBA

    エクセルでVBAを使ってIEで指定のURLを開いて、VBAで指定したWEBフォームにエクセルで指定したセルの値を入力したいのですが、下記のコードを入れるとエラーが出てしまいます。 　 A1：1-1 or 1-2 or 1-3 B1：月曜日 C1：火曜日 D1：水曜日 上のA1～D1まで入力した上でコマンドボタンをクリックすると、自動的に行うようにしたいです。 Private Sub CommandButton1_Click() Dim objie As Object Set objie = CreateObject("InternetExplorer.application") objie.Visible = True objie.Navigate "http://●●●●/form.html" Dim kubun As String kubun = range("A1") Select Case kubun Case "1-1" call ma1_1 Case "1-2" call ma1_2 Case "1-3" call ma1_3 End select Set objie = Nothing End sub Sub ma1_1() objie.Document.all.form1_1.Value = Range("B1") End Sub Sub ma1_2() objie.Document.all.form1_1.Value = Range("B1") objie.Document.all.form1_2.Value = Range("C1") End Sub Sub ma1_3() objie.Document.all.form1_1.Value = Range("B1") objie.Document.all.form1_2.Value = Range("C1") objie.Document.all.form1_3.Value = Range("D1") End Sub これで実行を押すと、objie 変数が定義されていません。と出てしまいます。このobjieを有効にするにはどうしたよいのでしょうか？ わかる方いましたらご教授願います。 よろしくお願いします。

  • VBAからIE操作でログインできない

    社内の業務管理システムにエクセルＶＢＡでログインしようとしています、が、ログインはもとより、ＩＤを入力する部分に私のＩＤ情報すら入力されません。 とりあえずＩＤ枠に入力する方法をアドバイスをお願いします。 ◆ｈｔｍｌソース <table> <tr> <td>ＩＤ</td> <td><input type="text" name="UserId" id="UserId" /></td> </tr> <tr> <td>PW</td> <td><input type="password" name="UserPass" id="UserPass" /></td> </tr> ◆ＶＢＡでは以下のいずれの文も失敗（ＩＤ入力枠に何も入らない。エラー発生。） ※右辺のD12セルには私のＩＤ情報を入力しています。 ObjIE.Document.all.UserId.Value = Worksheets("MyData").Range("D12").Value ObjIE.Document.all("UserId")(0).Value = Worksheets("MyData").Range("D12").Value ObjIE.Document.all("UserId").Value = Worksheets("MyData").Range("D12").Value ObjIE.document.forms(0).elements("UserId").Value = Worksheets("MyData").Range("D12").Value ObjIE.document.forms(0).elements("UserId")(0).Value = Worksheets("MyData").Range("D12").Value ObjIE.Document.getElementById("UserId").Value = Worksheets("MyData").Range("D12").Value ObjIE.document.all.Item("UserId").Value = Worksheets("MyData").Range("D12").Value 上記コードの何が間違っているのでしょうか？ あるいは、上記の原因特定するために、何を試せばよいでしょうか？ 宜しくお願いいたします。

  • VBAからIEの操作

    グーグルをIEで開いてVBA（語句）を検索して見終わったら IEを閉じる作業をしたいのですが、検索窓にVBA（語句）を 入力するところでエラーとなります。初心者ですが、なんとか 勉強したいのでよろしくお願いいたします。 Sub ie_test_Navigate() Dim objIE As Object Set objIE = CreateObject("InternetExplorer.application") objIE.Visible = True objIE.Navigate "http://www.google.co.jp/" IE.document.all.q.Value = "VBA" IE.document.all.btnG.Click If MsgBox("IEを閉じますか？", vbYesNo, "終了確認") = vbYes Then objIE.Quit End If Set objIE = Nothing End Sub

  • VBA　IE操作　ログイン後ＵＲＬを取得したい

    yahooにログインするＶＢＡコードはわかるのですが、 ログインが失敗なのか正常にログインできたのかをＶＢＡで知りたいです。 結果を知るには、ログインボタン押下後のＵＲＬを取得できればいいと思うのですが その方法がわかりません。 ログイン自体は、 --------------------------------------------------------- Sub ie_test() Dim objIE As Object 'ＩＥオブジェクト参照用 'インターネットエクスプローラーのオブジェクトを作る Set objIE = CreateObject("InternetExplorer.application") objIE.Visible = True '見えるようにする(お約束) '文字列で指定したＵＲＬに飛ぶ objIE.Navigate "https://login.yahoo.co.jp/config/login?.src=www&.done=http://www.yahoo.co.jp" '表示終了まで待つ Do While objIE.Busy = True '何もしないループ（笑） DoEvents Loop '項目名を指定して、データをセットする objIE.document.all.UserName.Value = "UserName" objIE.document.all.passwd.Value = "****" objIE.document.Forms(0).submit End Sub --------------------------------------------------------- で、できました。 objIE.document.Forms(0).submitの後には、 ログインが出来ていたら http://www.yahoo.co.jp/ のページへ行き、 ログイン失敗なら https://login.yahoo.co.jp/config/login? のＵＲＬが表示され、図のように 「Yahoo! JAPAN IDまたはパスワードが正しくありません。」 と表示されます。 objIE.document.Forms(0).submitの後に MsgBox objIE.URL を入れると 「オブジェクトは、このプロパティまたはメソッドをサポートしていません。(Error 438)」 になり、 MsgBox objIE.Navigate を入れると 「引数の数が一致していません。または不正なプロパティを指定しています。(Error 450)」 になります。 ログイン後のソースをエクセルに書き出す方法も考えましたが、書き出しに時間がかかるのでやめました。 ご教授よろしくお願いします。

  • ｖｂａ　ｉｅ操作　ボタンを押したい（２）

    https://ca.omc-card.co.jp/member/omcplus_login.html のサイトにログインしたいのですが、ログインボタンが押せません。 ソースは、 ********************************************************************************** <FORM action="../member/xt_mem_top_login.asp" method="post" name="form1"><input type="hidden" name="sid" value=""><input type="hidden" name="pw" value="">　 　　　～～～省略～～～ <TABLE border="0" cellspacing="0" cellpadding="5" class="tab_button_bottom15"> <TR> <TD><A href="javascript:checkInput(document.form1);"><IMG src="../img/button/login.gif" alt="ログイン" width="160" height="35" border="0"></A></TD> </TR> </TABLE> </FORM> ********************************************************************************** です。 --------------------------------------------------------------------------------- Sub test() Dim objIE As InternetExplorer Set objIE = CreateObject("InternetExplorer.Application") objIE.Visible = True objIE.Navigate "https://ca.omc-card.co.jp/member/omcplus_login.html" Do While objIE.Busy = True Or objIE.ReadyState <> 4 DoEvents Loop objIE.Document.forms(0).Item("sid_input").Value = "×××" objIE.Document.forms(0).Item("pw_input").Value = "×××" Do While objIE.Busy = True Or objIE.ReadyState <> 4 DoEvents Loop 'objIE.Document.forms(1).submit 'エラーになる objIE.Document.all.Item("document.form1").Click 'エラーになる objIE.Document.forms(0).getElementsByTagName("input")(0).Click 'エラーにならないけどクリックもされない。 objIE.Document.forms(0).getElementsByTagName("input")(1).Click 'エラーにならないけどクリックもされない。 objIE.Document.forms(0).getElementsByTagName("document.form1")(1).Click 'エラーになる objIE.Document.forms(1).getElementsByTagName("input")(1).Click 'エラーになる Set objIE = Nothing End Sub --------------------------------------------------------------------------------- テキストにＩＤとＰＷを入れるところまでは出来たのですが、 ログインボタンを押すことができません。 すいませんがご教授ご回答よろしくお願いしますｍ（　）ｍ

  • VBの記述方法はVBAと同じなのですか？

    これからVisual Studio 2012を導入してVBA（Excel）でやっていたことをVSでやりたいのですが 基本的にVSのVisual Basicの記述方法はVBAと同じなのでしょうか？ 例えばネットのあるサイトをログインして遷移後のhtmlを取得するには、VBAだと以下のように書きます。 Dim objIE As Object Set objIE = CreateObject("InternetExplorer.application") objIE.Visible = True objIE.Navigate "http://xxxxxx/login.aspx" objIE.document.All.txt_userid.Value = xxx 'ユーザー名 objIE.document.All.txt_pass.Value = xxx 'パスワード objIE.document.All.btn_login.Click '送信結果のページ読み込みが終わるまでループ While (objIE.Busy = True Or objIE.ReadyState <> 4) 　DoEvents Wend '表示したページの<BODY>部のHTMLを取得 Dim htmlBody As String htmlBody = objIE.Document.Body.InnerHtml C#で記述しようか、慣れているVBAと似ているVBで書こうか悩んでいます。 どうぞよろしくお願い致します。

  • vba　IE操作　教えてgoo　マイページ

    賃貸・タウン情報の「Q&A広場」 で教えてgooを使っているのですが ２個目のie_waitが機能しないというか意味がない状態になります。 ********************************************************** Sub test() Set objIE = CreateObject("InternetExplorer.application") objIE.Visible = True objIE.Navigate "http://hiroba.chintai.net/login?return_url=http%3A%2F%2Fhiroba.chintai.net%2Fmypage#tabs" Call ie_wait '1個目 objIE.Document.all("mailaddress").Value = "あああ" objIE.Document.all.Password.Value = "1111" objIE.Document.all.login_skip.Click objIE.Document.Forms(1).submit Call ie_wait '２個目 End Sub -------------------------------------------------- Sub ie_wait() Const READYSTATE_COMPLETE As Long = 4 Do Until objIE.ReadyState = READYSTATE_COMPLETE Loop Do While objIE.Busy = True DoEvents Loop End Sub ********************************************************** 二個目のie_waitは、 ie_waitの操作が完了しないのに次のコードへ進んでしまいます。 一個目のie_waitは、 objIE.Navigate "http://hiroba.chintai.net/login?return_url=http%3A%2F%2Fhiroba.chintai.net%2Fmypage#tabs" が表示さえるのを待つコードですが、 objIE.Document.Forms(1).submitでログインして、マイページが表示されるまで待つには、 どのようなコードを入れればいいのでしょうか？

  • VBAでエクセルからツイッターに投稿

    VBAでエクセルからツイッターに連続投稿したいのですが難しいでしょうか？？ 試しに作ってみたVBAです。 'モバイルなら投稿できるかも・・・？ Sub tweet() Dim ie As InternetExplorer Dim txtAreaInput As HTMLTextAreaElement Set ie = CreateObject("internetExplorer.Application") 'IEを開く○ ie.Visible = True ie.Navigate "https://mobile.twitter.com/compose/tweet" 'ツイッターを開く○ Do While ie.Busy Or ie.ReadyState < READYSTATE_COMPLETE 'ページの読み込みを待つ○ DoEvents Loop Range("B2").Select '画像ファイルのセルをコピー○しかし連続となるとやり方わからないです。 Selection.Copy Set txtAreaInput = ie.Document.getElementsByName("textarea")(0) 'セルを選択× txtAreaInput.Value = ActiveSheet.Cells(2, 1).Value ObjIE.Document.all("camera-input").Click '画像パスを開く×そもそもカメラボタンが消えている？？ SendKeys "^v{ENTER}" '画像ファイルのパスをペーストしエンター×効かない？？ For Each Anchor In ie.Document.getElementsByTagName("A") 'ツイートを投稿×ボタンが押せない If Anchor.innerText = " ツイート " Then Anchor.Click Exit For End If Next End Sub

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する