在xp上使用excel,程式存檔會出現RPCRT4.dll的錯誤 |
尚未結案
|
betty0408
一般會員 發表:1 回覆:0 積分:0 註冊:2004-04-28 發送簡訊給我 |
問題如下:
一、執行saveas時,會出現RPCRT4.DLL的錯誤
二、設定執行如下程式時:
aSheet.Range['B1','B1'].FormulaR1C1 := '=BLP|M!''123456789
Corp,PX_BID]''/100';
會出現"無法存取遠端資料,是否啟動應用程式'BLP.EXE',
請問該如何才能使它default設為不啟動?(似乎跟WIN2000的設定不同) 程式如下:
unit Unit1; interface uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, OleServer, ExcelXP; type
TForm1 = class(TForm)
ExcelApplication: TExcelApplication;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end; var
Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject);
var
aExcelWorkBook: ExcelWorkbook;
aSheet: ExcelWorksheet;
i,lcid:integer;
begin
try
aExcelWorkbook := ExcelApplication.Workbooks.Add(Null, lcid);
aSheet := aExcelWorkbook.Sheets[1] as ExcelWorksheet;
ExcelApplication.Connect;
aSheet.Range['B1','B1'].FormulaR1C1 := '=BLP|M!''123456789 Corp,[PX_BID]''/100'; aExcelWorkbook.SaveAs
('c:\aa.xls', //Filename
xlNormal, //FileFormat
EmptyParam, //Password
EmptyParam, //WriteResPassword
False, //ReadOnlyRecommended
False, //CreateBackup
xlNoChange, //AccessMode
EmptyParam, //ConflictResolution
EmptyParam, //AddToMru
EmptyParam, //TextCodepage
EmptyParam, //TextVisualLayout
EmptyParam,
lcid);
finally
ExcelApplication.Quit;
ExcelApplication.DisConnect;
aExcelWorkbook := nil;
aSheet := nil;
end;
end; end.
|
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |