Excel VBA質問箱 IV

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

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


27457 / 76738 ←次へ | 前へ→

【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へ バージョンアップすると
止まってしまいます。

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

何が、いけないのでしょうか?
0 hits

【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 お礼

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