主页
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.025 c
1-22039
Yuri btr
2001-12-18 10:46
2002.01.08
形式


14-22401
wHammer
2001-11-09 12:56
2002.01.08
那有趣吗?


1-22116
债券
2001-12-19 19:08
2002.01.08
有没有人有线程哈希MD5?


1-22243
Gumbert-Gumbert
2001-12-16 22:22
2002.01.08
如何在Delphi中学习nth的根?


1-22137
AlexandrH_
2001-12-20 08:06
2002.01.08
如何在StringGride中管理焦点。





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