fastreport 的报表怎样导出到Excel文件(50分)

H

hjitoo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-23

• #1

我有一个fastreport生成的报表,现在需要把它导出到Excel中编辑后处理,我试过用
fastreport中的导出控件，但是没有导出到Excel(.xls)格式的控件,我想问一下,
fastreport中的报表是否可以导出到Excel中, 怎样导出?我很急急急急!

 

B

BADBOYNET

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-23

• #2

用TfrCSVExport控件可以的

 

H

hjitoo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-23

• #3

to BADBOYNET:
用TfrCSVExport控件只可以导出为.csv的文件用Excel打开有错误,你是怎么作得[8D]

 

L

lanbing1400

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-23

• #4

肯定可以导，我原来的同事就做过
我现在不太清楚怎么做的，等我试试

 

H

hjitoo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-23

• #5

to lanbing1400
怎么样了,我急着要,帮帮忙了[^]

 

夏

夏雨天

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-02

• #6

你可以导出DBGRID呀。
//输出EXCEL表
procedure TDMPay.CreateExcel(ExcelFileName : String;
dbgeName :TDBGridEh;
AdoqName : TADOQuery);
var
ExcelApp, WorkBook : Variant;
i, j : Integer;
SaveDialog : TSaveDialog;
XlsFileName : String;
begin
SaveDialog := TSaveDialog.Create(self);
SaveDialog.FileName := ExcelFileName + DateToStr(Date);
if SaveDialog.Execute then
XlsFileName := SaveDialog.FileName
else
begin
//释放创建的组件
SaveDialog.Free;
Exit;
end;

if (AdoqName.RecordCount = 0) or (not (AdoqName.Active)) then
begin
Application.MessageBox('记录为空，不能导出Excel表。', '提示', MB_oK + MB_ICONINFORMATION);
//释放创建的组件
SaveDialog.Free;
Exit;
end;

//创建自动化对象
try
ExcelApp := CreateOleObject('Excel.Application');
WorkBook := createOleObject('Excel.Sheet');
except
Application.Messagebox('您的机器里没有安装Microsoft Excel。', '提示', MB_OK + MB_ICONSTOP);
//释放创建的组件
SaveDialog.Free;
Exit;
end;

//新建一个XLS文件,并写入数据,最后关闭它
try
WorkBook := ExcelApp.WorkBooks.Add;
//---------------------表头-------------------------
for i := 0 to dbgeName.Columns.Count - 1do
ExcelApp.Cells(1, i + 1) := dbgeName.Columns.Title.Caption;
//---------------------表-------------------------
for i := 1 to AdoqName.RecordCountdo
begin
AdoqName.recno := i;
for j := 0 to dbgeName.Columns.Count - 1do
ExcelApp.Cells(i + 1, j + 1) := dbgeName.Columns[j].DisplayText;
end;
WorkBook.SaveAs(XlsFileName);
WorkBook.Close;
Application.MessageBox('Excel表导出完毕。', '提示', MB_OK + MB_ICONINFORMATION);
except
Application.MessageBox('不能正确操作Excel文件。可能是该文件已被其他程序打开或系统错误。', '错误', MB_OK + MB_ICONERROR);
WorkBook.close;
ExcelApp.Quit;
//释放VARIANT变量
ExcelApp := Unassigned;
end;
//释放创建的组件
SaveDialog.Free;
end

 

H

hjitoo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-03

• #7

我需要报表的格式导出到Excel 能不能直接导报表的方法 我想知道
fastreport 应该支持的吧Report build都有了，但我找不到fastreport的
帮帮忙啊 我等了很久了

 

W

winsock

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-03

• #8

Report build有？楼上的朋友！该如何做！能说说吗？

 

唐

唐佐平

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-04

• #9

我也在找方法解决，
大家共同研究，希望有好的方法解决

 

T

ttaa

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-04

• #10

王大侠的Report Machine可以。他是基于FastReport的。

 

H

hjitoo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-04

• #11

有人用FASTreport做过吗我好象不行

 

H

hjitoo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-12

• #12

大家怎么样有办法我等了很久了,帮帮我吧，

 

J

jihenglixin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-02-12

• #13

就算导出也根本不能看,效果太差

 

L

lps

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-02-14

• #14

>>用TfrCSVExport控件可以的
agree

 

H

hjitoo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-02-16

• #15

用TfrCSVExport控件导出的不象样

 

H

hjitoo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-02-21

• #16

有什么控件没有？

 

H

hjitoo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-02-25

• #17

有什么控件没有？我等用

 

V

vive

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-01

• #18

增加‘frCSVExport1’
你是哪个版本的

 

C

cxz9

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-01

• #19

http://www.torry.net/vcl/reports/reportenhancements/frpowerpck.zip
不过我还没试过
Components>Reports>Report Enhancements
PowerPack v.2.47 FWS 507 Kb 3 Dec 2002
By FastReport Software. Additional components for FastReport.
Included:
Import filters from MS Word, MS Excel, QuickReport
DB engines for IBO, ADO, Advantage, NativeDB, Sybase, DAO, DBISAM,do
A, FlashFiler, FreeIB, IB_Objects, Oracle (OCI), SQLDirect
Add-on components for FastReport designer and report engine
Export filters for RTF, XLS, HTM, BMP, JPG, GIF.
Fully functional
Source: Included

Download: D4 D5 D6 D7

 

T

tt520

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-02

• #20

可以用下面的控件试一下，能否满足你的要求，不过没有注册的话，只有两页。
WEB:http://www.pragnaan.com
PsFRExportFilters - Enhanced, WYSIWYG, FastReport export filters for
Borland Delphi and C++Builder