samy88のプロフィール

エクセルのマクロでweb上のデータを取り込みたいのですがループの方法がわかりません。 気象庁から、ある点(アメダス設置場所)の2009年1月1日～8月1日までの風速データを繰り返しとり、それをアメダスの設置分だけ同様に繰り返し抽出したいのですが素人のため変数の置き方がわかりません。 With ActiveSheet.QueryTables.Add(Connection:= _ URL;http://www.data…&block_no=0001&…&year=2009&month=1&day=1&elm=minutes&view=" これの &block_no=0001&　(アメダス設置場所0002～1600くらいまで変化)と、 &year=2009&month=1&day=1&　(日にち)　の部分を変数にしたいです。 Dateなどを使えば下のループはできるのでしょうか？ ちなみに環境は windows XP(IE7) Excel2007です。 一応マクロの記録からループさせたいところをすべて載せておきます。 よろしくお願いします。 Sub Macro1() ' ' Macro1 Macro ' ' With ActiveSheet.QueryTables.Add(Connection:= _ "URL;http://www.data.jma.go.jp/obd/stats/etrn/view/10min_a1.php?prec_no=11&prec_ch=%8F%40%92J%8Ex%92%A1&block_no=0001&block_ch=%8F%40%92J%96%A6&year=2009&month=1&day=1&elm=minutes&view=" _ , Destination:=Range("$A$1")) .Name = _ "10min_a1.php?prec_no=11&prec_ch=%8F%40%92J%8Ex%92%A1&block_no=0001&block_ch=%8F%40%92J%96%A6&year=2009&month=1&day=1&elm=minutes&view=" .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .BackgroundQuery = True .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .WebSelectionType = xlSpecifiedTables .WebFormatting = xlWebFormattingNone .WebTables = "3" .WebPreFormattedTextToColumns = True .WebConsecutiveDelimitersAsOne = True .WebSingleBlockTextImport = False .WebDisableDateRecognition = False .WebDisableRedirections = False .Refresh BackgroundQuery:=False End With Range("A2:C148").Select Selection.Delete Shift:=xlToLeft Range("B2:E148").Select Selection.Delete Shift:=xlToLeft ActiveWindow.SmallScroll Down:=135 Range("A149").Select End Sub

ケニアに行ったことのある女性の方に質問です。 今度、ケニアに行く事になったのですが運悪く生理に当たってしまいそうです。なので、 ・ケニアのトイレ事情 ・生理中に行って困ったこと ・気を付けた方がいい事 　　　　　　　　　　　など情報を教えて下さい。 いつもの生理の状態としては、薬を飲めば痛みなどは無くなり 普段通りの生活ができています。