--引用--------------------------------------------------
dudu: 下载博客园的程序, 安装配置一下就行了。
--------------------------------------------------------
我是一个普通的幼儿教师，我有许多的梦想，我想要创造奇迹。
东西要试过再发偶搜了N久了也没搜到过，透明我是可以做到了，但不能普通的方法一俩句代码就搞定的，有时偶搜到火到看到垃圾的说法我会骂人的
re: delphi中数据导出到Excel的问题！ aaa[匿名] 2007-01-11 17:52
procedure Tjjb_main.zg_outClick(Sender: TObject);
var
ExcelApp:Variant;
i,j,x:Integer;
begin
ExcelApp:=CreateOleObject('Excel.Application');
ExcelApp.Visible:=True;
//ExcelApp.Caption:=Caption;
ExcelApp.WorkBooks.Add;
i:=zg_dbview.FieldCount;
for j:=0 to zg_dbview.FieldCount-1 do
begin
ExcelApp.Cells[1,j+1].Value:= trim(zg_dbview.Columns.Items[j].Title.Caption);
end;
zg_dbview.DataSource.DataSet.First;
x:=2;
while not zg_dbview.DataSource.DataSet.Eof do
begin
for j:=0 to zg_dbview.FieldCount-1 do
begin
ExcelApp.Cells[x,j+1].NumberFormatLocal:='@'; <----------------设置单元格属性为“文本”
ExcelApp.Cells[x,j+1]:=Trim(zg_dbview.Columns.Items[j].Field.AsString);
end;
x:=x+1;
zg_dbview.DataSource.DataSet.Next;
end;
ExcelApp.ActiveWorkbook.SaveAs(zg_filename.Text); <-------------导出的数据存为对应路径的文件
ExcelApp.Quit;
ShowMessage('导出已成功：请检查文件'+zg_filename.Text);
end;
re: 仅有爱情是不够的（转载） 燕燕 2006-11-12 17:24
看完这个真实的爱情亲情的故事``我好感动哭的一塌糊涂
re: 调用DLL中的窗体 砂砂 2006-10-23 00:29
不需要FreeLibrary吗?会不会造成内存泄漏?
re: (Delphi)Excel的快速导入 leishan0830 2006-04-05 10:13
//设置这一列为 文本列 ，让 "00123" 正确显示， 而不是自动转换为"123"
xlSheet.Columns['C:C'].NumberFormatLocal := '@';
能具体说说这个设置在DELPHI程序里面怎么用吗
或者你能写成函数给我试试吗。
我不能用,谢谢了!
wmode参数值为transparent 是不可能的!
问一声，背景透明用这种方式可以实现么？试验了没有？
还有一个问题，就是我用你的IISManager中的delete（）方法无法删除IIS中的虚拟地址。
你好！
我也是今天刚注册的 不过我的模板怎么不是很好看呢 晕
要你们公司搞一个可以象DUDU老大申请 呵呵
LUCKYJAN
多多联系哦 ！：）