导出多个表到excel的问题
现在需要把数据库中的几个表备份到同一个excel中，但是每个表占一个sheet。
比如说table1，table2，table3三个表，现在要把这3个表导出到一个sheet中，table1在sheet1中，table2在sheet2中
table3在sheet3中。我利用dw的saveasascii等函数可以实现导出一个表到第一个sheet中，但是想把第2个表导出到
这个excel的第2个excel中就不知道怎么实现了？

[解决办法]
我顶,有结果了吗？贴出来大家学习一下

[解决办法]
用OLE 连接EXCEL

具体的可以查阅VBA for Excel
[解决办法]
每天回帖即可获得10分可用分
[解决办法]
帮顶 。
[解决办法]
PB OLE控制EXCEL的全面[分享
VFP中直接控制Excel。下面就在VFP用案Excel的
控制作一下介：
1．建Excel物件
eole=CREATEOBJECT(′Excel.application′)
2．添加新工作簿
eole.Workbooks.add
3．置第3工作表工作表
eole.Worksheets(″sheet3″).Activate
4．打指定工作簿
eole.Workbooks.Open(″c:\temp\ll.xls″)
5．示Excel窗
eole.visible=.t.
6．更改Excel
eole.Caption=″VFP用程式用Microsoft Excel″
7．格值
eole.cells(1,4).value=XM(XM料位名)
8．置指定列的度(位：字元)
eole.ActiveSheet.Columns(1).ColumnWidth=5
9．置指定行的高度(位：磅)
eole.ActiveSheet.Rows(1).RowHeight=1/0.035
(定行高1米，1磅=0.035米)
10．在第18行之前插入分符
eole.Worksheets(″Sheet1″).Rows(18).PageBreak=1
11．在第4列之前除分符
eole.ActiveSheet.Columns(4).PageBreak=0
12．指定框度(Borders如下)
ole.ActiveSheet.Range(″b3:d3″).Borders(2).Weight=3
13．置四框的型
eole.ActiveSheet.Range(″b3:d3″).Borders(2).Linestyle=1
(其中Borders：1－左、2－右、3－、4－底、5－斜、6－斜/；Linestyle值：17－、2－、4－、9－)
14．置眉
eole.ActiveSheet.PageSetup.CenterHeader=″表1″
15．置
eole.ActiveSheet.PageSetup.CenterFooter=″第＆P″
16．置眉到端距2米
eole.ActiveSheet.PageSetup.HeaderMargin=2/0.035
17．置到底距3米
eole.ActiveSheet.PageSetup.FooterMargin=3/0.035
18．置距2米
eole.ActiveSheet.PageSetup.TopMargin=2/0.035
19．置底距4米
eole.ActiveSheet.PageSetup.BottomMargin=4/0.035
20．置左距2米
veole.ActiveSheet.PageSetup.LeftMargin=2/0.035
21．置右距2米
eole.ActiveSheet.PageSetup.RightMargin=2/0.035
22．置面水平居中
eole.ActiveSheet.PageSetup.CenterHorizontally=.t.
23．置面垂直居中
eole.ActiveSheet.PageSetup.CenterVertically=.t.
24．置面大小(1－窄行8511 39－行1411)
eole.ActiveSheet.PageSetup.PaperSize=1
25．列印格
eole.ActiveSheet.PageSetup.PrintGridlines=.t.
26．拷整工作表
eole.ActiveSheet.UsedRange.Copy
27．拷指定域
eole.ActiveSheet.Range(″A1:E2″).Copy
28．粘
eole.WorkSheet(″Sheet2″).Range(″A1″).PasteSpecial
29．在第2行之前插入一行
eole.ActiveSheet.Rows(2).Insert
30．在第2列之前插入一列
eole.ActiveSheet.Columns(2).Insert
31．置字
eole.ActiveSheet.Cells(2,1).Font.Name=″黑″
32．置字大小
eole.ActiveSheet.Cells(1,1).Font.Size=25
33．置字斜
eole.ActiveSheet.Cells(1,1).Font.Italic=.t.
34．置整列字粗
eole.ActiveSheet.Columns(1).Font.Bold=.t.
35．清除格公式
eole.ActiveSheet.Cells(1,4).ClearContents
36．列印工作表
eole.ActiveSheet.PrintPreview
37．列印出工作表
eole.ActiveSheet.PrintOut
38．工作表另
eole.ActiveWorkbook.SaveAs(″c:\temp\22.xls″)
39．放存

eole.ActiveWorkbook.saved=.t.
40．工作簿
eole.Workbooks.close
41．退出Excel
eole.quit
PB控制也一的的.
[解决办法]