オンライン講座 質問と回答

無料・有料のオンライン講座で寄せられたメッセージの一部を紹介致します。

[11313]エクセルマクロVBA「Web連携」Microsoft Internet Controls_Webコンテンツの取得

2019-04-03 13:24:33 ざきさんさんからの投稿です。

返信ありがとうございます。
アプリという表現が正しかったのかわかりませんが、サイト上で顧客管理をしています。ここでURLをさらしていいのかわからなかったので、添付ファイルにて、URLを送ります。

[ 続きを読む ]  返信件数:1件  [ 動画を見る] 

[11310]エクセルマクロVBA「Web連携」Microsoft Internet Controls_Webコンテンツの取得

2019-04-03 09:46:45 ざきさんさんからの投稿です。

小川先生、おはようございます。
先日はロリポップのログインの件ありがとうございました。
無事に先に進むことができ、ロリポップ上に溜まったメール約50件から、顧客番号、氏名、電話番号を抜き取ることに成功しました。今までコピペで対応していたのが、馬鹿らしく感じます。

次のステップとして、仕事で使用しているクラウド型の顧客アプリにログインしたいのですが、IEでひらくと、添付ファイルのような画面になり、会社で使ってるFirefoxで開く画面と違い困っています。
IEでひらくと ctrl + Uを押してもソースコードでないので、分析しようがありません。

何か良い方法があったら教えてほしいです。
よろしくお願いします。

[ 続きを読む ]  返信件数:1件  [ 動画を見る] 

[11309]エクセルマクロVBA「Web連携」Microsoft Internet Controls_Webコンテンツの取得

2019-04-03 05:14:07 副島 望さんからの投稿です。

小川慶一様:
Sub DomSample2()
' On Error Resume Next

Dim objIE As New InternetExplorer
objIE.Visible = True

Dim url As String
' url = "https://www.exvba.com/ws/domform.html?time=" & Format(Now, "yymmddhhnnss")
'???Q?l????ASSL??????????g??????B

url = "C:/Users/e0206/OneDrive/?f?X?N?g?b?v/hina.html"

'?e?X?g?y?[?W??AID?????????
objIE.navigate url

'?y?[?W??¥?????????
Do While objIE.ReadyState <> 4 Or objIE.Busy = True
DoEvents
Loop

上記マクロを実行すると、DO While のところで
オートメンションエラーが発生します。
自分のデスクトップ上のHTMLファイルをVBAで
開こうとするとエラーになるのでしょうか?

以上、宜しくお願い致します。

[ 続きを読む ]  返信件数:5件  [ 動画を見る] 

[11301]エクセルマクロVBA「Web連携」Microsoft Internet Controls_Webコンテンツの取得

2019-03-28 11:33:13 ざきさんさんからの投稿です。

小川先生、こんにちは。質問です。
仕事でロリポップWebメーラーにある情報を抜き取る作業をしたいのですが、ログインするところで躓いています。

https://tools.lolipop.jp/mail/

メールアドレスとメールパスワードの自動入力はなんとかマクロで作成できました。
しかし、どうやっても「ログイン」の画像をクリックして送信する方法がわかりません。
ちなみに、「Microsoft HTML Object Library」と「Microsoft Internet Controls」は参照済みです。作成したエクセルファイルを添付します。
アドバイスをお願いします。

[ 続きを読む ]  返信件数:2件  [ 動画を見る] 

[11296]エクセルマクロVBA「Web連携」Microsoft Internet Controls_Webコンテンツの取得

2019-03-26 09:49:07 受講生さんからの投稿です。

質問です。
「05_IE制御してコンテンツを取得.xls」ファイル中にある、マクロを実行したのですが、最初の数回は正常に実行できるのですが、繰り返すと「objIE.Visible = True」のところでプログラムがストップします。原因がわからず、困っています。「オートメーションエラー」と書いてあります。助けてください。

ちなみに、再起動して再度マクロを実行しても、同じ症状がでます。
回答よろしくおねがいします。

[ 続きを読む ]  返信件数:1件  [ 動画を見る] 

[10038]エクセルマクロVBA「Web連携」Microsoft Internet Controls_Webコンテンツの取得

2018-05-23 12:23:46 受講生さんからの投稿です。

田中 宏明様

わざわざコメントありがとうございました。
やはり一筋縄ではいかないのですね。
参考ページを見ながら、
MSXMLやWinHttpRequestの検討もしつつ
研究してみます。
ありがとうございました。

