比如有如下语句:
var
ExcelObj, ExcelApp: OleVariant;
begin
ExcelApp := CreateOleObject('Excel.Application');
ExcelObj := CreateOleObject('Excel.Sheet');
ExcelObj := ExcelApp.WorkBooks.Open(aSaveFileName);
………………
end;aSaveFileName如果是中文文件名(例如'E:\主表.xls')就会出错,但是如果是其它文件名(例如'E:\123.xls'),请问如何解决呢?
var
ExcelObj, ExcelApp: OleVariant;
begin
ExcelApp := CreateOleObject('Excel.Application');
ExcelObj := CreateOleObject('Excel.Sheet');
ExcelObj := ExcelApp.WorkBooks.Open(aSaveFileName);
………………
end;aSaveFileName如果是中文文件名(例如'E:\主表.xls')就会出错,但是如果是其它文件名(例如'E:\123.xls'),请问如何解决呢?
解决方案 »
- 怎样删除远程目录
- 各位高手!!!请进来帮帮小弟
- indy FTPserver问题!在用indeFTPServer建立服务器时,当有客户端连入时,停止服务老是出现Eidclosedsocket with message 'disconnect'错
- 总是在公交车上遇见一个美丽的女孩,请大家给个建议!
- 怎么样使用xpmenu.pas
- 关于帮助文件的问题,50分
- 高手进来解决问题,100分求教!
- 我有一个东西弄不明白,请大家帮助。
- 日志记录大拼盘!~急!定高分!
- 急!一个关于Memo的问题
- procedure Tform.FormKeyPress(Sender: TObject; var Key: Char);
- 向高手提问!!!!!!在线等答案!
D6+win2k
procedure TForm1.Button1Click(Sender: TObject);
var
ExcelObj, ExcelApp: OleVariant;
begin
ExcelApp := CreateOleObject('Excel.Application');
ExcelObj := CreateOleObject('Excel.Sheet');
ExcelObj := ExcelApp.WorkBooks.Open('d:\我.xls');
// ………………
end;
end.
D7+win2k