Excel2000 VBA 東電 juyo-j.csv を取り込みカンマ区切り展開

Excel2000 VBA 東電 juyo-j.csv を取り込みカンマ区切り展開

http://www006.upp.so-net.ne.jp/telstar/touden_juyo-j.xls

Sub juyo_csv2()
'
'東電juyo-j.csvを取り込み、カンマ区切りを展開する
'sheet1→juyo-j sheet2→グラフ　シート名を変更しておく
'

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

'
Worksheets("juyo-j").Select
Range("A1", "E332").Delete
'juyo-j.csvを読み込む
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://www.tepco.co.jp/forecast/html/images/juyo-j.csv", Destination:= _
        Range("A1"))
        .Name = "juyo-j" '読込シート名
        .Refresh BackgroundQuery:=False
    End With
   
'カンマ区切りを展開
For i = 1 To 332

    文字列 = Split(Cells(i, "A").Value, ",")
   
    For Each 文字 In 文字列
    Cells(i, 1 + j + 1) = 文字 'B列から展開
        j = j + 1
    Next
    j = 0
Next i

'展開したdataをシート名（グラフ）にコピー
   ’ Worksheets("juyo-j").Range("B1", "E332").Copy Worksheets("グラフ").Range("A1")
'　Worksheets("juyo-j").Range("B1", "E332").Copy Destination:=Worksheets("グラフ").Range("A1")
    Worksheets("グラフ").Select
End Sub



 

---

 

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

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


'juyo-j.csvを読み込む
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://www.tepco.co.jp/forecast/html/images/juyo-j.csv", Destination:= _
        Range("A1"))
        .Name = "sheet2" '読込シート名
'----------ここから 設定しなくてもOK？
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlEntirePage
        .WebFormatting = xlWebFormattingNone
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
'--------ここまで
        .Refresh BackgroundQuery:=False
    End With
'カンマ区切りを展開
For i = 1 To 332

    文字列 = Split(Cells(i, "A").Value, ",")
   
    For Each 文字 In 文字列
    Cells(i, 1 + j + 1) = 文字 　'B列から展開
        j = j + 1
    Next
    j = 0
Next i
End Sub

タイマー有りサンプルxls
http://www006.upp.so-net.ne.jp/telstar/sample01.xls　　
ファイル名を東電グラフ更新.xls にリネームしてください。
たぶん不具合がありますので修正してください。

 

タグ：Excel2000 VBA