Ｐａｇｅ 544 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼外部データの取り込みについて こうき 03/1/14(火) 10:31 ┗Re:外部データの取り込みについて JuJu 03/1/14(火) 12:47 ┗Re:外部データの取り込みについて こうき 03/1/14(火) 14:37 ─────────────────────────────────────── ■題名 ： 外部データの取り込みについて ■名前 ： こうき ■日付 ： 03/1/14(火) 10:31 -------------------------------------------------------------------------
| ＶＢＡの質問ではないのですが、 エクセルの外部データの取り込みで、参照するホームページのアドレスが毎日変更されている場合に更新をするだけで新しいデータを取り込むことはできるのでしょうか？ また、できない場合は他に良い方法があれば教えていただけないでしょうか？ アドレスの変更には規則がありまして、 今日の場合はhttp://www.vbalab.net/vbaqa/c-board.cgi?cmd=psn;id=excel20020114のように最後に日付がついており、毎日日付の部分が変わっています。（昨日だとhttp://www.vbalab.net/vbaqa/c-board.cgi?cmd=psn;id=excel20020113） |
| こうきさん、こんにちはぁ >エクセルの外部データの取り込みで、参照するホームページのアドレスが毎日変更されている場合に更新をするだけで新しいデータを取り込むことはできるのでしょうか？ >また、できない場合は他に良い方法があれば教えていただけないでしょうか？ >アドレスの変更には規則がありまして、 >今日の場合はhttp://www.vbalab.net/vbaqa/c-board.cgi?cmd=psn;id=excel20020114のように最後に日付がついており、毎日日付の部分が変わっています。（昨日だとhttp://www.vbalab.net/vbaqa/c-board.cgi?cmd=psn;id=excel20020113） 例えば、Sheet1のA1にクエリーテーブルが設定してあるとして With Sheets("Sheet1").Range("A1").QueryTable .Connection = "URL;http://www.vbalab.net/vbaqa/c-board.cgi?cmd=psn;id=excel" & Format(Now, "yyyymmdd") .Refresh False End With こんな感じです。 立ち上げ時に実行してください。 ではではぁ |
| ▼JuJu さん： >例えば、Sheet1のA1にクエリーテーブルが設定してあるとして > > With Sheets("Sheet1").Range("A1").QueryTable > .Connection = "URL;http://www.vbalab.net/vbaqa/c-board.cgi?cmd=psn;id=excel" & Format(Now, "yyyymmdd") > .Refresh False > End With > >こんな感じです。 >立ち上げ時に実行してください。 > >ではではぁ ありがとうございます。 うまくいきました！ ただAdjustColumnWidth = False WebSelectionType = xlAllTables WebFormatting = xlWebFormattingNone WebPreFormattedTextToColumns = True WebConsecutiveDelimitersAsOne = True WebSingleBlockTextImport = False WebDisableDateRecognition = False Refresh BackgroundQuery:=False のようにrefreshの際に必要な記述があるようです。 これを削除すると動かなくなりました。 理由はよく分かりませんので勉強してみます。 また分からないことがあったら質問させていただきますのでよろしくお願いします。 |