vba를 이용해 텔레그램으로 파일을 보내는 방법
안녕하세요. vba를 사용해서 엑셀 시트내용을 텔레그램에 pdf파일로 보내고싶습니다.
아래는 텔레그램 봇을 통해 파일을 전송하는 코드인데요.
보내는 파일이 인터넷에 올려진 pdf파일이면(http://~) 이 코드를 사용해서 정상적으로 발송이 되는데,
내 컴퓨터에 저장된 pdf파일(c:\~)은 발송이 안됩니다.
텔레그램봇 홈페이지에서는 직접 파일을 업로드할때는 multipart/form-data로 전송하라고 하는데,
단순하게 헤더만 변경한다고 발송이 되진 않더라고요.
어떻게 해결해야하는지 도움을 구할수 있을까요.ㅠㅠ
Private Sub botSend_Click()
Dim objRequest As Object
Dim botid As String
Dim apikey As String
Dim sFile As String
Dim strPostData As String
botid = ""
apikey = ""
sFile = ""
strPostData = "chat_id=" & botid & "&document=" & sFile
Set objRequest = CreateObject("MSXML2.XMLHTTP")
With objRequest
.Open "POST", "https://api.telegram.org/bot" & apikey & "/sendDocument?", False
.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
.send (strPostData)
GetSessionId = .responseText
Debug.Print GetSessionId
End With
End Sub
번호 | 카테고리 | 제목 | 작성자 | 작성일 | 추천 | 조회 |
2445 | 문서서식 |
New vlookup을 어떻게 사용해야 하나요?
![]() ![]() |
![]() |
2021.02.28 | 0 | 23 |
2444 | 기능/도구 |
New 여러 시트에서 어떠한 표를 동기화 시키고 싶습니다.
(1)
![]() |
![]() |
2021.02.27 | 0 | 24 |
2443 | 함수/공식 |
New [ ]나 { }같은 특정부호를 각자 다른 단어에 한꺼번에 넣고 싶습니다
![]() ![]() |
![]() |
2021.02.27 | 0 | 27 |
2442 | VBA |
New VB offset.resize.value 사용시 빈셀 포함해서 복사 할 수 있는 방법이 있나요?
(1)
![]() |
![]() |
2021.02.26 | 0 | 32 |
2441 | 문서서식 |
New 셀을 전체 새로고침 하는 기능이 있나요?
(4)
![]() |
![]() |
2021.02.26 | 0 | 41 |
2440 | VBA |
New 여러조건있는 데이터복사
![]() ![]() |
![]() |
2021.02.26 | 0 | 33 |
2439 | 기능/도구 |
New 날짜 표시형식에 "주"표시
(2)
![]() |
![]() |
2021.02.26 | 1 | 36 |
2438 | VBA |
New 엑셀 vba 파일 불러들일때 무한 루프 벗어나기
(3)
답변완료
![]() |
![]() |
2021.02.26 | 0 | 29 |
2437 | 기능/도구 |
New [DuTool] HomeTaxBR 함수 문의
(1)
![]() |
![]() |
2021.02.26 | 0 | 22 |
2436 | VBA |
New VBA 반복구문 줄이는 방법
(1)
![]() |
![]() |
2021.02.26 | 1 | 30 |
2435 | VBA |
New 이동거리에 따른 출장비 자동 계산 시트 구성 질의
(1)
![]() |
![]() |
2021.02.26 | 0 | 26 |
2434 | 기능/도구 |
New 네이버 검색광고 액셀
(1)
![]() |
![]() |
2021.02.26 | 0 | 26 |
2433 | VBA |
New 함수를 dll로 변환시 Source code가 숨겨지나여?
(1)
![]() |
![]() |
2021.02.26 | 0 | 21 |
2432 | 문서서식 |
다중 유효성 검사 도와 주세요
![]() ![]() |
![]() |
2021.02.26 | 0 | 33 |
2431 | VBA |
VBA .CurrentRegion.AdvancedFilter xlFilterCopy 메소드? 설명가능하신분!!!
(2)
답변완료
![]() |
![]() |
2021.02.25 | 0 | 25 |
2430 | 함수/공식 |
조건부 서식을 사용하여 홀수날에만 적용하기
(2)
답변완료
![]() |
![]() |
2021.02.25 | 0 | 33 |
2429 | 함수/공식 |
offset함수 입니다
![]() ![]() |
![]() |
2021.02.25 | 0 | 47 |
2428 | 함수/공식 |
OFFSET 함수 문의드립니다
(3)
답변완료
![]() |
![]() |
2021.02.25 | 1 | 51 |
2427 | 함수/공식 |
페이지 수 자동 으로 나오는 함수 있을까요?
(1)
![]() |
![]() |
2021.02.25 | 0 | 35 |
2426 | 피벗테이블 |
피벗테이블로 트리맵 차트 그리는 방법이 있을까요?
(1)
![]() |
![]() |
2021.02.25 | 0 | 26 |
2425 | VBA |
입력된 여러가지 숫자들 조합해서 일치하는 값이나 가장 근사치를 찾는 방법
(1)
![]() |
![]() |
2021.02.25 | 0 | 27 |
2424 | 함수/공식 |
엑셀 OFFSET 함수 사용법 관련입니다.
(2)
![]() |
![]() |
2021.02.25 | 1 | 40 |
2423 | 피벗테이블 |
슬라이서 연동 문제 (한 개 슬라이서로 2개 테이블을 원본으로 하는 피벗테이블 컨트롤하기)
(1)
![]() |
![]() |
2021.02.24 | 1 | 24 |
2422 | VBA |
VBA 배열 질문
(2)
답변완료
![]() |
![]() |
2021.02.24 | 0 | 37 |
2421 | VBA |
중복되는 데이터때문에 입력값이 제대로 입력되지 않습니다.
(2)
답변완료
![]() |
![]() |
2021.02.24 | 0 | 30 |
2420 | 함수/공식 |
countifs 관련 문의 입니다.
(1)
![]() |
![]() |
2021.02.24 | 1 | 53 |
2419 | VBA |
VBA실행 방법중 PERSONAL.xlsb사용 방법 문의
(1)
![]() |
![]() |
2021.02.24 | 0 | 29 |
2418 | 함수/공식 |
불규칙적인 데이터를 정리하는 방법 문의
![]() ![]() |
![]() |
2021.02.24 | 1 | 62 |
2417 | 함수/공식 |
counta 응용 함수, 셀 안의 사람 숫자 구하기
![]() ![]() |
![]() |
2021.02.24 | -1 | 72 |
2416 | VBA |
vba application.ontime timevalue 시간단위
(1)
![]() |
![]() |
2021.02.24 | 0 | 21 |
안녕하세요?^^
아래 링크 참고하였고, 작성하신 코드에는 이상이 없어보입니다.
https://core.telegram.org/bots/api#sending-files
다만, XMLHTTP 를 LateBinding으로 변수 선언하셨는데요.
XMLHTTP 는 RequestHeader 변경을 허용하지 않기 때문에 ServerXMLHTTP 개체로 변경해주셔야 합니다.
따라서 도구 - 참조에서 XML 라이브러리를 추가하신 뒤 EarlyBinding으로 개체를 생성하시기를 권장드립니다.
라이브러리를 추가하시면 MSXML2.ServerXMLHTTP가 보이실 텐데요, 해당 개체로 사용해보시기 바랍니다.
답변이 도움이 되셨길 바랍니다.