[[20070218204302]]　『実行時エラー1004』（TAKE）　ページの最後に飛ぶ

『実行時エラー1004』（TAKE）

WindowsXP,Excel2002を利用しています

初めまして、ヤフーファイナンスから株価データをダウンロードするマクロを利用しています。２日前から実行時エラー1004が表示するようになりました。２日前以前は問題なく使えていました。特に環境を変えたりしていません。突然実行時エラーが出るようになり、原因がわかりません。ご教授をお願いします。

実行時エラー'1004':

ファイルにアクセスできませんでした。次のいずれかを行ってみてください。

？指定したフォルダーがあることを確認します。

？ファイルを含むフォルダーが読み取り専用になっていないことを確認します。

？指定したファイルの名前に次のいずれかの文字も含まれていないことを確認します:

<>?[]:|*

？ファイル名およびパス名が半角で218文字より長くないことを確認します。

マクロは

Sub Get_Data()

    With ActiveSheet.QueryTables.Add(Connection:=url, Destination:=Cells(lastrow, 2))
        .Name = "Yahoo"
        .FieldNames = False
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = False
        .RefreshPeriod = 0
        .WebSelectionType = xlSpecifiedTables
        .WebFormatting = xlWebFormattingNone
        .WebTables = "19"                                 '価格の取得がうまく動作しなくなった場合、この値を変更
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .Refresh BackgroundQuery:=False
    End With
End Sub
これが.Refresh BackgroundQuery:=False黄色になります。

おそらく、Yahooの株価データ提供ページの構成が変わった可能性があるんじゃないかなと思います。マクロ作成者様が何か情報を出していないか、対応していないかを確認された方がよろしいかと。

なんにせよこれだけの情報ではこの学校内で原因を突き止めるのは無理かと思います。

（ご近所PG）

コメント返信：

[ 一覧(最新更新順) ]

[[20070218204302]] 『実行時エラー1004』（TAKE） ページの最後に飛ぶ

[[20070218204302]]　『実行時エラー1004』（TAKE）　ページの最後に飛ぶ