Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

27451 / 76732

←次へ　｜　前へ→


	【54600】IE7とEXCEL2000で、ダウンロードするには？

row - 08/3/23(日) 1:45 -


	引用なし

	パスワード

皆さん、こんばんは

IE7　と　EXCEL2000で、以下のマクロを
動かそうとしています。

With Application
　 .ScreenUpdating = False
　 .DisplayAlerts = False
End With

テーブル = 20
　　Worksheets(1).Select　
　　Worksheets(1).Range("A:A").Select
　　Selection.ClearContents

SKIP2:

'　
　min_code = 1300
　max_code = 9999
　block = 50
　For m = min_code To max_code Step block
　　　　'URLデータの作成
　　　　code_no = m
　　　　strdata = "URL;quote.yahoo.co.jp/q?s="
　　　　For i = 0 To block - 2
　　　　　　strdata = strdata + CStr(code_no) + "+"
　　　　　　code_no = code_no + 1
　　　　Next
　　　　strdata = strdata + CStr(code_no)
　' データ
　　Worksheets(1).Select
　　Cells.Select
　　Selection.ClearContents
　　Worksheets(1).Range("A1:iv999").Select
　　With ActiveSheet.QueryTables.Add(Connection:=strdata, Destination:=Range("A1:iv999"))
　　 .Name = "yahoo"
　　 .FieldNames = True
　　 .RowNumbers = False
　　 .FillAdjacentFormulas = False
　　 .PreserveFormatting = True
　　 .RefreshOnFileOpen = False
　　 .BackgroundQuery = False
　　 .RefreshStyle = xlOverwriteCells　　　　　　　
　　 .SavePassword = False
　　 .SaveData = False
　　 .AdjustColumnWidth = True
　　 .WebSelectionType = xlSpecifiedTables
　　 .WebFormatting = xlWebFormattingNone
　　 .WebTables = テーブル　　
　　 .WebPreFormattedTextToColumns = True
　　 .WebConsecutiveDelimitersAsOne = True
　　 .WebSingleBlockTextImport = False
　　 .WebDisableDateRecognition = False
　　 .Refresh BackgroundQuery:=False　　　　' ここでとまります
　　 .EnableRefresh = False
　　End With
'　
　Cells.Select
　　Selection.Copy
　　Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
　　　　False, Transpose:=False
　　Application.CutCopyMode = False

----------------------------------------------------------------

strdataの所には、きちんと記述しています。（投稿制限文字に引っかかるので）

このマクロは、IE6 と EXCEL2000の時には
問題なく作動していました。

しかし、IE7にアップグレードした途端に　
　　 .Refresh BackgroundQuery:=False　　　
で、止まってしまいます。

IE7から、IE6へ　バージョンダウンすると、
問題なく作動します。

再度、IE7へ　バージョンアップすると
止まってしまいます。

ネットキャッシュを削除したのですが、
やはり、止まってしまいます。

何が、いけないのでしょうか？

1 hits

▼

【54600】IE7とEXCEL2000で、ダウンロードするには？ row 08/3/23(日) 1:45

≪