'?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で > 開こうとするとエラーになるのでしょうか? > > 以上、宜しくお願い致します。 > >
副島 望さんの投稿
(投稿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で
開こうとするとエラーになるのでしょうか?
以上、宜しくお願い致します。
小川 慶一さんのコメント
(コメント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で
> 開こうとするとエラーになるのでしょうか?
>
> 以上、宜しくお願い致します。
>
>
副島 望さんのコメント
(コメント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ファイルを送付致します。
ご確認、宜しくお願い致します。
小川 慶一さんのコメント
(コメントID: 6129)
すいません、お返事いただいていたの気づきませんでした。
当初いただいた投稿が文字化していたため、解決が遅れてしまいました。
僕の環境では動作しました。
url = "C:¥Users¥e0206¥OneDrive¥デスクトップ/hina.html"
↑
hina.html の前、スラッシュではなく、円マーク(またはバックスラッシュ)が正しいです。
よろしくお願いいたします。
副島 望さんのコメント
(コメントID: 6133)
小川様
お世話になります。
下記の件ですが、
修正して試してみましたが、
やはり同じところでエラー表示
(Do While objIE.readyState <> 4 Or objIE.Busy = True)
になってしまいます。
エラーの場所にマウスポインタを持っていったところ、
『リモートサーバーがないか、利用できる状態ではありません』
となっています。
サーバーと接続している環境でないと、このエラーがでるのでしょうか?
以上、宜しくお願い致します。
> 副島 望さん:
>
> すいません、お返事いただいていたの気づきませんでした。
>
> 当初いただいた投稿が文字化していたため、解決が遅れてしまいました。
>
> 僕の環境では動作しました。
>
> url = "C:¥Users¥e0206¥OneDrive¥デスクトップ/hina.html"
> ↑
> hina.html の前、スラッシュではなく、円マーク(またはバックスラッシュ)が正しいです。
>
> よろしくお願いいたします。
小川 慶一さんのコメント
(コメントID: 6134)
確認してみました。
確かに、Webサーバ上のコンテンツでないと、ダメですね...。
どこか使えるサーバがあれば、そこにコンテンツを置いて試してください。
でなければ、「xampp」というソフトをインストールすると、PC内にサーバを作れますので、そこにファイルを置いて、以下のURL等で動作確認できるかと思います。
http://localhost/hina.html
> 小川様
>
> お世話になります。
>
> 下記の件ですが、
> 修正して試してみましたが、
> やはり同じところでエラー表示
> (Do While objIE.readyState <> 4 Or objIE.Busy = True)
> になってしまいます。
>
> エラーの場所にマウスポインタを持っていったところ、
> 『リモートサーバーがないか、利用できる状態ではありません』
> となっています。
>
> サーバーと接続している環境でないと、このエラーがでるのでしょうか?
> 以上、宜しくお願い致します。