追加查询，循环套用

roych

1、搜索下老汉的“来回折腾”
2、导入表之后写联合查询（假设导入的表为sheet1）：
select 日期.类目,"项目1" as 项目名,项目1 as 金额 from sheet1
union all
select 日期.类目,"项目2" as 项目名,项目2 as 金额 from sheet1
……………………
union all
select 日期.类目,"项目n" as 项目名,项目n as 金额 from sheet1

然后以这个查询为数据源进行追加。

roych

1、http://www.office-cn.net/forum.php?mod=viewthread&tid=96091
2、可以先建立一个文本文件，把这个语句保存下来，后面多复制几行不就行了么？新建查询时，修改为SQL视图，然后把语句粘贴上去就好了。我个人不是很推荐写代码。又或者你可以看看这个：
http://www.office-cn.net/thread-119185-2-1.html，第11楼的回复。