VBA Code58 Solidworks API를 이용하여 응용 프로그램 개발 하기 □ 다양한 프로그래밍 언어 지원 및 활용 예시VB, VBA, VB.NET: 쉽게 배우고 사용할 수 있어 SOLIDWORKS 매크로 개발에 주로 사용됩니다.C++, C#: 대규모 프로젝트나 고성능 애플리케이션 개발에 적합합니다.SOLIDWORKS 매크로: 간단한 자동화 작업이나 사용자 정의 명령어 생성에 유용합니다. SOLIDWORKS API - 2025 - SOLIDWORKS 도움말SOLIDWORKS API는 SOLIDWORKS 소프트웨어의 COM 프로그래밍 인터페이스입니다. 프로그래머는 API의 함수를 사용하여 SOLIDWORKS 기능에 직접 액세스할 수 있습니다. API에는 VB(Visual Basic), VBA(Visual Basic for Applihelp.solidworks.com □ SOLI.. 2024. 11. 8. Select the file name in the cell and open it □ Main CodeSub GetSelectedCellValue() Dim selectedObject As Object Dim cellValue As Variant On Error GoTo ErrorHandler '// Save the user selected object to a variable Set selectedObject = Selection '// Check if the selection is a single Range If TypeOf selectedObject Is Range And selectedObject.Areas.Count = 1 Then '// Get the value of the selected cell cellVal.. 2024. 9. 11. Excel Cell 내용 가져오기, Cell에 내보내기 □ Cell 이란? 엑셀(Excel)에서 셀(cell)은 열(Column)**과 행(Row)이 교차하는 개별적인 데이터 입력 공간을 의미합니다. 셀은 데이터를 입력하거나 계산 결과를 표시할 수 있는 가장 기본 단위입니다. 각 셀은 고유한 주소를 가지고 있으며, 열의 문자(A, B, C, ...)와 행의 숫자(1, 2, 3, ...)를 조합하여 셀의 위치를 나타냅니다. 예를 들어, "A1" 셀은 A열과 1행이 만나는 셀을 의미합니다. 셀에는 텍스트, 숫자, 날짜, 수식 등을 입력할 수 있으며, 이를 통해 엑셀에서 데이터를 관리하고 분석할 수 있습니다. 엑셀에서 워크시트, 셀이 무엇인가요? - 기본구조엑셀의 기본적인 구성은 다음과 같습니다. 데이터를 다루는 최소 단위는 셀(cell)이고요. 이 셀들이 모여서.. 2024. 9. 9. Cell 값을 조합하기 3개 이상을 조합하는것 가능하나, 시스템이 다운 될수 있습니다codeSub 모든조합() Dim lastRowA As Long, lastRowB As Long, lastRowC As Long Dim i As Long, j As Long, k As Long, L As Long Dim ws As Worksheet Set ws = ThisWorkbook.Sheets("Sheet1") ' 데이터가 있는 시트 이름 변경 lastRowA = ws.Cells(Rows.Count, "A").End(xlUp).Row lastRowB = ws.Cells(Rows.Count, "B").End(xlUp).Row lastRowC = ws.Cells(Rows.Count, "C").End(xlU.. 2024. 8. 30. 학습 04) Open API, 엑셀 VBA XML 파일을 만글고, XML 파일에서 필요한 항목을 표시 하는 프로그램 입니다.Option ExplicitSub Open_API01() '// 변수 선언 Dim strURL, FileName, FS_Type As String Dim OHTTP As WinHttpRequest Set OHTTP = New WinHttpRequest '// WinHttpRequest 객체 생성 Dim objStream, strData As String Dim objXML As DOMDocument60 Set objXML = New DOMDocument60 Dim nodeList As IXMLDOMNodeList Dim NodeCell As IXMLDOMNode.. 2024. 6. 24. 학습 03) Open API, 엑셀 VBA □ 코드 문의****************************************************************************************************************************Dim OHTTP As WinHttpRequest Set OHTTP = New WinHttpRequest '// WinHttpRequest 객체 생성 '//API URL 설정 strURL = "https://*****xml?crtfc_key= 인증코드&corp_code=01168684&bsns_year=2019&reprt_code=11011" '// GET 요청 설정 및 전송 OHTTP.Open "Get", strURL, False************.. 2024. 6. 24. JSON 활용 방법 아래 사이트를 참고 하십시요 엑셀 VBA에서 json 데이터 활용하기 : 윤자동크롤링을 하다보면 html 이 아니라 json구조의 데이터를 크롤링해야 하는 경우가 있습니다.아래 구조의 긴 텍스트처럼 생긴게 json 구조의 데이터입니다12345678910111213141516171819202122{ "glossary": { www.yunjadong.com Dim requestBody As String Dim responseText As String Dim status As Integer '// JOSN 파일 읽기 Dim FSO As New FileSystemObject Dim JsonTS As TextStream Set JsonTS = FS.. 2024. 6. 21. 엑셀 VBA 교육 사이트 아이엑셀러 닷컴 엑셀과 VBA 활용의 모든 것 iexceller.com 2024. 1. 28. VBA 사용을 위한 깃 허브 구성 하기 vbac를 이용한 vba 소스 코드를 git에서 관리하는 방법 vba를 사용하다 보면 간단한 매크로 같은경우는 크게 문제 없지만 소스 코드가 많아질경우 관리 하기가 쉽지가 않습니다. 버전 관리를 한다고 해도 vba의 경우는 xlsm 파일을 통으로 수정할때마다 cookiexcel.tistory.com 2023. 3. 5. 엑셀 VBA 메시지박스 (MsgBox) 에 문자열 줄 바꿈을 적용하는 방법 엑셀 VBA 메시지박스 (MsgBox) 에 문자열 줄 바꿈을 적용하는 방법 프로그램에서 개행 문자에는 Carriage Return(CR) , Line Feed(LF) 두 가지가 있습니다. 개행 문자란 텍스트의 한 줄이 끝났다는 것을 표시하는 용도입니다. 보통 줄바꿈 문자, 새 줄 문자라고도 합니다. mainia.tistory.com 2023. 2. 23. 특정 셀을 선택하면 해당 셀이 속한 행을 하이라이트 Excel VBA를 사용하여 특정 셀을 선택하면 해당 셀이 속한 행을 하이라이트하는 방법은 다음과 같습니다. Private Sub Worksheet_SelectionChange(ByVal Target As Range) '이전에 선택된 셀의 하일라이트 해제 Cells.Interior.ColorIndex = xlNone '현재 선택된 셀이 있는 행을 하이라이트 If Target.Cells.Count = 1 Then Target.EntireRow.Interior.ColorIndex = 6 '하이라이트 색상 지정 End If End Sub 위 코드는 워크시트의 SelectionChange 이벤트 핸들러를 사용합니다. 이 이벤트 핸들러는 사용자가 워크시트에서 다른 셀을 선택할 때마다 호출됩니다. 이전에 선택된 셀.. 2023. 2. 21. 우와! 인공지능이 코드를 만들어 주었습니다 테스트 해보니 질문 하는 문장을 정확하게 하면 더 촣은 코드를 만들어 줍니다. 좀더 구체적인 질문을 하였습니다. 제가 원하는 코드 입니다 AI가 제공 하는 코드를 사용 하였습니다! 와 대한 합니다 Sub PartFileList() Call Creo_Connect On Error GoTo RunError '// Library Folder Dim oFolderName As String Dim oFolderNameCount As Integer oFolderName = Worksheets("Parameter List").Cells(6, "E") oFolderNameCount = Len(oFolderName) Dim oIstringseq As Istringseq Set oIstringseq = oSession.L.. 2023. 2. 21. 이전 1 2 3 4 5 다음 반응형
