エクセルマクロ オンライン講座コメント紹介

コメント紹介
   └ エクセルマクロVBA「Web連携」
       └ エクセルマクロVBA「Web連携」Microsoft Internet Controls_Webコンテンツの取得

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

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

小川慶一様:
[code]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
[code]
上記マクロを実行すると、DO While のところで
オートメンションエラーが発生します。
自分のデスクトップ上のHTMLファイルをVBAで
開こうとするとエラーになるのでしょうか?

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

 


[11312] 2019-04-03 11:18:20 小川慶一さんからの投稿です。

副島 望さん:

これだけだとわかりません。

マクロの入ったファイルと hina.html をまとめて zip ファイルにして送付いただけますか。
よろしくお願いします。


> 小川慶一様:
> [code]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
> [code]
> 上記マクロを実行すると、DO While のところで
> オートメンションエラーが発生します。
> 自分のデスクトップ上のHTMLファイルをVBAで
> 開こうとするとエラーになるのでしょうか?
>
> 以上、宜しくお願い致します。
>
>

 


[11315] 2019-04-03 20:26:12 副島 望さんからの投稿です。

小川慶一さん:

> 副島 望さん:
>
> これだけだとわかりません。
>
> マクロの入ったファイルと hina.html をまとめて zip ファイルにして送付いただけますか。
> よろしくお願いします。
>
>
> > 小川慶一様:
> > [code]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
> > [code]
> > 上記マクロを実行すると、DO While のところで
> > オートメンションエラーが発生します。
> > 自分のデスクトップ上のHTMLファイルをVBAで
> > 開こうとするとエラーになるのでしょうか?
> >
> > 以上、宜しくお願い致します。
> >
> >


小川様

お世話になっております。
副島です。

ZIPファイルを送付致します。
ご確認、宜しくお願い致します。

 


[11318] 2019-04-08 09:30:05 小川慶一さんからの投稿です。

副島 望さん:

すいません、お返事いただいていたの気づきませんでした。

当初いただいた投稿が文字化していたため、解決が遅れてしまいました。

僕の環境では動作しました。

url = "C:¥Users¥e0206¥OneDrive¥デスクトップ/hina.html"

hina.html の前、スラッシュではなく、円マーク(またはバックスラッシュ)が正しいです。

よろしくお願いいたします。

 


[11325] 2019-04-09 20:40:12 副島 望さんからの投稿です。

小川慶一さん:
小川様

お世話になります。

下記の件ですが、
修正して試してみましたが、
やはり同じところでエラー表示
(Do While objIE.readyState <> 4 Or objIE.Busy = True)
になってしまいます。

エラーの場所にマウスポインタを持っていったところ、
『リモートサーバーがないか、利用できる状態ではありません』
となっています。

サーバーと接続している環境でないと、このエラーがでるのでしょうか?
以上、宜しくお願い致します。

> 副島 望さん:
>
> すいません、お返事いただいていたの気づきませんでした。
>
> 当初いただいた投稿が文字化していたため、解決が遅れてしまいました。
>
> 僕の環境では動作しました。
>
> url = "C:¥Users¥e0206¥OneDrive¥デスクトップ/hina.html"
> ↑
> hina.html の前、スラッシュではなく、円マーク(またはバックスラッシュ)が正しいです。
>
> よろしくお願いいたします。

 


[11327] 2019-04-10 11:11:29 小川慶一さんからの投稿です。

副島 望さん:

確認してみました。

確かに、Webサーバ上のコンテンツでないと、ダメですね...。

どこか使えるサーバがあれば、そこにコンテンツを置いて試してください。
でなければ、「xampp」というソフトをインストールすると、PC内にサーバを作れますので、そこにファイルを置いて、以下のURL等で動作確認できるかと思います。
http://localhost/hina.html



> 小川様
>
> お世話になります。
>
> 下記の件ですが、
> 修正して試してみましたが、
> やはり同じところでエラー表示
> (Do While objIE.readyState <> 4 Or objIE.Busy = True)
> になってしまいます。
>
> エラーの場所にマウスポインタを持っていったところ、
> 『リモートサーバーがないか、利用できる状態ではありません』
> となっています。
>
> サーバーと接続している環境でないと、このエラーがでるのでしょうか?
> 以上、宜しくお願い致します。

 


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

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

トップへ