主页
Top.Mail.Ru Yandeks.Metrika
论坛:“主要”;
当前存档:2002.01.08;
下载:[xml.tar.bz2];

向下

将数据传输到Excel工作表单元格 找到类似的分支


Striker   (2001-12-13 07:59) [0]

请告诉我如何将一个string或real类型的变量写入EXCEL表的指定单元格。(我想举个例子)。谢谢你。



perov   (2001-12-13 08:21) [1]

ExcelApplication.Connect; ExcelApplication.Workbooks.Add(“”,0); ExcelWorkbook.ConnectTo(ExcelApplication.ActiveWorkbook); ExcelWorksheet.ConnectTo(ExcelWorkbook.Sheets [1] as _WorkSheet); ExcelWorksheet.Activate; ExcelWorksheet.Cells.Item [j,1] .Value:= j - i; ExcelApplication.Visible [0]:= True;



KIR   (2001-12-13 08:32) [2]

这也是一个值得追赶的问题,以及之后如何正确关闭XL? 然后转移一次(虽然从Excel“I”为我工作,如果我再试一次,那么内存分配错误...



perov   (2001-12-13 08:44) [3]

ExcelApplication.Disconnect;



Striker   (2001-12-13 09:00) [4]

大谢谢家的尝试。



KIR   (2001-12-13 12:02) [5]

> perov
已经写过了
和ExcelApplication.Disconnect,
和ExcelApplication.Quit,
和FreeAndNil(ExcelApplication)......
没有帮助,这是一段代码:

ExcelApplication1.Connect;
ExcelApplication1.WorkBooks.Add(n,0); // n是文件名
ExcelWorkBook1.ConnectTo(ExcelApplication1.ActiveWorkBook);

{program body}

ExcelApplication.WorkBook1.Close;
ExcelApplication1.Disconnect;



perov   (2001-12-13 12:33) [6]

ExcelWorksheet.Disconnect; ExcelWorkbook.Close; ExcelApplication.Disconnect;



Олег Лаукарт   (2001-12-13 13:33) [7]

在Delphi Kingdom中有一些关于使用Excel的文章



Ынс   (2001-12-13 14:32) [8]

//将其添加到模块中
使用ComObj;
// ...
VAR
xlApp:变体;
DataArray:Variant; //二维数组将在这里
rv:真实;
开始
rv:= 10.56568;
xlApp:= CreateOleObject(“Excel.Sheet”); //创建
xlApp.Application.Visible:= True;

xlApp.Application.Cells [1,2] .Value:=“23456346”; //你可以

xlApp.Application.Range [“RealValue1”]。值:= rv; {有可能,因此:“RealValue1” - “细胞”中细胞的名称}

xlApp.Application.Range(“A1:B8”)。值:=“只是一个填充范围的字符串”; {填充一行范围}


DataArray:= VarArrayCreate([0,2,0,2],varVariant); {创建一个类型变量的数组来存储任何值}
DataArray [0,0]:=“数组元素”;
DataArray [1,0]:= 38754; //也是数组元素

{一次性通过引用将整个数组分配给范围......便宜,可靠和实用= - )=特别是当您需要在报告中传输数千个5行的数组时......如果通过for循环执行此操作,报告将长时间生成致命的内容}

xlApp.Application.Range(“A1:C3):= DataArray;

//为后代保存此文件= - )
xlApp.SaveAs(“c:\ docs \ reports \ sample1.xls”);

DataArray:=未分配; //扫踪轨道
xlApp:=未分配; //砰然一声......
结束;



Striker   (2001-12-15 11:06) [9]

我在这里翻找并找到了网站(WWW.afalinasoft.com)。只有Delphi和Excel的交互。



Страницы: 1 整个分支

论坛:“主要”;
当前存档:2002.01.08;
下载:[xml.tar.bz2];

楼上





内存:0.57 MB
时间:0.026 c
1-22043年
哔叽
2001-12-18 19:18
2002.01.08
删除对象


4-22461年
沙阿
2001-10-29 11:08
2002.01.08
LogonUser的问题(ERROR_PRIVILEGE_NOT_HELD)


1-22184年
鳄鱼
2001-12-21 09:44
2002.01.08
也许谁知道?


1-22010年
dorixe
2001-12-17 19:21
2002.01.08
dblclick上的树视图


1-22207年
Delphimun
2001-12-15 10:00
2002.01.08
如何在一个exe中编译多个文件





南非荷兰语 阿尔巴尼亚人 阿拉伯语 亚美尼亚 阿塞拜疆 巴斯克 白俄罗斯 保加利亚语 加泰罗尼亚 简体中文 中国(繁体) 克罗地亚 捷克 丹麦语 荷兰人 英语 爱沙尼亚语 菲律宾人 芬兰 法语
加利亚西语 格鲁吉亚语 德语 希腊语 海地克里奥尔语 希伯来语 印地语 匈牙利 北日耳曼语 印度尼西亚人 爱尔兰语 意大利语 日本性玩偶 韩语 拉脱维亚 立陶宛 马其顿 马来语 马耳他语 挪威语
波斯语 波兰语 葡萄牙语 罗马尼亚 俄语 塞尔维亚 斯洛伐克 斯洛文尼亚 西班牙语 斯瓦希里 瑞典语 泰国人 土耳其 乌克兰 乌尔都语 越南人 威尔士语 意第绪语 孟加拉 波斯尼亚
宿务 世界语 古吉拉特语 豪萨语 苗族 伊博 爪哇 卡纳达语 高棉 老挝 拉丁语 毛利 马拉 蒙古人 尼泊尔 旁遮普 索马里 泰米尔人 泰卢固语 约鲁巴语
祖鲁
英文 Французский Немецкий Итальянский Португальский 俄文 Испанский