Khó đấy, cái web này không khả thi để ứng dụng VBA vào. Có lẽ phải chấp nhận đau thương là làm bằng tay thôi bạn ạ. Nếu trong nhóm có vài người, thì chia việc cho họ làm.
Dạ vâng, em cảm ơn mọi người ạ.
<input itemprop="query-input" type="text" id="search" class="form-control search-field tax-search-input" dir="ltr" value="" name="q"Set ObjCollection = ie.Document.getElementById("search").Value = "1234567890"<button type="submit" class="btn btn-secondary"><i class="ec ec-search"></i></button>'Click
For Each oHTML_Element In HTMLDoc.getElementsByClassName("btn btn-secondary")
oHTML_Element.Click
Exit For
Nexthttps://masothue.vn/Search/?q=225409687&type=identityFor Each oHTML_Element In HTMLDoc.getElementsByName("q")
oHTML_Element.innerText = "225409687"
Exit For
Nexthttps://masothue.vn/Search/?q=225409687&type=identity<table class="table-taxinfo">Dạ em nghĩ cũng ko cần form làm j nữa anh ạ, vì nếu lấy từ trang này được thì tạo một list trên excel rồi dùng vòng lặp để lấy lần lượt thôi ạ. Em cám ơn mọi người ạ.
Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal ms As LongPtr) 'De su dung duoc ham sleep, chung ta nhat dinh phai khai bao kernel32
Sub truycapweb()
Dim objIE As InternetExplorer 'mo trang web duoc chi dinh
Dim HTMLDoc As HTMLDocument 'Lay ma html cua trang web duoc mo
Dim oHTML_Element As IHTMLElement
Dim timeOut As Date
Dim s As String
'Tao object IE
Set objIE = CreateObject("InternetExplorer.Application")
'Hien thi trinh duyet IE
objIE.Visible = True
'Truy cap dia chi web
lktem = "https://masothue.vn/Search/?q=225409687&type=identity"
objIE.navigate lktem
'Chung ta mong muon trang web duoc load hoan toan trong 20s. Cac ban co the chinh lai thong so nay
timeOut = Now + TimeSerial(0, 0, 5)
Do While objIE.Busy = True Or objIE.readyState <> 4
DoEvents
Sleep 1
If Now > timeOut Then
objIE.Refresh
timeOut = Now + TimeSerial(0, 0, 5)
End If
Loop
'Chung ta mong muon trang web duoc load hoan toan trong 5s. Cac ban co the chinh lai thong so nay
timeOut = Now + TimeSerial(0, 0, 5)
Do While objIE.document.readyState <> "complete"
DoEvents
Sleep 1
If Now > timeOut Then
objIE.Refresh
timeOut = Now + TimeSerial(0, 0, 5)
End If
Loop
sens = False
Set HTMLDoc = objIE.document
'lan thu nhat
s = ""
For Each oHTML_Element In HTMLDoc.getElementsByClassName("table-taxinfo")
s = oHTML_Element.outerHTML
Exit For
Next
ThisWorkbook.Sheets(1).Cells(1, 1) = s
objIE.Quit
Set objIE = Nothing
End SubSub Macro1()
'
' Macro1 Macro
'
'
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;file:///C:/Users/user/Desktop/abc.html", Destination:=Range("$A$1"))
.CommandType = 0
.Name = "abc_1"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
End Sub'Tao file html
's la noi dung file html
'lktem la duong link file html, vd: C:\VBA\1.html'
Sub CreatehtmlFile(ByVal s As String, ByVal lktem As String)
Dim FSO As Object
Dim myFile
Set FSO = CreateObject("Scripting.FileSystemObject")
Set myFile = FSO.CreateTextFile( _
Filename:=lktem, _
overwrite:=True, _
Unicode:=True)
myFile.write s
myFile.Close
Set FSO = Nothing
End Sub