Excel2000VBA 東京電力jukyu-j.csvを取り込む

Excel2000VBA 東京電力jukyu-j.csvを取り込む

今年のjukyu-j.csvには「ピーク時供給力内訳（万kW）」の項目があるので利用する事にしました。

マクロは昨年作成したマクロの使いまわしで、完成とは言えない状態です。

Sub jukyu_j()
'
'東電juyo-j.csvを取り込み、カンマ区切りを展開する
'
'

Dim i, j As Long
Dim 文字, 文字列 As Variant

'
'Workbooks("touden_juyo-j_v103.xls").Activate
'Worksheets("juyo-j").Select
Range("A1", "w350").Delete
'jukyu-j.csvを読み込む
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://www.tepco.co.jp/forecast/html/images/jukyu-j.csv", Destination:= _
        Range("A1"))
        '.Name = "juyku-j" '読込シート名?
        .Refresh BackgroundQuery:=False
        .Delete 'クエリー削除
    End With
   
'カンマ区切りを展開
    For i = 1 To 340
        j = 0
        文字列 = Split(Cells(i, "A").Value, ",")
   
        For Each 文字 In 文字列
            Cells(i, 1 + j + 1) = 文字 'B列から展開
            j = j + 1
        Next
    Next i
End Sub
 

 

 

 

タグ：EXCEL2000VBA