관련: 지식인 https://konahn.tistory.com/entry/MergePPT PPT 합치기 PPT를 합치는 방법은 다양한 방법이 있습니다. https://kin.naver.com/qna/detail.naver?d1id=1&dirId=102020103&docId=430910486&sc%20https://kin.naver.com/qna/detail.naver?d1id=1&dirId=102020103&docId=430910486&scrollTo=answer1 VBA로 파일이 konahn.tistory.com 이전 글에서 PPT파일을 합치는 방법을 안내한 적이 있습니다. PPT파일이 합쳐지는 순서를 마음대로 변경하고 싶을 때, PPT파일 내부의 일부 슬라이드만 골라서 합치고 싶을 때, PPT파일의 ..
XLS+VBA 검색 결과
관련: 지식인 검색어로 구글이미지 검색을 한 뒤에 첫번째 이미지의 썸네일과 원본 주소를 가져오는 것입니다. 이런 경우 PC버전으로 접속하는 것보다 모바일버전으로 접속하는 것이 HTML용량도 적고 Tag도 더 간단합니다. User-agent 에 Mobile 이라는 문자열을 넣어주시면 됩니다. HTML은 아래와 같은 구조로 구성되어 있습니다. 편의상 내부의 Table 태그가 img 나 a 태그를 정리하는데 방해가 되어서 주석으로 처리했습니다. 그러면 이제 img 태그 첫번째 것과 a 태그 첫번째 것을 가져오면 되겠습니다. 위 내용를 바탕으로 아래와 같이 만들어 보았습니다. VBA소스: ==> 먼저 Alt-F11 창 메뉴 도구 > 참조에서 Microsoft Html Object Library 만 체크해주세..
관련: 지식인 셀레니움은 화면을 클릭하거나 정보를 입력해서 조회한 결과 값을 불러올 때 효율적입니다. https://klayswap.com/assets 이 사이트의 경우는 JSON 데이터로 한번에 34페이지의 정보를 불러와서 실시간으로 10개씩 보여주는 구조이다 보니 일반 HTTP접속으로 JSON데이터를 한번에 가져와서 파싱하는 것이 훨씬 효율적입니다. 속도도 더 빠릅니다. F12 개발도구로 살펴보면 가격에 대한 JSON데이터는 아래 주소로 받아옵니다. https://s.klayswap.com/stat/tokenInfo.min.json 그리고 한글 이름에 대한 데이터는 아래 주소로 받아옵니다. https://s.klayswap.com/data/klayswap/tokens.json 대개 ..
파워포인트에 삽입된 차트가 연결로 삽입되었다가 원본엑셀파일이 사라져서 엑셀 데이터를 수정하지 못할 때 How to recover the excel data from a chart whose excel link is broken 참고: 지식인 일단엑셀의 혹시 원본 경로가 잘못되었는지부터 확인해보세요. 파일 > 정보에서 '파일연결편집'을 눌러보면 엑셀파일이 있어야할 경로가 보입니다. 파일은 있는데 경로가 바뀌었다면 '원본 변경'을 눌러서 바꿀 수 있습니다. 현재로서는 연결된 원본 XLSx 파일이 없기 때문에 엑셀데이터 원본을 그대로 되살리기 어렵습니다. 다만, 아래 VBA를 이용하면 파워포인트 차트에 남아있는 데이터를 이용해서 데이터 숫자는 복구해볼 수 있습니다. 더보기 Option Explicit Su..
참고: 지식인 질문글 화면 및 주요 코드: 실행 결과: 질문자가 원하는 결과 문자열이 JSON 문자열과 거의 흡사하기 때문에 VBAJSON 라이브러리를 활용하였습니다. 엑셀 데이터의 첫번째 행은 카테고리로 읽어들이고 나머지 행은 Dictionary 구조를 이용해서 데이터 구조를 만들어서 최종적으로 ConvertToJson 함수를 이용해서 items 배열(컬렉션)을 Json 문자열로 변환합니다. 원래 JSON데이터는 카테고리명의 양쪽에 따옴표가 있는데 삭제시켰습니다. 따옴표를 원래대로 놔두려면 해당 부분(따옴표를 제거하는 for 문 부분)을 주석처리하면 됩니다. 더보기 'Add Reference to Microsoft Scripting Runtime Library Sub Convert() Dim..
지식인 VBA에 암호를 거는 방법 이외에 VBA접근을 최대한 막는 방법입니다. 물론 최초 실행시에 매크로를 허용해줘야만 합니다. 현재는 Alt-F11 키와 Alt-F8키를 중지시키고 개발도구메뉴를 감춥니다. Alt-F12를 누르면 다시 활성화합니다. 실제로 사용할 때는 이부분을 삭제해야겠습니다. 더보기 'https://www.mrexcel.com/board/threads/deactivate-alt-f11.23976/ Option Explicit '// Tested Excel2000 '// Run DisableVBE from a Event procedure '// eg. Workbook_Open or Worksheet_Activate '// THEN run EnableVBE from the Opp Even..
액션캠의 대명사 고프로는 mp4 동영상 파일을 저장할 때 독특한 규칙을 가지고 있습니다. 고프로는 Full HD 기준 약 11분 정도의 4G정도씩 파일을 분할하여 저장하는데 GH0100001.mp4 다음에 GH0200001.mp4가 되고 그 다음 새로 찍은 파일은 GH0100002.mp4 다음에 GH0200002.mp4가 되어 버립니다. 문제는 이렇게 되면 일반적인 파일명 순서가 아니기 때문에 윈도우에서 파일명 순으로 정렬해보면 동영상의 순서가 뒤죽박죽이 되어 버립니다. 이러한 난관을 극복하고자 Advanced Renamer 같은 프로그램을 많이 쓰는데 이정도는 Excel VBA로도 가능합니다. 지난 파일명 일괄 변경 엑셀 VBA를 수정하여 일괄 변경 매크로를 만들어보았습니다. mp4파일의 촬영시간을 구..
일단 아래와 같은 엑셀 시트(통합 문서1.xlsx)가 있습니다. 위에서 원하는 행만큼(여기서는 10행씩) 분할해서(끊어서) 파워포인트 각 슬라이드에 옮기는 작업입니다.(아래 그림) 더보기 Const xlFile As String = "통합 문서1.xlsx" Const xlLines As Integer = 10 '10이면 엑셀 데이터를 10줄씩 분할 복사 Const Margin As Single = 100 '슬라이드의 여백 Sub Sheet2Slide() Dim XL As Object Dim Sht As Object Dim rng0 As Object, rng As Object Dim Pres As Presentation Dim Sld As Slide Dim Shp As Shape Dim SW!, SH! S..
최근댓글