VBA 처리과정도 마우스로 슬라이드의 표(테이블)을 복사해서 엑셀 시트에 붙여넣는 것과 유사합니다. 테이블.Copy 해서 시트의 셀.Paste 하거나 시트.PasteSpecial로 붙여넣습니다. 테이블이 여러개 일텐데 아래와 같은 샘플을 만들었습니다. VBA코드: 더보기 'Copy the table content on each slide to Excel sheet Option Explicit Const TextOnly As Boolean = False Sub CopyTableToSheet() Dim xl As Object 'New Excel.Application Dim wb As Object 'Excel.Workbook Dim sht As Object 'Excel.Worksheet Dim rn..
Excel 검색 결과
참고: 지식인 질문글 화면 및 주요 코드: 실행 결과: 질문자가 원하는 결과 문자열이 JSON 문자열과 거의 흡사하기 때문에 VBAJSON 라이브러리를 활용하였습니다. 엑셀 데이터의 첫번째 행은 카테고리로 읽어들이고 나머지 행은 Dictionary 구조를 이용해서 데이터 구조를 만들어서 최종적으로 ConvertToJson 함수를 이용해서 items 배열(컬렉션)을 Json 문자열로 변환합니다. 원래 JSON데이터는 카테고리명의 양쪽에 따옴표가 있는데 삭제시켰습니다. 따옴표를 원래대로 놔두려면 해당 부분(따옴표를 제거하는 for 문 부분)을 주석처리하면 됩니다. 더보기 'Add Reference to Microsoft Scripting Runtime Library Sub Convert() Dim..
VBA로 네이버 오늘의 단어 가져오기 URL: http://m.wordbook.naver.com/endic/today/recite.nhn?targetDate=2018.04.09기능: 시트이름이 Daily, Monthly, Weekly 로 시작하면 각각 날짜별, 달별, 일주일별 오늘의 단어 5개씩을 가져옴사용 개체: WinhttpRequest, HTMLDocument, IHTMLElementCollection 등을 이용함.HTML을 파싱할 때 Split, Instr 을 이용하지 않고 GetElementBYTagName 을 이용함. 사용방법:매크로를 허용하고 연 다음왼쪽 상단 '날짜선택'을 누르고 대상 날짜를 입력.오늘 날짜가 자동으로 뜸.현재 선택된 시트이름이 Daily, Weekly, Monthly 로 ..
최근댓글