EXCELVBA



カテゴリ:[ PC/ネット/モバイル ]


5件の内、新着の記事から10件ずつ表示します。


[5] Cat3

投稿者: VBA 投稿日:2017年 4月14日(金)05時16分2秒 sp49-98-158-253.msd.spmode.ne.jp  通報   返信・引用

Cat




[4] 駐車場

投稿者: VBA 投稿日:2017年 4月14日(金)05時13分25秒 sp49-98-158-253.msd.spmode.ne.jp  通報   返信・引用

バス



[3] Cat2

投稿者: VBA 投稿日:2017年 4月 3日(月)12時34分24秒 sp49-98-152-88.msd.spmode.ne.jp  通報   返信・引用

Cat



[2] Cat

投稿者: VBA 投稿日:2017年 4月 3日(月)12時32分32秒 sp49-98-152-88.msd.spmode.ne.jp  通報   返信・引用

Cat



[1] html

投稿者: VBA 投稿日:2017年 3月12日(日)14時48分0秒 p185022-ipngn2101hiraide.tochigi.ocn.ne.jp  通報   返信・引用

Sub Sample1()
    Const adTypeBinary = 1
    Const adTypeText = 2
    Const adSaveCreateOverWrite = 2
    Dim Position, Bytes, Http, buf As String, Charset As String
    Position = 0
    Set Http = CreateObject("MSXML2.XMLHTTP")
    URL = "test"
    Http.Open "GET", URL, False
    Http.send
    Text = Http.responseText
    Filename = "D:\desktop\sample.htm"
    On Error Resume Next

    With CreateObject("ADODB.Stream")
        .Type = adTypeText
        .Charset = "utf-8"
        .Open
        .WriteText Text
        .Position = 0
        .Type = adTypeBinary
        .Position = 3
        Bytes = .Read
        .Close
    End With
    With CreateObject("ADODB.Stream")
        .Type = adTypeBinary
        .Open
        .Position = 0
        .Write Bytes
        .SaveToFile Filename, adSaveCreateOverWrite
        .Close
    End With

    Set Http = Nothing

End Sub



レンタル掲示板
5件の内、新着の記事から10件ずつ表示します。

お知らせ · よくある質問(FAQ) · お問合せ窓口

© GMO Media, Inc.