在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.
|
發表時間：2004-05-04 09:13:50
IP:203.69.xxx.xxx 未訂閱
系統時間：2024-06-27 2:45:10
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |