pywintypes.com_error: (-2147352567, '예외가 발생했습니다.', (0, None, 'U-CYBOS가 서버에 접속되어 있지 않습니다.', None, 0, -2147483638), None)

사용하시는 프로그램(엑셀, Visual Studio 등) 실행시 개별적으로 “관리자 권한으로 실행”을 선택하여 실행합니다.

근데 엑셀2016을 어떻게 관리자로 실행하냔 말이지..

이거는 그때그때 권리자권한으로 실행하고 파일을 열어야되서 귀찮음..

방법1)레지스트리 편집기 이용

여기로 들어감

만든후 더블클릭해서 값을 0으로 만들기

컴퓨터 다시 시작

https://brunch.co.kr/@gkicarus/300

https://wikidocs.net/135789

2) xlwings 설치 및 Excel 환경설정하기

이번 파트에서는 파이썬에서 xlwings를 설치하고 엑셀과 연동할 수 있도록 개발환경을 설정하는 방법을 정리해보겠습니다.

1. xlwings 설치하기

xlwings는 파이썬 내장모듈이 아니기 때문에 라이브러리를 사용하기 위해서는 먼저 설치를 해야 합니다.

openpyxl과 다르게 xlwings 라이브러리 말고도 xlwings addin이라는 엑셀 Add-in도 추가로 설치해야 합니다.

설치방법은 어렵지 않습니다. 먼저 xlwings 라이브러리부터 설치해봅시다. 본인의 개발환경 터미널 창에 아래 명령어를 입력하세요.

#Python
pip install xlwings

#Anaconda
conda install xlwings

그리고 동일한 방법으로 add-in도 설치해줍시다. xlwings를 설치가 완료된 상태에서 아래와 같이 입력해주세요.

xlwings addin install

정상적으로 설치가 되었다면 사용자의 PC 엑셀 프로그램을 실행시켜보세요. 아래와 같이 엑셀 메뉴 우측 상단에 'xlwings'라는 메뉴가 생겼다면 정상적으로 설치된 것입니다.

 

2. 엑셀 VBA 개발 환경 설정하기

엑셀 VBA와 xlwings를 연동하기 위해서는 엑셀 VBA의 개발 환경을 별도로 설정해줘야 합니다.

이전 파트에서 엑셀 VBA 개발 도구(코드 작성 창)을 실행시키는 방법을 설명했습니다. 엑셀을 실행시킨 후, Visual Basic 개발 도구를 실행시켜봅시다.(단축키 Alt+F11)

 

그 다음, 위 이미지를 참고하여 상단의 '도구'-'참조' 메뉴를 선택해봅시다. 그럼 아래와 같은 창이 나오며 'xlwings'라는 항목을 체크하고 확인을 눌러줍시다.

 

그럼 설정이 끝났습니다. 정상적으로 개발환경이 설정되어 있다면 아래 이미지처럼 VBA Project 창에 xlwings라는 항목이 추가되어있어야 합니다.

 

다음 파트부터는 xlwings와 파이썬을 연동하는 방법을 알아볼 것입니다.

파이썬파일명이랑 엑셀파일명 이름이 같아야함!!!!!

빈칸 끌올

Sub FillBlankCells()
    Dim rng As Range
    Dim cell As Range
     
    '선택영역
    Set rng = Selection
   
    '각 셀에 대한 루프 실행
    For Each cell In rng
        '빈셀인 경우
        If cell.Value = "" Then
            '그 아래 값이 있는 경우
            If cell.Offset(1).Value <> "" Then
                '그 아래 값을 현재 셀에 복사
                cell.Value = cell.Offset(1).Value
                '그 아래 값을 지움
                cell.Offset(1).ClearContents
            End If
        End If
    Next cell
End Sub

빈칸 왼쪽으로 당기기

Sub FillBlankCellsLeft()
    Dim rng As Range
    Dim cell As Range
     
    '선택영역
    Set rng = Selection
   
    '각 셀에 대한 루프 실행
    For Each cell In rng
        '빈셀인 경우
        If cell.Value = "" Then
            '그 아래 값이 있는 경우
            If cell.Offset(0,1).Value <> "" Then
                '그 아래 값을 현재 셀에 복사
                cell.Value = cell.Offset(0,1).Value
                '그 아래 값을 지움
                cell.Offset(0,1).ClearContents
            End If
        End If
    Next cell
End Sub

Sub Get_number_in_string()
    Dim regex As Object
    Dim inputRange As Range
    Dim cell As Range
    Dim outputString As String
    
    ' Initialize regular expression object
    Set regex = CreateObject("VBScript.RegExp")
    
    ' Set the pattern to match numbers (\d+)
    regex.Pattern = "(\d{1,3},)*\d{3}"
    
    ' Select the range of cells
    Set inputRange = Selection ' Assumes you have already selected the desired range
    
    ' Loop through each cell in the selected range
    For Each cell In inputRange
        ' Extract numbers from the cell value
        If regex.test(cell.Value) Then
            Dim matches As Object
            Set matches = regex.Execute(cell.Value)
            
            ' Concatenate all matched numbers
            Dim i As Integer
            For i = 0 To matches.Count - 1
                outputString = matches.Item(i).Value
            Next i
        End If
        cell = outputString
    Next cell
End Sub