[求助]请高手帮忙些几句简单的VBA代码

mzgd

[求助]请高手帮忙些几句简单的VBA代码
Tag： 求简单的VBA代码  

求助高手：

   对于在宏中编程我差不多了解了，现在的问题是我要把ACCESS数据库中的特定段数据（比如说对应公司的财务报表指标）导出到EXCEl中，这个过程我不知道命令，请高手帮忙写短代码。具体是这样的，

sub  dddd（）

……

  gsmc＝“公司一”      '  比如在前面已经有了要在ACCESS数据库中找的公司名称，ACCESS数据库中有该字段，

下面怎么才能实现比如说  sheet1中的  A1：D34  是该公司在ACCESS数据库中的财务报表数据

ACCESS数据库比如名称是  cwbb.mdb   的格式是：

xh   qymc     jgdm     qcs     qms

1    公司1   123456  4000  5000

2   公司1   123456  4000  5000

3   公司1   123456  4000  5000

一个公司有34条这样的记录，ACCESS中有上十万条记录，要实现把这个公司的数据斗导出到EXCEL中  该如何编程！

请熟悉这个的老师们一定要帮帮我啊 ，就差这几句了！！

跪谢啊！！

在线等待中……

huangqinyong

建议：

1、在窗体中建一个组合框或文字框——用来输入或查询单位名称；

2、进行选择查询；

3、对查询的结果进行导出。

导出的代码，请参阅[最简洁导入/导出/链接Excle 表源码]http://club.excelhome.net/viewthread.php?tid=321514&extra=&page=1#321514

以上供你参考。

mzgd

QUOTE:

以下是引用mzgd在2008-6-6 10:34:47的发言：
[求助]请高手帮忙些几句简单的VBA代码
Tag： 求简单的VBA代码  

求助高手：

   对于在宏中编程我差不多了解了，现在的问题是我要把ACCESS数据库中的特定段数据（比如说对应公司的财务报表指标）导出到EXCEl中，这个过程我不知道命令，请高手帮忙写短代码。具体是这样的，

sub  dddd（）

……

  gsmc＝“公司一”      '  比如在前面已经有了要在ACCESS数据库中找的公司名称，ACCESS数据库中有该字段，

下面怎么才能实现比如说  sheet1中的  A1：D34  是该公司在ACCESS数据库中的财务报表数据

ACCESS数据库比如名称是  cwbb.mdb   的格式是：

xh   qymc     jgdm     qcs     qms

1    公司1   123456  4000  5000

2   公司1   123456  4000  5000

3   公司1   123456  4000  5000

一个公司有34条这样的记录，ACCESS中有上十万条记录，要实现把这个公司的数据斗导出到EXCEL中  该如何编程！

请熟悉这个的老师们一定要帮帮我啊 ，就差这几句了！！

跪谢啊！！

在线等待中……

谢谢 你的 回复，

可是我有很多的公司EXCEL文件要处理，我已经基本上实现了批量出来其它的信息，就是差从数据库中导入财务报表了，你说的那样是否能够在VBA中写点判断搜索查找到数据库中对应的指标数据后   导入到EXCEl中呢 ？

期待你的再次指点！！

感激不尽！！