Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
4762 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【54600】IE7とEXCEL2000で、ダウンロードするには？ row 08/3/23(日) 1:45 質問[未読]
【54601】Re:IE7とEXCEL2000で、ダウンロードするに... りん 08/3/23(日) 8:40 発言[未読]
【54628】Re:IE7とEXCEL2000で、ダウンロードするに... row 08/3/24(月) 23:49 お礼[未読]
【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へ　バージョンアップすると
止まってしまいます。

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

何が、いけないのでしょうか？
【54601】Re:IE7とEXCEL2000で、ダウンロードする...
発言  りん E-MAIL  - 08/3/23(日) 8:40 -
引用なし
パスワード
   row さん、おはようございます。

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

Googleで「.Refresh BackgroundQuery:=False IE7」と検索するとたくさんひっかかりました。Q&Aもいろいろ出てきたので見てみると、回答で共通しているのは、

　一時ファイルと履歴を削除

ということのようです。

参考）
　EXCELVBA便利帳
　　htt p://www2s.biglobe.ne.jp/~iryo/
　6.Yahooファイナンス取得不安定の件
　　htt p://www2s.biglobe.ne.jp/~iryo/kabu/info/QA/q3.html
【54628】Re:IE7とEXCEL2000で、ダウンロードする...
お礼  row  - 08/3/24(月) 23:49 -
引用なし
パスワード
   りん さん、回答頂きありがとうございます。

>　一時ファイルと履歴を削除
>ということのようです。

これを実現する為に、以下のコードを考えました。

Dim fs As Variant
Set fs = Application.FileSearch
　　With fs
　　 .LookIn = "C:\Documents and Settings\ｓｓｓ\Local Settings\Temporary Internet Files\"
　　 .Filename = "*.*"
　　 If .Execute(SortBy:=msoSortByFileName, _
　　 SortOrder:=msoSortOrderAscending) > 0 Then
　　　 Kill "C:\Documents and Settings\ｓｓｓ\Local Settings\Temporary Internet Files\*.*"
　　 Else
　　 GoTo skip2
　　 End If
　　End With
skip2:

インターネットキャッシュを削除しようとしています。

しかし、フォルダを覗くと
ぜんぜん　削除されません。

なぜなのでしょうか？
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
4762 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free