Giúp Code Mở Trình Duyệt Google Chome Visible = True

[Văn Toàn 1996]

Chào tất cả mọi người GPE ! Mình đang dùng đoạn bên dươi để mở ZAlo PC cho Hiện cửa số lên Hiện hành, mình muốn sửa Zalo thành Google Chome
IE.ShellExecute "chrome:" ' mO chomre nhưng code không chạy được. Ý mình giống như đoạn code Application.Visible = True là để hiện lại Giao diện Excel, nhưng mình muốn hiện lại Giao diện Google chomre. Xin mọi người giúp đỡ xin chân thành cảm ơn !

Sub mozalo()
    On Error Resume Next
    Dim IE As Object

    Set IE = CreateObject("Shell.Application")
    IE.ShellExecute "zalo:" ' mO zalo
    Set IE = Nothing
                
End Sub

chrome

 

[befaint]

Sub motDong()
VBA.Shell "cmd /c start chrome", vbHide
End Sub

 

[Văn Toàn 1996]

Sub motDong()
VBA.Shell "cmd /c start chrome", vbHide
End Sub

Cảm ơn anh. code của anh là nó Mở mới 1 Google chomre . ý của em là Chome đã mở rồi chỉ cần Set Forcus lại thôi. giống như code Application.Visible = True thì nó quay lại giao diện Excel

 

[VetMini]

AppActivate "Gú-gô Chôm-rễ"
. . .

 

[Văn Toàn 1996]

AppActivate "Gú-gô Chôm-rễ"
. . .

Sub teset()
On Error Resume Next
AppActivate "Google Chrome"
End Sub

không hiểu sao CHome không hiện lên, làm thế nào để chome hiện lên. Ví dụ PC mở nhiều App thì cừa sổ Chome hiện lên Trên cùng

 

[VetMini]

Phải dùng mọt vài cái pointers để gọi nó dậy.

 

[Văn Toàn 1996]

Phải dùng mọt vài cái pointers để gọi nó dậy.

Xin hãy cho 1 ví dụ. đã thử đủ cách mã chưa được

 

[huhumalu]

Xin hãy cho 1 ví dụ. đã thử đủ cách mã chưa được

 Public vPID As Variant
 Public Sub OpenApplication()
'Launch application if not already open
If vPID = 0 Then 'Application not already open
101:
    vPID = Shell("C:\Windows\system32\notepad.exe", vbNormalFocus)
Else 'Application already open so reactivate
    On Error GoTo 101
    AppActivate (vPID)
End If
End Sub

bạn xem thử cách trên.

vba set Focus on Windows application

Is it possible to open an existing application window? What I want: What is the code in order to put focus on an already open, but not in focus, application. For example, with: Set objIE = New

stackoverflow.com

 

[Văn Toàn 1996]

 Public vPID As Variant
 Public Sub OpenApplication()
'Launch application if not already open
If vPID = 0 Then 'Application not already open
101:
    vPID = Shell("C:\Windows\system32\notepad.exe", vbNormalFocus)
Else 'Application already open so reactivate
    On Error GoTo 101
    AppActivate (vPID)
End If
End Sub

bạn xem thử cách trên.

vba set Focus on Windows application

Is it possible to open an existing application window? What I want: What is the code in order to put focus on an already open, but not in focus, application. For example, with: Set objIE = New

stackoverflow.com

Code này nó lại mở Chome tab mới nó không hiện lại cái hiện hành. ví dụ google chome mình đang làm việc ở Web giaiphapexcel.com, thì nó chỉ cần quay lại đúng cái mình đang làm là Ok

 

[huhumalu]

Code này nó lại mở Chome tab mới nó không hiện lại cái hiện hành. ví dụ google chome mình đang làm việc ở Web giaiphapexcel.com, thì nó chỉ cần quay lại đúng cái mình đang làm là Ok

Tại mình đang cố đu theo cái code của bạn.
Chứ nếu dùng chrome, thì bạn tải về SeleniumBasic và ChromeDriver để mình có thể điều khiển Chrome luôn.
Vụ Selenium này thì trên diễn đàn có anh @HeSanbi hay chia sẻ đó.