レッスン-投稿一覧パソコン仕事５倍塾ポータル

投稿/コメントを表示します。

エクセルマクロVBA「Web連携」

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

副島　望さんの投稿

(投稿ID: 4449)

小川慶一様：
[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で
開こうとするとエラーになるのでしょうか？

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

2019/04/03 14:14

小川慶一さんのコメント

(コメントID: 6126)

副島　望さん:

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

マクロの入ったファイルと 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で
> 開こうとするとエラーになるのでしょうか？
>
> 以上、宜しくお願い致します。
>
>

2019/04/03 20:18

副島　望さんのコメント

(コメントID: 6127) 添付ファイルのダウンロード権限がありません

小川慶一さん:

> 副島　望さん:
>
> これだけだとわかりません。
>
> マクロの入ったファイルと 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ファイルを送付致します。
ご確認、宜しくお願い致します。

2019/04/04 05:26

小川慶一さんのコメント

(コメントID: 6129)

副島　望さん:

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

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

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

url = "C:¥Users¥e0206¥OneDrive¥デスクトップ/hina.html"
↑
hina.html の前、スラッシュではなく、円マーク(またはバックスラッシュ)が正しいです。

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

2019/04/08 18:30

副島　望さんのコメント

(コメントID: 6133)

小川慶一さん:
小川様

お世話になります。

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

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

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

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

2019/04/10 05:40

小川慶一さんのコメント

(コメントID: 6134)

副島　望さん:

確認してみました。

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

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

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

2019/04/10 20:11