初学vba不懂网页查询，求助全国企业信用信息公示系统批量查询
Subgetdata()Dimarr(1To10,1To4),Company,Sdata$,brr,xCells.ClearOnErrorResumeNextSetoDoc=CreateObject("htmlfile")[a1:d1]=Array("公司信息","注册资本","成立时间","公司状态")Company=Application.InputBox("请输入你要查询的公司名称关键字：","请输入关键字")IfCompa···
