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/
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/