纯前置表格控件:spr
给你一个思路，你可以用网络爬虫的原理来做。
1.阅读一页，请按2。解析html提取出自己有用的数据写到exc
用access自动获取excel中数据的方法是通过代码导入。如果手动导入清楚，这个实现并不难。请参考下面的介绍来实现:首先新建一个项目，通过引用项目中下面的objectado对象(用于以其他连接access数据库)来添加一个表单(from1)，并在表单上添加以下控件:两个文本框，分别显示excel文件路径和access路径；四个按钮，两个观光，另外两个进出口；两个常规对话框控件用于打开access和excel文件，一个进度条控件用于显示导入过程。本例的导入是将access数据库中的表的字段名单独存储在另一个表中，并按照表中存储字段名的顺序导入，而不是按照excel表的顺序导入。请注意。这在实践中非常实用，因为很多情况下，excel表中的字段顺序可能与access中的字段顺序不一致。代码如下:dimv选项显式私有subcmdload_click()。dimexcel_appasobjectdimexcel_sheet作为objectiftxtexelfile。textthenmsgbox请选择要导入的excel表格elsedimnew_value。请稍候...创建excel应用程序。setexcel_appcreateobject()取消对此行的注释以使excel可见。excel_true打开excel表格。exc:txtexcelfile.text检查是否有更高版本。如果val(excel_)gt8然后setexcel_sheetexcel_elsesetexcel_sheetexcel_appendifdimu查找excel表中的记录数，以便控制进度条u1doiftrim$(excel_sheet.cells(u，1))然后退出douu循环u-1strsqlselect*fromtestvaluesstrsql，myconn，adopendynamic，adlockoptimistic打开记录集dimsql作为字符串sqlselect*fromfieldorderbyxuesql，myconn，adopendynamic，adlockbatchoptimisticdimv导入记录。两层循环v1doiftrim$(excel_sheet。cells(v，1))然后退出使用外层。如果在excel表中读取一个空行，结束dimifori1以获取下一个值。new_valuetrim$(excel_sheet。cells(v，i))查看它是否为空白。如果len(new_value)为0，那么exit会将该值插入数据库。dimbbasstringbbmyrecord(name)yourrecord(bb)new_valuenextivvv1循环yourrecord。更新其余行的注释，使excel保持运行，以便您可以看到它。关闭工作簿而不保存。关闭excel。excel_app。退出setexcel_sheetnothingsetexcel_appnothingmyrecordnothingsetyourrecord导入vbdefaultmsgbox后，总共导入了ampformat$(v-1)amp记录。endifendsubprivate子命令1_click()。unloadmeetsubprorivate子命令2_click(indexasinteger)查找access数据库的access文件(*。mdb)|*subprivate子命令3_click()查找excel数据库的excel文件(*。xls)|*子配置subform_load()调用数据路径结束子模块(module1)中的代码如下:publicmyconnasnew定义连接字符串publicmyrecordasnew定义记录集(字段)。publicyourrecordasnew定义一个记录集(data)ispubliccntoadasboolean通常连接到公共mlname字段所在的列？publicstrsql查询字符串publicmydatabaseasdatabase将数据库名publicmytable定义为tabledef。myfieldasfield定义表名和字段名publicxuehao读取字段序列号publicgoshirecordasnew定义记录集(公式)。publichxfynasbooleanpublichxfbds公式或条件要计算的publicduan字段是否publicislinshiasboolean将临时公式publicleirecord的记录集(薪金类别)定义为new。publicdatapathasstring数据库路径和名称publictableasstring薪金表名称publicleiasstring薪金类别publicsub()出错时打开数据库resumemysqlasstring设置连接字符串mysqlsecurityinfofalsemysqlmysqldatasourceampdatapathmysql设置。打开连接myconn将recordeet的连接对象设置为连接myconn将recordeet的连接对象设置为aduseclientmyconn将recordeet的连接对象设置为连接aduseclientendsub。
