cw-oide

Sub ルームID一覧()

    Dim myHttpRequest
    Dim myURL
    Dim myPostData
    Dim Result
    Dim roomList
    Dim elementList
    Dim roomID
    Dim roomName

cw-oide

Sub メンバー追加(addMemberID)
     
    bottomRow = Worksheets("チャットワークRoom").Cells(1, 1).End(xlDown).Row

    For i = 1 To bottomRow
        roomID = Worksheets("チャットワークRoom").Cells(i, 1).Value
        
            myURL = "https://api.chatwork.com/v1/rooms/" & roomID & "/members"
            
            memberList = Worksheets("チャットワークRoom").Cells(i, 3).Value

cw-oide

Sub ChatWorkにメッセージを投稿()

Dim myHttpRequest
Dim myURL
Dim myPostData
Dim Result
Dim room_id
Dim Token

room_id = *******