MỹHạnhCB
Đi mây, về gió. !!!
- Tham gia
- 25/3/22
- Bài viết
- 123
- Được thích
- 18
Mã:
Dim userName As String, namess As String, cmd As String
Dim downloadPath As String, nameXLS As String
Set brower = New Selenium.ChromeDriver 'khia bao gia tri de thao tac voi web chrome
'di den duong dan can den cua web
brower.SetPreference "download.default_directory", downloadPath ' Ð?t thu m?c t?i xu?ng
brower.SetPreference "download.prompt_for_download", False ' T?t h?p tho?i h?i v? trí t?i xu?ng
'brower.SetPreference "download.directory_upgrade", True ' Cho phép nâng c?p thu m?c t?i xu?ng
brower.Get "https://danhmuchanhchinh.gso.gov.vn/"
brower.FindElementByXPath("/html/body/form/div[3]/div/div[2]/table/tbody/tr[4]/td[2]/table[1]/tbody/tr/td[1]/input[2]").Click
brower.FindElementByXPath("/html/body/form/div[3]/div/div[2]/table/tbody/tr[4]/td[1]/table/tbody/tr/td[1]").Click
'---------------------------------
Sleep 2000 ' 10000 milliseconds = 10 giây
brower.Close
Set brower = Nothing
Em có 1 đoạn mã như dưới. Dùng để tự động tải file excel về máy. Trước giờ dùng bình thường với bản googlechorme tương ứng với chromedriver (114), nay googlechrome update lên (116) thì báo lỗi.
Khó khăn hiện tại là chromedriver chỉ mới đến bản (114) vậy làm như thế nào để sử dụng được ạ. Mong các anh chị giúp đỡ.