[[20031004183157]]　『ｗｅｂクエリの巡回』（moonmika）　ページの最後に飛ぶ

『ｗｅｂクエリの巡回』（moonmika）

下のマクロ以前この学校で教えていただいたのですが、
para = "8236"の部分、sheet10にあるA列1行目から順番にDLしていくにはどうすれば
よいのでしょう？
A列の最後は空白でマクロ終了にしたいのです。

よろしく、お願いします。

Sub Macro1()

    para = "8236"

    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://chart.yahoo.co.jp/t?&s=" & para & "&a=1&b=1&c=2000&d=1&e=1&f=2010&g=d&y=0&z=" & para & "&x=.csv" _
        , Destination:=Range("A1"))
        .Name = "t?&s=" & para & "&a=1&b=1&c=2000&d=1&e=1&f=2010&g=d&y=0&z=" & para & "&x="
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlOverwriteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlSpecifiedTables
        .WebFormatting = xlWebFormattingNone
        .WebTables = "10"
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With

　　　　’’中略

 End Sub

 ↓これが以前の[書き込み]だと思います。
[[20030713123814]]『ハイパーリンクについて』（moonmika）

 Sub Macro1()
    Sheets("Sheet10").select
    para = "8236"
    ...

でできると思いますが。（kazu）

ありがとう、ございました。
なんとか、作成できました。（moonmika）

 あの～　解決済みのようですけど、
 Sheet10のA列に

 って入力があって、それを順次Webクエリで取り込んでいくっていう質問じゃ
 なかったのかな？

 kazuさんの説明から何故「なんとか、作成できました。」となるのか
 不思議です（謎）。

 （ramrun）お昼～

 たしかに、表題には巡回と。
 では、おまけ。
 その場合は↓のようにすれば巡回らしくなりますね。
 （kazu）

 Sub WebRound() 
    Macro1 "8236","Sheet10"
    Macro1 "8237","Sheet11"
 End Sub

 Sub Macro1(para,shnam)
    ' para = "8236"
    Sheets(shnam).Select
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://chart.yahoo.co.jp/t?&s=" & para & "&a=1&b=1&c=2000&d=1&e=1&f=2010&g=d&y=0&z=" & para & "&x=.csv" _
        , Destination:=Range("A1"))
        .Name = "t?&s=" & para & "&a=1&b=1&c=2000&d=1&e=1&f=2010&g=d&y=0&z=" & para & "&x="
        .FieldNames = True
        .RowNumbers = False
        ...
    End With
 End Sub

 こちら事務局です、ニックネームを変更しました。
 （kazu）2003/10/26

コメント返信：

[ 一覧(最新更新順) ]

[[20031004183157]] 『ｗｅｂクエリの巡回』（moonmika） ページの最後に飛ぶ

[[20031004183157]]　『ｗｅｂクエリの巡回』（moonmika）　ページの最後に飛ぶ