EGTools

인터넷에 존재하는 파일을 다운로드 하기 위하여 아래와 같은 코드를 사용할 수 있습니다. 다운로드할 대상의 URL과 Download할 Path와 이름이 포함된 FullName을 지정하여 다운로드 합니다. 이 기능은 Add-In인 EGTools 추가기능에 자동업데이트 기능을 추가할 때 사용하였습니다. Binary 파일을 ADODB.Stream으로 다운로드 하는 방식입니다. 다운로드가 되면 새로 생성된 파일의 FullName을 반환하고, 실패하면 빈문자열(vbNullString)을 반환합니다. Function DownloadFromURL(FileUrl As String, NewFullName As String) Dim oXMLHTTP As Object, oStream As Object On Error GoTo..

리본메뉴에서 아래처럼 [날짜 선택] On/Off 되는 토글 버튼을 사용하는 방법입니다. 선택이 되어 On 상태이면 바탕색이 짙은 회색으로 변하고, 선택이 해제되어 Off 상태이면 바탕색이 사라집니다. 리본메뉴 XML에서는 이렇게 정의합니다. 토글버튼을 클릭했을 때 할일은 OnAction을 통해서 호출하고, 토글버튼의 상태를 업데이트 하는 것은 getPressed를 통해서 진행합니다. CallBack 함수는 이렇게 작성합니다. Public DTEnabled As Boolean '// Date Picker용 '// Ribbon Menu에서 "날짜입력" toggle button "onAction" 처리 Sub rbnDTPicker(control As IRibbonControl, pressed As Boolea..

일반 프로시저를 만들어 두고 공통으로 사용하기 위해서 인수를 사용한 다음 필요에 따라 인수를 이용하여 동작 방식을 변경하는 것을 할 수 있습니다. 그런데, Ribbon Menu에서 CallBack 함수를 호출할 때 인수를 어떻게 전달할까요? 예전에는 아래처럼 Ribbon Menu에서 각각 별도로 호출을 하고, CallBack 함수에서 공통 프로시저에 인수를 넣어 호출하는 방식을 사용했습니다. Ribbon Menu의 XML 부분 CallBack 함수 부분 Public Sub rbnPasteVisibleAll(control As IRibbonControl) ' 보이는 셀에 복사 PasteToVisibleCells xlPasteAll End Sub Public Sub rbnPasteVisibleValues(c..

소개하는 내용은 아래 출처에 대한 설명입니다. https://fastexcel.wordpress.com/2014/01/26/inserting-a-udf-and-launching-the-function-wizard-from-vba/ Inserting a UDF and Launching the Function Wizard from VBA In a previous post I suggested you could do this by entering the function using VBA into the selected cell using a comma as the argument to the function, for example =LISTDISTINCTS.SUM(,) , and the… fastexcel.w..