Vba AI access 편집하기

AI access를 엑셀에서 접근하려고 할 때


=VBA사용=

=크롬 사용=

selenium 활용

     Dim options As New ChromeOptions '객체 인식 오류 나는 코드

<code>
Sub OpenChromeWithProfile()
    Dim driver As New ChromeDriver
    Dim options As New ChromeOptions
    Dim profilePath As String
    
    ' 사용하려는 Chrome 프로필 경로 설정
    ' 일반적인 프로필 경로 예시 (사용자 환경에 맞게 수정 필요)
    profilePath = "C:\Users\YourUsername\AppData\Local\Google\Chrome\User Data\Profile 1"
    
    ' Chrome 옵션 설정
    options.AddArgument "--user-data-dir=" & profilePath
    
    ' 추가 옵션 (필요시 주석 해제하여 사용)
    'options.AddArgument "--start-maximized"  ' 창 최대화
    'options.AddArgument "--disable-extensions"  ' 확장 프로그램 비활성화
    
    ' 설정된 옵션으로 Chrome 시작
    driver.Start "chrome", options
    
    ' 웹사이트 열기 (예: Google)
    driver.Get "https://www.google.com"
    
    ' 여기에 필요한 추가 작업 코드 작성
    
    ' 브라우저 유지 (즉시 종료하지 않음)
    ' 나중에 브라우저를 닫으려면 driver.Quit 사용
    ' driver.Quit
End Sub

Function GetChromeProfiles() As Collection
    ' Chrome 프로필 목록 가져오기
    Dim profiles As New Collection
    Dim userDataDir As String
    Dim fso As Object
    Dim folder As Object
    Dim subFolder As Object
    
    ' FileSystemObject 생성
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    ' Chrome 사용자 데이터 디렉토리 경로 (일반적인 위치)
    userDataDir = Environ("LOCALAPPDATA") & "\Google\Chrome\User Data"
    
    ' 디렉토리 존재 확인
    If fso.FolderExists(userDataDir) Then
        Set folder = fso.GetFolder(userDataDir)
        
        ' Default 프로필 추가
        profiles.Add userDataDir & "\Default", "Default"
        
        ' 추가 프로필 폴더 탐색
        For Each subFolder In folder.SubFolders
            If InStr(subFolder.Name, "Profile") > 0 Then
                profiles.Add userDataDir & "\" & subFolder.Name, subFolder.Name
            End If
        Next subFolder
    End If
    
    Set GetChromeProfiles = profiles
End Function

Sub SelectProfileAndLaunchChrome()
    ' 프로필 선택하고 Chrome 실행하기
    Dim profiles As Collection
    Dim profile As Variant
    Dim selectedProfile As String
    Dim profileNames() As String
    Dim i As Integer
    Dim selectedIndex As Integer
    
    ' 프로필 목록 가져오기
    Set profiles = GetChromeProfiles()
    
    ' 프로필이 없으면 종료
    If profiles.Count = 0 Then
        MsgBox "Chrome 프로필을 찾을 수 없습니다.", vbExclamation
        Exit Sub
    End If
    
    ' 프로필 이름 배열 만들기
    ReDim profileNames(1 To profiles.Count)
    i = 1
    For Each profile In profiles
        profileNames(i) = profiles(i)
        i = i + 1
    Next profile
    
    ' 사용자에게 프로필 선택 요청
    selectedIndex = Application.InputBox("사용할 Chrome 프로필 번호를 선택하세요 (1-" & profiles.Count & "):" & vbNewLine & _
                                       Join(profileNames, vbNewLine), Type:=1)
    
    ' 취소 확인
    If selectedIndex < 1 Or selectedIndex > profiles.Count Then
        MsgBox "유효한 프로필을 선택하지 않았습니다.", vbExclamation
        Exit Sub
    End If
    
    ' 선택된 프로필로 Chrome 실행
    selectedProfile = profiles(selectedIndex)
    
    ' Chrome 드라이버 생성 및 실행
    Dim driver As New ChromeDriver
    Dim options As New ChromeOptions
    
    options.AddArgument "--user-data-dir=" & selectedProfile
    driver.Start "chrome", options
    
    ' 테스트용 URL 열기
    driver.Get "https://www.google.com"
    
    MsgBox "Chrome이 " & profileNames(selectedIndex) & " 프로필로 실행되었습니다.", vbInformation
End Sub

</code>