EGTools

CSV파일로 자료를 다운받은 경우Excel의 행 번호를 넘어가서 Excel에서 자료를 로딩하기 어려울 때파일을 열어 볼 수 있도록 적정 크기로 분할할 수 있습니다. Sub SplitCSVFile() Dim FSO As Object, oFile As Object Dim sPath As String, sFullName As String, sFileName As String, sLine As String, sExt As String Dim iR As Currency, iMax As Variant, iC As Long sFullName = Application.GetOpenFilename(Title:="File을 선택하세요.", FileFilter:="Text Files (*.csv..

【 함수 요약 】국세청의 API를 이용하여 사업자등록번호의 현재 상태를 조회합니다.(Business Registration Number, Tax ID) 이 함수는 EGTools 추가기능에서 지원하는 함수입니다.【 적용 버전 】Windows용 : 모든버전 【 함수 구문 】= BRNSTATUS (  BizRegNum  ) 【 함수 인수 】인수명옵션기본값설    명BizRegNum필수없음사업자등록번호 0000000000 형식의 10자리 숫자 또는 000-00-00000 형식의 12자리 문자열 【 함수 상세 설명 】국세청의 API를 이용하여 사업자 등록번호의 현재 영업 상태를 조회합니다. 【 함수 오류 설명 】BizRegNum에 숫자와 "-"를 제외한 문자가 있을 경우 #VALUE 오류API 조회중 문제가 발생..

EG Tools는 Excel 사용에 도움을 주는 여러 기능과 함수를 제공하는 엑셀추가기능입니다.Excel 2019, 2021, Microsoft 365에 추가된 신규 함수를 사용할 수 있도록 지원 합니다. 최종버전은 아래 페이지에서 다운로드 하세요.https://egtools.tistory.com/entry/EGTools-Latest Excel 추가기능을 설치하는 방법은 아래를 참고하세요.https://egtools.tistory.com/entry/Install-Excel-Add-In Mac용 Excel에서는 VBA코드 호환성 문제로 사용할 수 없습니다.윈도우 설정중 시스템 로캘이 한국어가 아닌 경우에도 사용할 수 없습니다.          => 다국어 테스트 버전을 별도로 제공 리본메뉴에서 지원하는 기..

EGTools는 Excel 사용에 도움을 주는 여러 기능과 함수를 제공하는 엑셀추가기능입니다.구버전 Exce에서 Excel 2019, 2021, M365의 신규함수를 사용할 수 있게 지원합니다. 버전 : V4.2.3일자 : 2024-05-07파일 : 모든 배포파일을 동일한 이름으로 제공하므로 기존 폴더에 복사해 넣으세요.          새버전확인시  [자동 업데이트] 버튼으로 새버전을 즉시 설치할 수 있습니다.          다국어 적용된 버전입니다.  ㅁ EGTools Excel 사용설명서    리본메뉴에서 지원하는 여러 기능과 많은 사용자정의 함수가 있으므로 꼭 읽어 보세요.    구버전 Exce에서 Excel 2019, 2021, M365의 신규함수를 사용할 수 있게 지원합니다.    https..

EGTools Excel 추가기능의 Update 이력입니다. 추가기능의 최종 배포는 아래 페이지에 있습니다.https://egtools.tistory.com/entry/EGTools-Latest 기능설명서는 아래 페이지에 있습니다.https://egtools.tistory.com/entry/EGTools-Manual 개정 이력 v4.2.3  2024-05-07            바코드를 그리는 ArrayTo1BitMAP 함수 오류 수정 (완료)            Sample 함수 오류 수정            BRNstatus 함수 추가 : 사업자등록번호의 상태 조회            그림/사진의  "전체저장" 기능에서 저장할 이름의 위치를 지정할 수 있도록 개선v4.2.0  2024-04-10  ..

SeleniumBasic을 사용하여 Chrome제어를 할 때가 많은데,Chrome이 버전업이 되면 ChromeDriver도 다시 새 버전을 설치해 줘야 합니다.이게 귀찮아 지게 되면,,,, 우선 현재 Selenium이 설치된 폴더를 확인해 봅니다.마땅한 Registry를 찾지 못해서 대충 CLSID에 있는 걸 써 봅니다.Private Function getSeleniumPath() Dim sPath As String sPath = CreateObject("WScript.Shell").RegRead("HKEY_CLASSES_ROOT\CLSID\{0277FC34-FD1B-4616-BB19-5D556733E8C9}\InprocServer32\CodeBase") getSeleniumPath = ..

JSON을 배열로 변경하는 JSONPair함수와 JSONtoArray 함수에 이어서,,, 변경된 배열에서 이름 경로를 지정하여 값이나 목록을 검색하는 함수입니다. JSONParser로 이름을 하고 싶으나,,, VBA로 저장은 되지만 Excel에서 사용할 수 없었습니다.ㅠㅠ 이전 버전에서 나오던 일부 오류는 수정하였습니다. 【 함수 구문 】 = JsonParse( JSON , Path , [ Header ] , [PAD ] , [ Delimiter ] ) 【 함수 인수 】 인수명 옵션 기본값 설 명 JSON 필수 없음 JSON 텍스트, 배열 또는 범위 Path 필수 없음 검색할 이름, 이름 경로인 경우 "/"를 사용해서 연결, 대소문자 구별함 이름 및 이름 경로에 와일드 카드 사용 가능 이름1/이름2/이름..

이전 버전에서 몇 가지 문제가 있어서 함수 구성을 조금 변경하여 JSONPair 함수로 기본 분석을 정리하고나서 이름경로를 셀 하나씩 분리하여 배열을 확장하는 함수로 구성하니다. 결과는 이전 함수와 같으나 효율이 좀 더 좋아 졌습니다. 【 함수 구문 】 = JSONtoArray( JSON , [PAD ] ) 【 함수 인수 】 인수명 옵션 기본값 설 명 JSON 필수 없음 JSON 텍스트, 배열 또는 범위 PAD 선택 빈문자열("") 빈 셀에 채울 값 JSON 구조에 대해서는 JSONPair 함수에서 정리한 결과 배열을 받아서 진행합니다. 따라서 이 함수에서는 매우 간단한 구조로 처리가 진행됩니다. Function JSONtoArray(JSON, Optional PAD$ = vbNullString) '==..

구글 캘린더나 다른 API 작업을 할 때, 결과가 xml 아닌 json으로 출력되는 경우 그 동안에는 JSON converter를 사용하고 있었습니다. 이를 VBA에서 쉽게 사용할 수 있는 배열로 변환하고 이를 바탕으로 이름 경로(Path)를 이용하여 값이나 목록을 출력하도록 설계를 했습니다. 여기서는 먼저 배열로 변환하는 함수를 설명합니다. 【 함수 구문 】 = JSONPair( JSON , [ Delimiter ] ) 【 함수 인수 】 인수명 옵션 기본값 설 명 JSON 필수 없음 JSON 텍스트, 배열 또는 범위 Delimiter 선택 "/" "이름 경로" 각 단계를 연결할 구분자, 기본값은 "/" JSON 문자열을 하나씩 읽어서 그에 따른 처리를 진행하는 구조입니다. 공백문자를 Skip하기 위한 ..

Google Calendar를 Excel에서 사용할 수 있도록 아주 간단한 기능만 들어 있는 파일로 자동 인증이 좀 더 매끄럽게 되도록 수정하였습니다. Google Calendar를 사용할 수 있도록 Google의 OAuth 2.0 인증을 사용합니다. 현재는 Google의 인증을 받기 전의 상태로 사용에 제약이 있을 수 있습니다. 이 파일로 계정 인증이 완료되면, EGTools의 Ribbon메뉴의 달력중 '일일 일정표' 만들기에서 해당 일자의 Google Calendar 일정이 일정표에 자동으로 등록됩니다. 사용방법은 첨부 파일의 [Manual] 시트에 간략하게 설명되어 있으므로 꼭 읽고 사용하세요.