D6的F1Book能否导入带表格的excel文件?(150分)

  • 主题发起人 主题发起人 base1
  • 开始时间 开始时间
B

base1

Unregistered / Unconfirmed
GUEST, unregistred user!
我用一下方法在f1book导入一个excel文件
procedure TForm1.Button1Click(Sender: TObject);
var i: smallint;
begin
i:=1;
f1book.Read('bill.xls',i);
end;
每次按下按钮就抛出一个EOleException例外,提示'Unable to Open File',
可是我如果把文件换成一个不带表格的,就没问题了
为什么?
还有,如何去掉flbook的标题行标题列,以及底下的tab页?
我把它们的属性都设为none,看起来是好了,可是一read文件,就全出来了:(
大虾们快来救我!!
 
唉,有在这方面比较熟悉的大虾吗?
帮帮我吧~
 
Syntax

F1Book1.Read pPathName, pFileType

Part Type Description
pPathName String Name of the file to read. The name can include drive, path, and file name.
pFileType Integer Variable, passed by reference, that receives the returned type of the file that is read. This parameter is undefined if Read returns an error. Following is a list of valid F1FileTypeConstants returned to this variable:
Constants Description
F1FileFormulaOne Formula One format
F1FileExcel4 Excel 4.0 format
F1FileTabbedText Tab-delimited text file
F1FileExcel5 Excel 5.0 format
F1FileFormulaOne3 Formula One v.3 format
F1FileTabbedTextValuesOnly Tab-delimited text file values only
Remarks

Read initializes a workbook structure and reads a worksheet from the specified file. If there is not a workbook attached to the view, a new workbook is created.
这里说得很清楚:如果没有workbook 那么会新创建一个。
你看看它的帮助吧。
 
帮助其实我也看过了
关于read后面的参数我每个都试过呀
可是结果都一样,是不是和偶的Excel2000有关?
但是为什么简单的文件又没有错误呢?
 
目前delphi自带的F1BOOK是否支持Excel2000?
 
Delphi自带的那套F1Book应该是1.0版本的. 我的6.1版本产品介绍书里只保证F1book
和office 97文件兼容.我也曾经和上海奥林道(我买f1book的)公司联系过,技术人员
也是这么说的.
另外我在Excel 2000中做的比较复杂的报表,f1book会丢失一些信息,但是打开没问题.
你说的excel文件中带表格是什么意思?
 
就是有横条竖条线的带边框的报表呀
打开的时候提示:Unable to open file.
是什么原因呢?你们使用f1book1.read('filename',i)的方法打开的吗?
 
呵呵,不好意思。我用的是 f1book 6.0 excel 2000,好象没碰到这样的问题呀。
ftype:=F1FileExcel97;
F1book1.Read(OpenFile,fType);
 
你的意思是在Excel中设置了边框. 如果是这样的,F1Book 6应该是没有问题的.只是斜线信息
会丢失. 我建议你还是去下载F1book 6.
 
procedure Texcelform.openbuttonClick(Sender: TObject);
var
filetype:smallint;
begin
if opendialog.Execute then
begin
case opendialog.FilterIndex of
1: filetype:=F1FileExcel97;
2: filetype:=F1FileTabbedText;
3: filetype:=F1FileFormulaOne6;
4: filetype:=F1FileExcel5;
else filetype:=F1FileFormulaOne6;
end;
excelbook.Read(opendialog.filename,filetype);
end;
end;
我用的是F1BOOK 6
用上面的过程打开excel 2000建的文件没问题,文件中不能包括图形,那会丢失的。
在读完文件后重新设置格式
showcolheading:=false;
showrowheading:=false;
showtabs:=f1tabsoff


 
关注!!!

那天我能写出一个人,公布源码,大家就不用发愁了。
 
bluerain,可否把你的F1BOOK6共享一下,另外该公司已被收购,你可否有新的版本,谢谢!
 
最新版本,也许是ActiveX的最后版本下载:
http://www.pdriver.com/display.asp?key_id=1233&ai_down=1
 
后退
顶部