[ 続きを読む ]  返信件数:1件  [ 動画を見る] 

[10014]エクセルマクロVBA「Web連携」Microsoft Internet Controls_Webコンテンツの取得

2018-05-21 13:37:46 受講生さんからの投稿です。

何度もすみません、
以下の件で、
.getElementsByClassName("nav-login-btn")を使ってみたところ、
要素の取得はできるようなのですが、クリックができませんでした。
.clickと書くだけではダメなのでしょうか。


また、それとは別の質問で、SWFコンテンツ?というのでしょうか、
以下のようなソースの場合、どのようにすればクリックできますでしょうか
getElementByIdではできませんでした。

<object type="application/x-shockwave-flash" id="MainExternalImport" name="MainExternalImport" align="middle" data="./swf/MainExternalImport_ver1_4.swf" width="105" height="23"><param name="quality" value="high"><param name="bgcolor" value="#ffffff"><param name="allowscriptaccess" value="sameDomain"><param name="allowfullscreen" value="true"></object>

[ 続きを読む ]  返信件数:1件  [ 動画を見る] 

[10009]エクセルマクロVBA「Web連携」Microsoft Internet Controls_Webコンテンツの取得

2018-05-20 22:26:05 受講生さんからの投稿です。

(追記)
ちなみに、IDとパスワードを入力する部分にはIDがついていたのでgetElementByIdでの操作は成功済です。
ログインボタンだけがIDの記載がなかったので詰まってしまいました。

[ 続きを読む ]  返信件数:1件  [ 動画を見る] 

[10008]エクセルマクロVBA「Web連携」Microsoft Internet Controls_Webコンテンツの取得

2018-05-20 22:18:58 受講生さんからの投稿です。

IEで、IDとパスワードを入力してログインボタンを押す、
という操作をしたいのですが、
ログインボタンにはIDがついておらず、
getElementByIdでの操作ができそうにありません。
また、elementsでもないようで、エラーになってしまいました。

ソースは次のようなものでした。
<dd class="nav-login-btn"><a href="javascript:void(0);" onclick="javascript:func_request_Link('LOGIN'); return false;">ログイン</a></dd>


ネットで調べたところ、以下のようなコードが見つかり、
これでやったら無事にログインボタンが押されました。
この場合は、このような方法しかないでしょうか。

Dim ie As Object
Dim tag As Object
Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True
ie.navigate "http://目的のURL"
Do While ie.Busy Or (ie.ReadyState <> 4): DoEvents: Loop
For Each tag In ie.document.getElementsByTagName("a")
If tag.InnerText = "ログイン" Then
tag.Click
Exit For
End If
Next

[ 続きを読む ]  返信件数:1件  [ 動画を見る] 

[3777]エクセルマクロVBA「Web連携」Microsoft Internet Controls_Webコンテンツの取得

2015-02-08 21:52:34 受講生さんからの投稿です。

小川先生

いつもお世話になっております。
下記部分でマクロ実行中にエラーになってしまいました。
私のできる範囲で調べてみましたが、わかりませんでしたので、
質問させていただきます。
言葉足らずな部分があるかと思いますが、その際はご連絡をお願いいたします。
ご回答をよろしくお願いいたします。


ファイル名 :「05_IE制御してコンテンツを取得」
標準モジュール :「m05030_post_collectionindex」
エラー内容 :「実行時エラー'70 書き込みできません。」
止まってしまった部分:下記コードの部分です。

    objIE.Document.forms(0).elements(0).Value = "Web連携セミナー"


※補足情報
バージョン :excel2013
コード :コードは全く変更を加えておりません。
   ダウンロードしたファイルのコードをそのまま実行しただけです。

[ 続きを読む ]  返信件数:14件  [ 動画を見る] 


各講座ごとのメッセージを見る場合はこちら

 

まずはここから!スマホでも学べる無料動画講座

今なら先着30名限定で無料!定価4,800円の、初心者のためのエクセルマクロ動画講座。
  1. Excel 97~Excel 2016まですべて対応。動画本数20本、総再生時間2時間44分53秒
  2. PC, Mac, iPhone, iPad, Androidのお好みの環境で、いつでも好きなときに学べます。
2004年から10年間述べ3,000名以上に実施した研修の経験と実績を集約した講座です。
いますぐ無料で試してください。

トップへ