Hỏi về lỗi lập trình marco trên excel cho việc access vào web và lấy dữ liệu

[coldplay92]

Chào mọi người năm mới, mình mới tìm hiểu một chút về lập trình VBA và đang muốn design 1 marco có thể access vào trang web và lấy dữ liệu. Tuy nhiên mình có follow hướng dẫn để viết thì gặp 1 chút trục trặc khi input dữ liệu, nhờ mọi người có thể tư vấn giúp đỡ.

Bên dưới là chi tiết của Inspect Element trên website mình muốn lấy dữ liệu.

"<input class="sapMInputBaseInner" id="fin_acc_query_analyze_2CCFITRIALBALQ0001VARSCREEN_filterpanel1-DS_1:_CDS_F_2CIFICOMPANYCODE-input-inner" aria-required="true" aria-describedby="__text9 fin_acc_query_analyze_2CCFITRIALBALQ0001VARSCREEN_filterpanel1-DS_1:_CDS_F_2CIFICOMPANYCODE-input-SuggDescr __text2" aria-labelledby="fin_acc_query_analyze_2CCFITRIALBALQ0001VARSCREEN_filterpanel1-DS_1:_CDS_F_2CIFICOMPANYCODE-label" style="opacity: 1;" aria-autocomplete="list" type="text" value="" autocomplete="off">"

Bên dưới là phần marco mình có soạn

"Sub Getthedata()

Dim IE As New SHDocVw.InternetExplorer
Dim HTMLDoc As MSHTML.HTMLDocument
Dim HTMLCompany As MSHTML.IHTMLElement

'Choose type of report

IE.Visible = True
IE.Navigate "URL"

Do While IE.readyState <> READYSTATE_COMPLETE
Loop

Set HTMLDoc = IE.Document

'Input data

Set HTMLCompany = HTMLDoc.getElementById("fin_acc_query_analyze_2CCFITRIALBALQ0001VARSCREEN_filterpanel1-DS_1:_CDS_F_2CIFICOMPANYCODE-input-inner")
HTMLCompany.Value = "VN01"

End Sub"

Kết quả mình mong muốn là có thể điền giá trị input "VN01", tuy nhiên code trên chỉ load được trang web mà không điền được giá trị mình mong muốn mà chỉ bảo lỗi như bên dưới. Anh em nào có cao kiến thì chỉ em với nhé. Thanks.

 

[befaint]

Mình kiếm cái API của nó làm cho nhanh, hoặc tìm hiểu về UiPath đi.

 

[VetMini]

Mình kiếm cái API của nó làm cho nhanh, hoặc tìm hiểu về UiPath đi.

Biết tiếng Tây hôn mà bày đặt xí xọn?

 

[coldplay92]

Mình kiếm cái API của nó làm cho nhanh, hoặc tìm hiểu về UiPath đi.

Thực ra mình làm trong lĩnh vực Finance nên hiện tại chỉ có thể dùng Excel / Macro để hỗ trợ công việc hằng ngày, còn các ứng dụng khác thì hơi khó thực hiện, nếu có biết tips gì thì share mình với nhé. Thanks.

 

[khitamdao]

HTMLCompany.TextContent = "VN01"