Xin code gán mở theo tài khoản/profie đăng nhập bằng gmail sẵn trên trình duyệt

[phantu93]

Sub TEST()
Dim chromePath As String
Dim i As Long
Dim lastRow As Long
chromePath = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"
lastRow = Cells(Rows.Count, "D").End(xlUp).Row
For i = 33 To lastRow
Dim link As String
link = Cells(i, "D").Value
If link <> "" Then
Shell (chromePath & " -new-tab " & link)
End If
Next i
End Sub

đây là code mở hàng loạt link trong excel , em đã test mở thành công, giờ vấn đề là em cần gán mở theo 1 tài khoản/profie đăng nhập = 1 gmail đã đăng nhập sẵn trên trình duyệt, anh em cho xin code với, xin cám ơn, link bài gốc có code: https://www.giaiphapexcel.com/diend...-mình-về-vấn-đề-hyperlink-trong-excel.164790/

 

[quick87]

Sub TEST()
Dim chromePath As String
Dim i As Long
Dim lastRow As Long
chromePath = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"
lastRow = Cells(Rows.Count, "D").End(xlUp).Row
For i = 33 To lastRow
Dim link As String
link = Cells(i, "D").Value
If link <> "" Then
Shell (chromePath & " -new-tab " & link)
End If
Next i
End Sub

đây là code mở hàng loạt link trong excel , em đã test mở thành công, giờ vấn đề là em cần gán mở theo 1 tài khoản/profie đăng nhập = 1 gmail đã đăng nhập sẵn trên trình duyệt, anh em cho xin code với, xin cám ơn, link bài gốc có code: https://www.giaiphapexcel.com/diend...-mình-về-vấn-đề-hyperlink-trong-excel.164790/

Bạn thử code dưới:

Sub TEST()
    Dim chromePath  As String
    Dim profileName As String
    Dim i           As Long
    Dim lastRow     As Long
    
    ' Đường dẫn đến trình duyệt Chrome
    chromePath = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"
    
    ' Tên profile Chrome mà bạn muốn sử dụng
    profileName = "Profile 1"        ' Thay đổi "Profile 1" thành tên profile của bạn
    
    ' Tìm dòng cuối cùng có dữ liệu trong cột D
    lastRow = Cells(Rows.Count, "D").End(xlUp).Row
    
    ' Duyệt qua từng dòng và mở liên kết trong các tab mới của Chrome
    For i = 33 To lastRow
        Dim link    As String
        link = Cells(i, "D").Value
        If link <> "" Then
            Shell (chromePath & " --profile-directory=""" & profileName & """ -new-tab " & link)
        End If
    Next i
End Sub

 

[phantu93]

Bạn thử code dưới:

Sub TEST()
    Dim chromePath  As String
    Dim profileName As String
    Dim i           As Long
    Dim lastRow     As Long
   
    ' Đường dẫn đến trình duyệt Chrome
    chromePath = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"
   
    ' Tên profile Chrome mà bạn muốn sử dụng
    profileName = "Profile 1"        ' Thay đổi "Profile 1" thành tên profile của bạn
   
    ' Tìm dòng cuối cùng có dữ liệu trong cột D
    lastRow = Cells(Rows.Count, "D").End(xlUp).Row
   
    ' Duyệt qua từng dòng và mở liên kết trong các tab mới của Chrome
    For i = 33 To lastRow
        Dim link    As String
        link = Cells(i, "D").Value
        If link <> "" Then
            Shell (chromePath & " --profile-directory=""" & profileName & """ -new-tab " & link)
        End If
    Next i
End Sub

dạ em đã thử, ko đc anh ạ, ko có j thay đổi

 

[quick87]

dạ em đã thử, ko đc anh ạ, ko có j thay đổi

Mình sử dụng được:

Sub TEST()
    Dim chromePath  As String
    Dim profileName As String
    Dim i           As Long
    Dim lastRow     As Long
    
    ' Ðu?ng d?n d?n trình duy?t Chrome
    chromePath = "C:\Program Files\Google\Chrome\Application\chrome.exe"
    
    ' Tên profile Chrome mà b?n mu?n s? d?ng
    profileName = "Default"        ' Thay d?i "Profile 1" thành tên profile c?a b?n
    
    ' Tìm dòng cu?i cùng có d? li?u trong c?t D
    lastRow = Cells(Rows.Count, "D").End(xlUp).Row
    
    ' Duy?t qua t?ng dòng và m? liên k?t trong các tab m?i c?a Chrome
    For i = 33 To lastRow
        Dim link    As String
        link = Cells(i, "D").Value
        If link <> "" Then
            'Shell (chromePath & " --profile-directory=""" & profileName & """ -new-tab " & link)
            shellCommand = chromePath & " --profile-directory=""" & profileName & """ --new-tab " & link
            ' Th?c thi l?nh shell
            Shell shellCommand
        End If
    Next i
End Sub

Lưu ý rằng macro này chỉ mở website với profile đã chọn. Nó không tự động điền thông tin đăng nhập. Để tự động đăng nhập, bạn cần phải đã lưu thông tin đăng nhập trong Chrome hoặc sử dụng một tiện ích mở rộng quản lý mật khẩu có khả năng tự động điền và đăng nhập.

Để lấy tên chính xác của profile Google Chrome, bạn cần truy cập vào thư mục dữ liệu người dùng của Chrome trên máy tính của bạn. Tên profile thường được lưu trong thư mục có tên là "Default", "Profile 1", "Profile 2", v.v., tùy thuộc vào số lượng profiles bạn đã tạo.

Dưới đây là cách bạn có thể tìm tên profile chính xác:

Mở File Explorer và điều hướng đến thư mục dữ liệu người dùng của Chrome. Đường dẫn thường là:
C:\Users\[Tên người dùng]\AppData\Local\Google\Chrome\User Data\

Thay [Tên người dùng] bằng tên người dùng Windows của bạn.

Trong thư mục "User Data", bạn sẽ thấy các thư mục có tên là "Default", "Profile 1", "Profile 2", v.v.Để biết profile nào bạn đang sử dụng, bạn có thể mở Chrome, vào chrome://version/ và tìm dòng "Profile Path" để xem đường dẫn chính xác của profile đó.
Sau khi bạn đã xác định được tên profile, bạn có thể thay thế "Profile 1" trong câu lệnh của bạn với tên chính xác. Ví dụ, nếu tên profile của bạn là "Profile 2", câu lệnh sẽ là:

profileName = "Profile 2" ' Thay đổi "Profile 1" thành tên profile của bạn

Nếu bạn muốn mở Chrome với profile cụ thể từ dòng lệnh, bạn có thể sử dụng cú pháp sau:

chrome.exe --profile-directory="Tên-Profile"

Thay "Tên-Profile" với tên thư mục chính xác của profile bạn muốn mở. Đối với profile mặc định, sử dụng "Default"

 

[phantu93]

dạ, em đã làm đc, cám ơn anh. do em ko tìm đúng tên profile, tên ngoài mình đặt nó phải trùng với name trong file cài đặt user chrrome mới là đúng và mở đúng profile chỉ điịnh anh ạ