急！！ole中Excel无法保存？？

Delphi > VCL组件开发及应用
收藏 回复
[问题点数：200分，结帖人tangss]
更多帖子
私信 空间 博客
tangss
等级
本版专家分：1452
结帖率 100%
急！！ole中Excel无法保存？？，
ExcelApplication1.ActiveWorkBook.SaveAs(Filename := SaveDialog1.FileName,
                      FileFormat:=xlNormal,
                      Password := '',
                      WriteResPassword := '',
                      ReadOnlyRecommended := False,
                      CreateBackup := False); 
和ExcelWorkbook1.SaveAs(SaveDialog1.FileName）都不行。
只看楼主 引用 举报 楼主 收起
展开阅读全文
更多帖子
私信 空间 博客
ksaiy
等级
本版专家分：18503
勋章
Blank
红花 2004年11月 Delphi大版内专家分月排行榜第一
Blank
黄花 2004年10月 Delphi大版内专家分月排行榜第二
ExcelApplication1.Save('c:\ksaiy.xls')

打开以后用这个保存。。。。。
只看TA 引用 举报 #1得分 10
更多帖子
私信 空间 博客
ksaiy
等级
本版专家分：18503
勋章
Blank
红花 2004年11月 Delphi大版内专家分月排行榜第一
Blank
黄花 2004年10月 Delphi大版内专家分月排行榜第二
不好意思。看错了。
只看TA 引用 举报 #2得分 0
更多帖子
私信 空间 博客
aiirii
等级
本版专家分：181754
勋章
Blank
进士 2004年 总版技术专家分年内排行榜第六
Blank
银牌 2004年4月 总版技术专家分月排行榜第二
Blank
红花 2006年1月 Delphi大版内专家分月排行榜第一
2005年12月 Delphi大版内专家分月排行榜第一
2005年11月 Delphi大版内专家分月排行榜第一
2005年10月 Delphi大版内专家分月排行榜第一
2005年6月 Delphi大版内专家分月排行榜第一
2004年10月 Delphi大版内专家分月排行榜第一
2004年9月 Delphi大版内专家分月排行榜第一
2004年8月 Delphi大版内专家分月排行榜第一
2004年7月 Delphi大版内专家分月排行榜第一
2004年6月 Delphi大版内专家分月排行榜第一
2004年5月 Delphi大版内专家分月排行榜第一
2004年4月 Delphi大版内专家分月排行榜第一
2004年3月 Delphi大版内专家分月排行榜第一
2003年12月 Delphi大版内专家分月排行榜第一
2003年11月 Delphi大版内专家分月排行榜第一
Blank
黄花 2006年4月 Delphi大版内专家分月排行榜第二
2005年5月 Delphi大版内专家分月排行榜第二
2005年4月 Delphi大版内专家分月排行榜第二
2005年3月 Delphi大版内专家分月排行榜第二
2005年2月 Delphi大版内专家分月排行榜第二
2004年12月 Delphi大版内专家分月排行榜第二
2004年2月 Delphi大版内专家分月排行榜第二
ole: 
  ExcelApp.SaveAs( 'C:\Excel\Demo1.xls' );

Control:
 ExcelApplication1.SaveAs( 'C:\Excel\Demo1.xls' );
只看TA 引用 举报 #3得分 20
更多帖子
私信 空间 博客
aiirii
等级
本版专家分：181754
勋章
Blank
进士 2004年 总版技术专家分年内排行榜第六
Blank
银牌 2004年4月 总版技术专家分月排行榜第二
Blank
红花 2006年1月 Delphi大版内专家分月排行榜第一
2005年12月 Delphi大版内专家分月排行榜第一
2005年11月 Delphi大版内专家分月排行榜第一
2005年10月 Delphi大版内专家分月排行榜第一
2005年6月 Delphi大版内专家分月排行榜第一
2004年10月 Delphi大版内专家分月排行榜第一
2004年9月 Delphi大版内专家分月排行榜第一
2004年8月 Delphi大版内专家分月排行榜第一
2004年7月 Delphi大版内专家分月排行榜第一
2004年6月 Delphi大版内专家分月排行榜第一
2004年5月 Delphi大版内专家分月排行榜第一
2004年4月 Delphi大版内专家分月排行榜第一
2004年3月 Delphi大版内专家分月排行榜第一
2003年12月 Delphi大版内专家分月排行榜第一
2003年11月 Delphi大版内专家分月排行榜第一
Blank
黄花 2006年4月 Delphi大版内专家分月排行榜第二
2005年5月 Delphi大版内专家分月排行榜第二
2005年4月 Delphi大版内专家分月排行榜第二
2005年3月 Delphi大版内专家分月排行榜第二
2005年2月 Delphi大版内专家分月排行榜第二
2004年12月 Delphi大版内专家分月排行榜第二
2004年2月 Delphi大版内专家分月排行榜第二
http://delphi.ktop.com.tw/topic.asp?TOPIC_ID=29495
只看TA 引用 举报 #4得分 10
更多帖子
私信 空间 博客
ksaiy
等级
本版专家分：18503
勋章
Blank
红花 2004年11月 Delphi大版内专家分月排行榜第一
Blank
黄花 2004年10月 Delphi大版内专家分月排行榜第二
看了看。如果要直接保存的话直接用我给你的就行了。

感觉用OLE更好使一点。
只看TA 引用 举报 #5得分 10
更多帖子
私信 空间 博客
tangss
等级
本版专家分：1452
我用ExcelApplication1.Save('c:\ksaiy.xls');怎么出现保存提示对话框，我输入文件名保存，c:\ksaiy.xls 里面是空的。文件保存在我输入的文件名里面。为何c:\ksaiy.xls 里面是空的呢？我不想让他出现保存提示对话框要怎样做呢？
只看TA 引用 举报 #6得分 0
更多帖子
私信 空间 博客
tangss
等级
本版专家分：1452
To(ari-爱的眼睛) ：ExcelApp和 ExcelApplication1没有Saveas属性
只看TA 引用 举报 #7得分 0
更多帖子
私信 空间 博客
aiirii
等级
本版专家分：181754
勋章
Blank
进士 2004年 总版技术专家分年内排行榜第六
Blank
银牌 2004年4月 总版技术专家分月排行榜第二
Blank
红花 2006年1月 Delphi大版内专家分月排行榜第一
2005年12月 Delphi大版内专家分月排行榜第一
2005年11月 Delphi大版内专家分月排行榜第一
2005年10月 Delphi大版内专家分月排行榜第一
2005年6月 Delphi大版内专家分月排行榜第一
2004年10月 Delphi大版内专家分月排行榜第一
2004年9月 Delphi大版内专家分月排行榜第一
2004年8月 Delphi大版内专家分月排行榜第一
2004年7月 Delphi大版内专家分月排行榜第一
2004年6月 Delphi大版内专家分月排行榜第一
2004年5月 Delphi大版内专家分月排行榜第一
2004年4月 Delphi大版内专家分月排行榜第一
2004年3月 Delphi大版内专家分月排行榜第一
2003年12月 Delphi大版内专家分月排行榜第一
2003年11月 Delphi大版内专家分月排行榜第一
Blank
黄花 2006年4月 Delphi大版内专家分月排行榜第二
2005年5月 Delphi大版内专家分月排行榜第二
2005年4月 Delphi大版内专家分月排行榜第二
2005年3月 Delphi大版内专家分月排行榜第二
2005年2月 Delphi大版内专家分月排行榜第二
2004年12月 Delphi大版内专家分月排行榜第二
2004年2月 Delphi大版内专家分月排行榜第二
那看看
ExcelApplication1.ActiveWorkBook
只看TA 引用 举报 #8得分 0
更多帖子
私信 空间 博客
tangss
等级
本版专家分：1452
ExcelApplication1.ActiveWorkBook到是有SaveAs,但还是确参数

只看TA 引用 举报 #9得分 0
更多帖子
私信 空间 博客
ksaiy
等级
本版专家分：18503
勋章
Blank
红花 2004年11月 Delphi大版内专家分月排行榜第一
Blank
黄花 2004年10月 Delphi大版内专家分月排行榜第二
可以了。这样:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,Comobj,Excel2000, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  ExcelApp:Variant;  

implementation

{$R *.dfm}


procedure TForm1.Button1Click(Sender: TObject);
var
  chexingshu:integer;
  Excelx1:string;
  Excelx2:string;
  xl,Cell1: olevariant;
  Sum:integer;
begin
        ExcelApp := CreateOleObject( 'Excel.Application' );
        ExcelApp.Caption := '昆明理工大学学生素质综合测评表打印';
        ExcelApp.WorkBooks.Add;
        ExcelApp.WorkSheets[1].Activate;
            ExcelApp.Visible := True;
            ExcelApp.ActiveWindow.Zoom := 75;
       chexingshu:=24;
        excelx2:='a1';
        ExcelApp.Cells[1,1].Value :='昆明理工大学学生素质综合测评表';
        ExcelApp.cells.Item[1, 1].font.size := 26;
        ExcelApp.cells.Item[1, 1].RowHeight := 50;
        ExcelApp.cells.Item[1 , 1].Font.Bold := True;
        ExcelApp.cells.Item[1, 1].HorizontalAlignment := xlCenter;
        ExcelApp.cells.Item[1, 1].font.Name := '黑体';
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  ExcelApp.ActiveWorkbook.SaveAs('c:\1k1.xls');
end;

end.
只看TA 引用 举报 #10得分 150
收起
收藏 回复
tangss

等级：

关注 私信 TA的帖子
vc操作Excel保存 和Excel的退出

公司给了我一个任务，用excel调用模版生成结...所以在读取和写入excel的时候，我使用了安全数组，这样能够将对应的数据一次性从文件中读出或者是写入。  2.关于屏蔽掉最后“确定改变文件”的对话框，用Book的close方

asp excel导入mysql_asp excel导入数据库

GridView导出为Excel后，导出的.xls文件无法作为源文件导入的问题今天有人问了一个导出到Excel的问题，经典的导出代码想来大家也都知道，就是循环读数据，写成一个HTML，然后存为一个.xls文件。可以参考我之前的一篇...

excel

公司给了我一个任务，用excel调用模版生成结...所以在读取和写入excel的时候，我使用了安全数组，这样能够将对应的数据一次性从文件中读出或者是写入。  2.关于屏蔽掉最后“确定改变文件”的对话框，用Book的close方

Excel操作

最近做项目，涉及到了对Excel的操作，那个急啊》。。现在分享下！ 虽然很多东西也是在网上找的资料，为我所用，现在是整理了下的。 首先要导入Excel的com组件using System;using System.Collections.Generic;using...

vc操作Excel

公司给了我一个任务，用excel调用模版生成结...所以在读取和写入excel的时候，我使用了安全数组，这样能够将对应的数据一次性从文件中读出或者是写入。  2.关于屏蔽掉最后“确定改变文件”的对话框，用Book的close方

C#+VBA 操作EXCEL（转）

Excel在日常办公中应用非常广泛，这次我接到一个案子，需要往Excel中写入数据并能够打印出固定格式，前前后后大概花了将近2星期才搞定，现在做一些分享。 一、关于操作Excel的几种方式 我们导出Excel，大抵是有两...

彻底放弃没落的MFC，对新人的忠告！--吃瓜群众围观撕逼

完全没想到10多年后还有人纠结要不要学MFC，我花点时间给新人们一个总结。第1种观点 学习完MFC，你会更理解编程的思想，再学别的语言就更快了。话说小白要去美国学技术，大黑劝他说：“你为什么不先到朝鲜，然后从...

从Excel到datagridview到SQL

基础

各位兄弟，在SDK编程中如果实现窗口分割呢？请问怎么得到一个函数的执行时间，单位毫秒！如何调试asp组件呀。用vc++调试编制的组件怎样画一个箭头？高分请教如何限制程序运行的方法？求助：通过编程DirectX抓屏-----...

我在CSDN参与的3000个帖子

今日偶然翻到，感慨万千 1：申述：版主，是否扣了我的专家分？ 2：100分急求，随机输出十个小写字母，但是，要求这十个字母不相同 3：求Sn=a+aa+aaa+…+aaa…a（n个a）之值 4：数组题 望高手帮忙！...

整理机器时发现，偶在以前参与的一些贴子！特此放上来！

TreeView中如何选中一个父节点同时选中所有的子节点和孙节点。。。----------------------------------------------------------------------------Author:lihonggen0Date:2003-1-20功能：选择Treeview节点下所有...

vb/vb.net开发精粹(6)

C2.exe不能执行是如何...在程序中违反唯一约束条件的写入命令，如何做令程序不自动退出 在程序中违反唯一约束条件的写入命令，如何做令程序不自动退出 对象打开时不允许操作 对象打开时不允许操作 C2.exe不能执行

WEB开发文档2 总结

http://blog.donews.com/lvjiyong/archive/2006/06/29/931071.aspx怎样将后台生成的在内存中的图象显示到客户端Microsoft IE WebControls下载地址如何在DATAGRID中使用JAVASCRIPT脚本控制DataGrid中连接到下一页显示...

com 技术应用

你赶快学习一些OLE的技术吧......”，当时我心里就寻思 ：“开什么玩笑？搭积木方式写程序？再过100年吧......”，但作为一名听话的好学生，我开始在书店里“踅摸”（注1）有关OLE的书籍（注2）。功夫不负有心人，...

Delphi与Word之间的融合技术

问题：Delphi与Word之间的融合技术 ( 积分：0, 回复：325, 阅读：37835 )分类：OLE/Automation ( 版主：g622, satanmonkey ) 来自：yzhshi, 时间：2001-11-18 17:52:00, ID：737517[显示：小字体 | 大字体] ...

CSDN回帖得分大全（近两年）

√vs2005调用dll的时候Initialize()函数返回错误 [VC/MFC ... [VC/MFC 界面] 40 chencheng8095 05-23 00:2911 xianglitian06-10 11:51管理√CFileFind::FindFile 支持通配符么？ [VC/MFC 基础类] 100 wysbk002 05-22

数据库帖子收集

这样的数据列表在存储过程中应该怎么样选择得到？ 请问造成SQL2000服务不能启动的原因有哪些？ sql server中有無類似于if 的函數,即像這樣select if(cancel=1,'cancel','') from sales 这样怎么返回呀！！！！...

Regsvr32（windows注册/卸载组件）的使用方法详细说明

Regsvr32是一个Windows系统的内嵌程序，不仅存在于Windows2000 / XP下，同时也能在Windows98中找到它的身影。它的主要功能就是注册或卸载动态链接库文件(DLL)和嵌入式控件(OCX)， Regsvr32是一个Windows系统的内嵌...

vb/vb.net原创文章精粹（4）

[url=http://www.vbbaike.com/show.asp?id=101410]各位帮忙 找一个w70n5msg.dll 文件[/url] ...id=101409]ＶＢ中如何使用insert语句，插入一条纪录[/url] [url=http://www.vbbaike.com/show...

PPT经常用的115个技巧收藏

1.快速灵活改变图片颜色：利用PowerPoint制作演示文稿...（如果图片工具栏已经自动显示出来则无需此操作）然后点击“图片”工具栏上的“图片重新着色”按钮，在随后出现的对话框中便可任意改变图片中任何颜色。2.增加更

新手对COM的认识及疑惑

新手对COM的认识及疑惑 2003.7.1我对与COM编程、开发、应用的相关问题进行了一段学习、琢磨后，初步形成了以下一些认识及疑惑，...如果不知道 CLSID，则要知道名字（ProgID），如 Excel.Application。2. 开始与 OLE32.D

MS-SQL Server 基础类 - SQL语句

vb/vb.net原创文章精粹（5）

[url=http://www.vbbaike.com/show.asp?id=101470]VB 制作安装程序时，如何让安装时提示的 ...[/url] ...id=101469]帮忙看看程序----提示“多步OLE DB产生错误,请检查每个OLE DB状态值,没有工作被完成”[/url] ...

关于一个用VB编写的PING工具的问题

我在互联网上找到一个用VB编写的程序，是PING一个计算机的IP是否能通的工具，我改了改，使用ADO重数据库中循环读取IP地址，并将测试后的状态写入到数据库，作完后运行是可以测试，但是速度太慢了，每循环测试一个IP...

挖掘Word功能极限——批量打印带照片证件

 经过了解，具体工作要求是，打印一批工作证，员工基本信息来自数据库，包含员工信息的“员工数据库.mdb”中的“员工库”表如图①：员工照片放在e:/photo文件夹里，每位员工的照片文件名和编号相对应。比如张三

VSCode launch.json配置详细教程

主要介绍了vscode 的node.js debugger 的 launch.json 配置详情,本文通过实例代码给大家介绍的非常详细，对大家的学习或工作具有一定的参考借鉴价值，需要的朋友可以参考下

从零基础开始用Python处理Excel数据.pdf

首先学习Python的基础知识，然后使用Python来控制Excel，做数据处理。 Excel使用者、Python爱好者、数据处理人员、办公人员等 第1章 python基础 1.1 什么是python？ 1.2 为什么要学习用Python处理Excel表格？ 1.3 手把手教你安装python程序 1.3.1 下载python 1.3.2 安装python 1.3.3 验证是否安装成功 1.4 安装Python集成开发工具PyCharm 1.4.1 下载 1.4.2 安装 1.5 Python的输入与输出

数学建模30种算法大全

数学建模最常用的30种算法！ 全国大学生数学建模竞赛创办于1992年，每年一届，已成为全国高校规模最大的基础性学科竞赛，也是世界上规模最大的数学建模竞赛。2018年，来自全国34个省/市/区(包括香港、澳门和台湾)及美国和新加坡的1449所院校/校区、42128个队（本科38573队、专科3555队）、超过12万名大学生报名参加本项竞赛。

matlab教程ppt(完整版).pdf

MATLAB信号处理详解 结合MATLAB最新版本系统地介绍信号处理及现代信号处理或者非平稳信号处理(包括信号处理、阵列信号处理、时频分析及高阶谱分析)的基本理论及在工程应用中的一些基本方法；详细地介绍MATlLAB工具箱函数的用法；最后结合一些应用实例，说明基于MATLAB进行分析与设计的方法。 《MATLAB信号处理》首次将信号处理涉及的各种MATLAB工具箱全面加以说明分析，简明扼要地介绍相关领域的基本概念和基本理论，重在讲述有关基本理论和物理背景，避开繁复的推导和中间过程，结合编程应用介绍工具箱函数的功能及用法，并且通过各种应用实例阐述如何利用MATLAB工具箱来解决工程应用问题。

2020年五一赛B题论文

自己做的五一赛论文，代码数据都在附录。本文针对股票投资组合问题进行了研究，建立了投资效用与多目标规划模 型，运用了历史模拟、灰色关联等方法，旨在确定股票投资组合策略。

相关热词 c# 负数补码 c# 读取json c# 画图超出画布判断 c#在注册表下创建个文件 c#中的数组添加元素 c#逆向 c#输出xml文件中元素 c#获取系统盘符 c# 微信发送图片消息 c# 对时间