Skip to content

Instantly share code, notes, and snippets.

Sub ChatWorkにメッセージを投稿()
Dim myHttpRequest
Dim myURL
Dim myPostData
Dim Result
Dim room_id
Dim Token
room_id = *******
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
cw-oide / Excelから自動でChatWorkのグループチャットに追加するマクロ:ステップ1
Created December 7, 2015 10:21
「所内公開」がルーム名についたリストをシート(チャットワークRoom)に書き出す(この時、ルームのメンバーリストも一緒に書き出しておく)
Sub ルームID一覧()
Dim myHttpRequest
Dim myURL
Dim myPostData
Dim Result
Dim roomList
Dim elementList
Dim roomID
Dim roomName