Web クエリで Web 情報を Excel へ入力するプログラムを作成したい

Question

はじめまして

ウェブページの情報をエクセルへ入力していく

プログラムを作成したいと考えています。

やりたい事は以下のコードのURLの数字部分（05）を自動で次の数字（05なら06）に変更したいです。

この数字は一つずつ増えていきます。

手打ちではデータ数が1600近くあるのでとても大変です。

なにかいい方法を教えてください。

Sub 三国5レース()

'

' 三国5レース Macro

'

'

    Range("B3").Select

    With ActiveSheet.QueryTables.Add(Connection:= _

        "URL;http://app.boatrace.jp/race/10_20150502.php?day=20150503&jyo=10&rno=05&type=program" _

        , Destination:=Range("$B$3"))

        .Name = "10_20150502.php?day=20150503&jyo=10&rno=05&type=program"

        .FieldNames = True

        .RowNumbers = False

        .FillAdjacentFormulas = False

        .PreserveFormatting = False

        .RefreshOnFileOpen = False

        .BackgroundQuery = True

        .RefreshStyle = xlInsertDeleteCells

        .SavePassword = False

        .SaveData = True

        .AdjustColumnWidth = True

        .RefreshPeriod = 0

        .WebSelectionType = xlSpecifiedTables

        .WebFormatting = xlWebFormattingAll

        .WebTables = "1"

        .WebPreFormattedTextToColumns = True

        .WebConsecutiveDelimitersAsOne = True

        .WebSingleBlockTextImport = False

        .WebDisableDateRecognition = False

        .WebDisableRedirections = False

        .Refresh BackgroundQuery:=False

    End With

よろしくお願いします。

"※ モデレーター注 : 質問の内容からタイトルを一部変更させていただきました。

変更前スレッドタイトル : ウェブクエリ　URL編集 "

Answer 1

URLのmoの部分を変えたいということでしょうか？

おおよそ次のようになります。

ｗURL１＝ "URL;http://app.boatrace.jp/race/10_20150502.php?day=20150503&jyo=10&rno=”

ｗURL2＝”type=program"

For　I=5　to　＜上限は適当に指定してください＞

   Range("B3").Select　　＜ここもループの中で変える必要があります。

　With ActiveSheet.QueryTables.Add(Connection:= _

         ｗURL&I＆ｗURL2, Destination:=Range("$B$3"))

　　　　・

　　　　・

　 End With　　

Next

ただし、前ゼロが必要な場合はもう一捻りする必要がありますが、3ケタになった場合どうするんでしょうか？

ただ、提示されているコードはマクロ記録しただけだと思います。

やられたい自動化はある程度のプログラミングが必要ですから、一通りのVBAのコーディングの知識が必要です。

この場で、手取り足取りやるのはかなり無理がありますので、一冊VBAの本を読まれて理解してからやられた方が良いと思います。

Answer 2

miyaZZ さん、こんにちは。

マイクロソフト コミュニティをご利用いただき、ありがとうございます。

マクロを使い、アドレス (URL) の一部を変更するという方法をお探しなのですね。

当フォーラムでは Excel の設定や利用方法、起動時のトラブルなど一般的な情報交換が行われています。

マクロの質問については、開発者の方が情報のやり取りを行っている VBA フォーラムで情報を集めてみてはいかがでしょう。

■ Visual Basic for Application (VBA) - MSDN フォーラム

せっかく質問していただいたのに、他フォーラムの紹介のみとなってしまい、すみません。