Excel VBA質問箱 IV

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

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


4760 / 13644 ツリー ←次へ | 前へ→

【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\sss\Local Settings\Temporary Internet Files\"
   .Filename = "*.*"
   If .Execute(SortBy:=msoSortByFileName, _
   SortOrder:=msoSortOrderAscending) > 0 Then
    Kill "C:\Documents and Settings\sss\Local Settings\Temporary Internet Files\*.*"
   Else
   GoTo skip2
   End If
  End With
skip2:

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

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

なぜなのでしょうか?

4760 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free