excel vba如何利用htmldocument在文本框輸入資料并查詢

<DIV id=CusIndivGroup class=emp_group_div><TABLE class="emp_gridLayout_table 2" maxColumn="2">

<TBODY>

<TR>

<TD class=emp_field_label>客戶号</TD>

<TD class=emp_field_td><SPAN id=emp_field_CusIndiv.cus_id title=客戶号 class=emp_field rendered="true" value="" onlyControlElement="false" readonly="false" colSpan="1" cssRequiredClass="emp_field_required" cssErrorClass="emp_field_error" type="Text"><INPUT class=emp_field_text_input name=CusIndiv.cus_id hidden="false"></SPAN> </TD>

<TD class=emp_field_label>客戶名稱</TD>

<TD class=emp_field_td><SPAN id=emp_field_CusIndiv.cus_name title=客戶名稱 class=emp_field rendered="true" value="" onlyControlElement="false" readonly="false" colSpan="1" cssRequiredClass="emp_field_required" cssErrorClass="emp_field_error" type="Text"><INPUT class="emp_field_text_input " name=CusIndiv.cus_name hidden="false"></SPAN> </TD></TR>

<TR>

<TD class=emp_field_label>證件類型</TD>

<TD class=emp_field_td><SPAN id=emp_field_CusIndiv.cert_type title=證件類型 class=emp_field rendered="true" value="" onlyControlElement="false" readonly="false" colSpan="1" cssRequiredClass="emp_field_required" cssErrorClass="emp_field_error" type="Select" defMsg="-----請選擇-----" dictname="STD_ZB_CERT_TYP"><SELECT class=emp_field_select_select name=CusIndiv.cert_type value=""><OPTION selected value="">-----請選擇-----</OPTION><OPTION value=10>身份證</OPTION><OPTION value=11>護照</OPTION><OPTION value=12>軍官證</OPTION><OPTION value=13>港澳居民通行證</OPTION><OPTION value=14>台灣同胞來往内地通行證</OPTION><OPTION value=1X>其他(對私)</OPTION><OPTION value=30>臨時身份證</OPTION><OPTION value=31>戶口簿</OPTION><OPTION value=32>警官證</OPTION><OPTION value=33>士兵證</OPTION><OPTION value=34>外國人永久居留證</OPTION></SELECT><INPUT class=emp_field_select_input readOnly value=-----請選擇-----></SPAN> </TD>

<TD class=emp_field_label>證件号碼</TD>

<TD class=emp_field_td><SPAN id=emp_field_CusIndiv.cert_code title=證件号碼 class=emp_field rendered="true" value="" onlyControlElement="false" readonly="false" colSpan="1" cssRequiredClass="emp_field_required" cssErrorClass="emp_field_error" type="Text"><INPUT class=emp_field_text_input name=CusIndiv.cert_code hidden="false"></SPAN> </TD></TR>

<TR>

<TD class=emp_field_label>客戶狀态</TD>

<TD class=emp_field_td><SPAN id=emp_field_CusIndiv.cus_status title=客戶狀态 class=emp_field rendered="true" value="" onlyControlElement="false" readonly="false" colSpan="1" cssRequiredClass="emp_field_required" cssErrorClass="emp_field_error" type="Select" defMsg="-----請選擇-----" dictname="STD_ZB_CUS_STATUS"><SELECT class=emp_field_select_select name=CusIndiv.cus_status value=""><OPTION selected value="">-----請選擇-----</OPTION><OPTION value=00>草稿客戶(正式)</OPTION><OPTION value=20>正式客戶</OPTION><OPTION value=01>臨時客戶</OPTION><OPTION value=02>草稿客戶(擔保)</OPTION><OPTION value=03>擔保客戶</OPTION><OPTION value=04>草稿客戶(評估)</OPTION><OPTION value=05>評估機構</OPTION><OPTION value=91>合并登出</OPTION><OPTION value=92>登出</OPTION><OPTION value=93>不動戶</OPTION></SELECT><INPUT class=emp_field_select_input readOnly value=-----請選擇-----></SPAN> </TD>

<TD class=emp_field_label>客戶類型</TD>

<TD class=emp_field_td><SPAN id=emp_field_CusIndiv.cus_type title=客戶類型 class=emp_field rendered="true" value="" onlyControlElement="false" readonly="false" colSpan="1" cssRequiredClass="emp_field_required" cssErrorClass="emp_field_error" type="Select" defMsg="-----請選擇-----" dictname="STD_ZB_CUS_TYPE?enname in (110,130)"><SELECT class=emp_field_select_select name=CusIndiv.cus_type value=""><OPTION selected value="">-----請選擇-----</OPTION><OPTION value=110>其他自然人</OPTION><OPTION value=130>農戶</OPTION></SELECT><INPUT class=emp_field_select_input readOnly value=-----請選擇-----></SPAN> </TD></TR>

<TR>

<TD class=emp_field_label>主管客戶經理</TD>

<TD class=emp_field_td><SPAN id=emp_field_CusIndiv.cust_mgr title=主管客戶經理 class=emp_field rendered="true" value="" onlyControlElement="false" readonly="false" colSpan="1" cssRequiredClass="emp_field_required" cssErrorClass="emp_field_error" type="Text"><INPUT class=emp_field_text_input name=CusIndiv.cust_mgr hidden="false"></SPAN> </TD>

<TD class=emp_field_label>貧困戶類型</TD>

<TD class=emp_field_td><SPAN id=emp_field_CusIndiv.poor_farmer_type title=貧困戶類型 class=emp_field rendered="true" value="" onlyControlElement="false" readonly="false" colSpan="1" cssRequiredClass="emp_field_required" cssErrorClass="emp_field_error" type="Select" defMsg="-----請選擇-----" dictname="STD_POOR_FARMER_TYPE"><SELECT class=emp_field_select_select name=CusIndiv.poor_farmer_type value=""><OPTION selected value="">-----請選擇-----</OPTION><OPTION value=XZ00>非貧困戶</OPTION><OPTION value=XZ01>貧困戶</OPTION><OPTION value=XZ02>脫貧戶</OPTION><OPTION value=XZ04>非貧戶聯保人</OPTION><OPTION value=XZ07>2014脫貧戶</OPTION><OPTION value=XZ08>2015脫貧戶</OPTION><OPTION value=XZ09>邊緣戶</OPTION><OPTION value=XZ05>區外貧困戶</OPTION><OPTION value=XZ06>被删除戶</OPTION></SELECT><INPUT class=emp_field_select_input readOnly value=-----請選擇-----></SPAN> </TD></TR>

<TR style="DISPLAY: none">

<TD class=emp_field_label style="DISPLAY: none">主管機構</TD>

<TD class=emp_field_td style="DISPLAY: none" colSpan=3><SPAN id=emp_field_CusIndiv.main_br_id title=主管機構 class="emp_field emp_field_hidden" hidden="true" rendered="true" value="" onlyControlElement="false" readonly="false" colSpan="2" cssRequiredClass="emp_field_required" cssErrorClass="emp_field_error" type="Text"><INPUT class=emp_field_text_input name=CusIndiv.main_br_id hidden="true"></SPAN> </TD></TR></TBODY></TABLE></DIV>