Skip to content

Instantly share code, notes, and snippets.

@kjunichi

kjunichi/20180730.md

Last active July 30, 2018 08:23
Show Gist options
  • Save kjunichi/d00a02f678fcad2ffb27ac46dc88ae9b to your computer and use it in GitHub Desktop.
Save kjunichi/d00a02f678fcad2ffb27ac46dc88ae9b to your computer and use it in GitHub Desktop.
Download ZIP
2018/7/30
Raw
20180730.md

VBAで文字列操作のメモ

    Dim buf() As String
    buf = Split(xmlHttp.responseText, vbCr)
    
    For i = 0 To UBound(buf)
        Dim line As String
        line = Replace(buf(i), vbCrLf, "")
        line = Replace(line, vbCr, "")
        line = Replace(line, vbLf, "")
        ActiveSheet.Cells(15 + i, 54).Value = line 'xmlHttp.responsebody
    Next

関連

アクセス解析タグ

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment