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>