delphi 打开Excel问题 [问题点数:80分,结帖人wujinyuan]

Bbs3
本版专家分:744
结帖率 100%
Bbs3
本版专家分:744
Bbs7
本版专家分:15348
Blank
红花 2011年11月 Delphi大版内专家分月排行榜第一
2011年10月 Delphi大版内专家分月排行榜第一
Blank
黄花 2014年4月 Delphi大版内专家分月排行榜第二
2011年12月 Delphi大版内专家分月排行榜第二
Blank
蓝花 2012年1月 Delphi大版内专家分月排行榜第三
2011年9月 Delphi大版内专家分月排行榜第三
Bbs3
本版专家分:744
Bbs7
本版专家分:15348
Blank
红花 2011年11月 Delphi大版内专家分月排行榜第一
2011年10月 Delphi大版内专家分月排行榜第一
Blank
黄花 2014年4月 Delphi大版内专家分月排行榜第二
2011年12月 Delphi大版内专家分月排行榜第二
Blank
蓝花 2012年1月 Delphi大版内专家分月排行榜第三
2011年9月 Delphi大版内专家分月排行榜第三
Bbs7
本版专家分:15348
Blank
红花 2011年11月 Delphi大版内专家分月排行榜第一
2011年10月 Delphi大版内专家分月排行榜第一
Blank
黄花 2014年4月 Delphi大版内专家分月排行榜第二
2011年12月 Delphi大版内专家分月排行榜第二
Blank
蓝花 2012年1月 Delphi大版内专家分月排行榜第三
2011年9月 Delphi大版内专家分月排行榜第三
Bbs3
本版专家分:744
Bbs3
本版专家分:744
Bbs5
本版专家分:3560
Delphi 操作 Excel 问题
如何在<em>excel</em> 单元格(cell)中实现换行,不是自动,而是由代码决定在哪个字符换行。
Delphi访问Excel的问题
Delphi中用ADO能直接访问Excel文件吗?李维的书上是直接连的,可是我怎么连不上呢?Connection的Connected属性一设为True就提示xls为不可识别的数据库,该怎样才能连上呢?请指教,谢谢!
delphi 控制 excel问题
假设有个 <em>excel</em> 文件,c:\test.xlsrnrn该文件中有若干 sheet: sheet1、sheet2、...... 、sheet100rnrn其中有的sheet中有数据,有的没有rnrn如何判断出来哪个sheet中有数据,如果有数据,则将其数据读入出来rnrn谢谢
delphi和Excel的问题
用<em>delphi</em>来新建Excel的时候,如果<em>打开</em>了Excel程序,就会把<em>打开</em>的Excel中的内容带入到用<em>delphi</em>程序所生成的Excel表中,也就是说如果用Excel<em>打开</em>了一个Excel文档,同时用<em>delphi</em>编写的程序生成一个Excel文档,<em>delphi</em>生成的Excel文档中就会带有<em>打开</em>的那个Excel文档中的内容或者格式(比如单元格大小等等)。rn请问怎么解决??
Delphi中Excel的问题
我用Delphi中的Excel去<em>打开</em>一个指定路径的Excel文件时,第一次能成功<em>打开</em>,而以后就会失败。rn程式如下:rnrnfilename:='D:\test.xls';rnExcelApplication1.Connect ;rnExcelApplication1.Visible[0] :=True;rnExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks.Open(filename,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,0)) ;rnExcelWorkSheet1.ConnectTo(ExcelWorkBook1.Activesheet as _Worksheet);rnrnrn不知错在那里,谢谢。
Delphi 操作EXCEL问题
我用DELPHI导出数据集到EXCEL时可以成功导出。其中有一行如下所示是导出单元格名称的,不是单元格里面的值rnExcelApp.Cells[vRow,1].name:= ADOStoredProc1.FieldValues['AllName'];rn也是成功的,没有<em>问题</em>,rn现在我要把导出的EXCEL再导入到一个数据集里面,F8跟踪走到如下一行时,报有错误rnADOQuery2.FieldValues['AllName']:= Excel.worksheets[1].Cells[vRow,1].Name;rn错误提示是:error 800A03EC rn哪位给指点一下~~ 谢了
delphi操作Excel的问题
我想用<em>delphi</em>来读取一个Excel表格,目的是想程序把从Excel表格中读取的数据,逐条插入数据库中,<em>问题</em>是,我怎样才能逐条获取Excel的数据呢?rn用ExcelQueryTable能行吗?具体怎样用
请教delphiexcel问题
我想在一个窗口放一个按钮,按按钮后<em>打开</em><em>excel</em>文件,rn再按就要判断这个文件是否处于<em>打开</em>状态,如果是就把那个窗口弹出,rn如果没<em>打开</em>就<em>打开</em>,而且<em>打开</em>的<em>excel</em>文件如果退出时,rn会让我的应用程序知道,该怎么写呢?rn请高手们多多指点,多谢多谢!!rn
Delphi调用EXCEL问题?
哪位前辈能提供一个Delphi调用EXCEL并向里面写入数据的例子啊,rn最好是不用Delphi控件,真接加入ComObj单元,然后用代码完成. rn急,,十分感谢,,我只有这最后的50分啦,,全贡上!!!:(
delphi连接excel问题
我用ADO成功连接了EXCEL。但运行程序时却出错。说“JET OLEDB 4.0不能<em>打开</em>数据库(这里连接的是EXCEL),文件被独占使用......”之类的。rn大哥们,这是什么回事啊?还有我<em>打开</em>连了DELPHI的那个<em>excel</em>文件也说打不开。关了<em>delphi</em>才打得开。rn这样应该就是<em>delphi</em>独占了它了吧?
delphi控制excel问题
EXCEL中选择的区域,如果知道选择的行列是从哪里到哪里?DELPHI的<em>excel</em>xp.pas中的worksheet对象好像没有selection对象,请问能如何解决?
delphiexcel问题
主要是想请一下大家一下<em>excel</em>和数据库互相交互用什么第3方控件比较好?
delphi中控制Excel的问题~
怎么设置单元格的文本居中啊~rn 例如:rn ..。rn ExcelApp := CreateOleObject('Excel.Application');rn ExcelApp.workBooks.Add;rn sheet := ExcelApp.workBooks[1].workBooks[1];rn ...rn 我现在怎么让sheet.cells[1,1]中的文本居中呢??不知道用哪个属性?
关于excel打开问题
请问一下,怎么样才能实现直接<em>打开</em>一个包含EXCEL文件的网页,而不出现对话框(就是提示<em>打开</em>或者保存那种)
打开Excel问题
win7系统每次开机后第一次<em>打开</em><em>excel</em> 2007文件,报向程序发送命令时出现<em>问题</em>的错误,试过许多方法都没有解决,请指点。。。
js打开excel问题
我在做网页的时候需要<em>打开</em><em>excel</em> 如下代码:rn[code=JScript]rnfunction openexc(fname)rn var ExcelIDrn try rn ExcelID = new ActiveXObject ( "Excel.Application" );rn rn catch(e) rn alert( e+"要打印该表,您必须安装Excel电子表格软件,同时浏览器须使用“ActiveX 控件”,您的浏览器须允许执行控件。 请点击【帮助】了解浏览器设置方法!");rn return "";rn rn var kwb=ExcelID.WorkBooks.Open(fname);rn ksheet=kwb.ActiveSheet;rn ExcelID.visible = true;rnrn[/code]rn在测试过程中,如果碰上<em>excel</em>是以中文命名的话,那就打不开了,如果以英文或数字命名的话就正常能<em>打开</em>,这是为什么呢?
打开Excel的问题
我用下面的代码<em>打开</em>一个Excel文件,会出现错误提示 "定义了过多字段"rn请问是什么意思.文件中只有下面的这几列rn日期 编号 频道 播出时间 广告中文名称&版本描述 长度 语言 备注rnrnif(this.progressBar1.Value!=0)rn this.progressBar1.Value=0;rn string strConn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+this.textBox_LLFileName.Text+";Extended Properties=Excel 8.0";rnrn OleDbConnection llConnection=new OleDbConnection(strConn);rn llConnection.Open();rn DataTable dt=llConnection.GetOleDbSchemaTable(OleDbSchemaGuid.Tables,new object[]null,null,null,"TABLE");rn bool y=false;rn foreach(DataRow dr in dt.Rows)rn rn //MessageBox.Show(dr["TABLE_NAME"].ToString ().Trim());rn if(dr["TABLE_NAME"].ToString().Trim()=="新广告表$")rn rn y=true;rn break;rn rn rn rnrn if(!y)rn rn MessageBox.Show("新广告表的文件的格式不对,没有\"新广告表\"");rn return;rn rn rn string name="[新广告表$]";rn string strSelect="SELECT * FROM "+name;rn OleDbDataAdapter llAdapter=new OleDbDataAdapter(strSelect,llConnection);rn OleDbCommandBuilder llBuilder=new OleDbCommandBuilder(llAdapter);rn DataSet llDataSet=new DataSet();rn llAdapter.Fill(llDataSet,name);rn DataTable llTable=llDataSet.Tables[0];rn int llRo=llTable.Rows.Count;//监察员资料的条数rn //MessageBox.Show(llDataSet.Tables[0].Rows.Count.ToString ());
C#打开excel问题
我使用如下语句<em>打开</em>一个<em>excel</em>文件:rnew = ep.Workbooks.Open(@"d:\WHOLE.xls",MissingValue,rn MissingValue,MissingValue,MissingValue,rn MissingValue,MissingValue,MissingValue,rn MissingValue,MissingValue,MissingValue,rn MissingValue,MissingValue,MissingValue,rn MissingValue);rn<em>问题</em>是,程序执行后我只是在任务管理器中看到有<em>excel</em>在执行,但是在前端却没有<em>打开</em>文件界面。这是怎么回事啊,是不是还有什么语句要把<em>excel</em> show出来啊?
EXCEL问题打开速度慢
rn<em>打开</em>WORD一切正常,速度也快rn就是<em>打开</em>EXCEL时,进入界面后总要等待至少20几秒(显示就绪),然后才<em>打开</em>(新建一个也是一样的)rn在“程序”--OFFICE EXCEL<em>打开</em>很快 ‘文件’--》‘<em>打开</em>文件’rnrn重装OFFICE也是一样的效果,磁盘碎片也整理了,应该不是病毒的原因rn其他程序运行正常rn 有没有人遇见过这个<em>问题</em>,急等
jacob 打开excel问题
我用Jbiulder9的swing开发了应用程序,在网上调用。JACOB<em>打开</em><em>excel</em>文件在本地测试时候很正常,但网上调用时候,只<em>打开</em>了<em>excel</em>环境,没<em>打开</em>具体的文件。请高手指点。
delphi汇出EXCEL的问题
汇出时提示"list index out of bounds(8)",但汇出正常(即<em>excel</em>有正确数据)
delphi控制excel问题
我想控制<em>excel</em>工作表中第一行每个单元格的数据为左对齐,而且rn每个单元格中的数据都无空格。rn rn例如:—————— -------------rn | 单 位| 结果为: |单位 |rn —————— --------------
Delphi与Excel问题
各位大侠:rn我已生成了Excel文件了,怎样在Delphi中把Excel文件游览出来而且打印出来.
vb打开excel问题
Public DataExcelFile As Excel.ApplicationrnPublic DataWorkBook As Excel.WorkbookrnPublic DataBaseSheet As Excel.WorksheetrnPublic DataInputSheet As Excel.WorksheetrnPublic DataOutput1Sheet As Excel.WorksheetrnPublic DataOutput2Sheet As Excel.WorksheetrnPublic DataOutput3Sheet As Excel.WorksheetrnPublic DataOutput4Sheet As Excel.Worksheetrn。。。。。rnrn很长的代码 前几行是这样的 一运行就提示说“用户定义类型未定义” 我确定已经引用了“Microsoft Office 12.0 Object Library” 为什么还出现这种情况啊rnwin7+VB6.0+OFFICE 07
excel打开慢的问题
为什么<em>excel</em><em>打开</em>特别慢,而word就正常?
IE打开EXCEL的问题
在JSP页面中,<em>打开</em>EXCEL文件时用如下命令,rnffffffrn但显示的全是乱码.rn在
打开Excel的问题
Excel.ApplicationClass myExcel =new Excel.ApplicationClass();rnmyExcel.Application.Workbooks.Add(true);rnmyExcel.Visible=true;rn执行后没有用行Excel,但在进程中<em>打开</em>了Excel.exe,请问这是什么回事?
WebBrowser 打开excel问题
我用WebBrowser加载Excel时出错 "未知名称。 (异常来自 HRESULT:0x80020006 (DISP_E_UNKNOWNNAME))”rn出错代码 axWebBrowser1_NavigateComplete2事件中的rnObject oApplication = o.GetType().InvokeMember("Application", BindingFlags.GetProperty, null, oDocument, null);rn有谁遇到过这样的<em>问题</em>rn或那位有能运行的程序给借鉴一下rn本人邮箱yefengsheng105@163.comrn万分感谢!正面是全部代码rn public Form1()rn rn InitializeComponent();rn this.axWebBrowser1.NavigateComplete2 += new AxSHDocVw.DWebBrowserEvents2_NavigateComplete2EventHandler(this.axWebBrowser1_NavigateComplete2);rn this.Load += new System.EventHandler(this.Form1_Load);rn this.Closed += new System.EventHandler(this.Form1_Closed);rnrn rnrn private void Form1_Load(object sender, System.EventArgs e)rn rn button1.Text = "Browse";rn openFileDialog1.Filter = "Office Documents(*.doc, *.xls, *.ppt)|*.doc;*.xls;*.ppt";rn openFileDialog1.FilterIndex = 1;rnrn rnrn public void Form1_Closed(object sender, System.EventArgs e)rn rn oDocument = null;rn rnrn public void axWebBrowser1_NavigateComplete2(object sender, AxSHDocVw.DWebBrowserEvents2_NavigateComplete2Event e)rn rn tryrn rn Object o = e.pDisp;rn Object oDocument = o.GetType().InvokeMember("Document", BindingFlags.GetProperty, null, o, null);rn Object oApplication = o.GetType().InvokeMember("Application", BindingFlags.GetProperty, null, oDocument, null);rn //Object oName = o.GetType().InvokeMember("Name",BindingFlags.GetProperty ,null,oApplication,null); rnrn Microsoft.Office.Interop.Excel.Application eApp = (Microsoft.Office.Interop.Excel.Application)oApplication;//rn rn catch (Exception ex)rn rn MessageBox.Show(ex.Message);rn rn rnrnrn private void button1_Click(object sender, EventArgs e)rn rnrn String strFileName;rnrn //Find the Office document.rn openFileDialog1.FileName = "";rn openFileDialog1.ShowDialog();rn strFileName = openFileDialog1.FileName;rnrn //If the user does not cancel, open the document.rn if (strFileName.Length != 0)rn rn Object refmissing = System.Reflection.Missing.Value;rn oDocument = null;rn axWebBrowser1.Navigate(strFileName, ref refmissing, ref refmissing, ref refmissing, ref refmissing);rn rnrn rnrn
c#打开excel问题
using System;rnusing System.Collections.Generic;rnusing System.ComponentModel;rnusing System.Data;rnusing System.Drawing;rnusing System.Text;rnusing System.Windows.Forms;rnusing System.Data.OleDb;rn//using Excel;rnusing Microsoft.Office.Interop;rn//using Microsoft.Office.Interop.Excel;rnusing System.Reflection;rnrnnamespace WindowsApplication1rnrn public partial class Form1 : Formrn rn public Form1()rn rn InitializeComponent();rn rnrn private void button2_Click(object sender, EventArgs e)rn rn Excel.Workbook wb = ThisApplication.Workbooks.Open( rn "d:\\data.xls", rn Type.Missing, Type.Missing, Type.Missing, Type.Missing, rn Type.Missing, Type.Missing, Type.Missing, Type.Missing, rn Type.Missing, Type.Missing, Type.Missing, Type.Missing, rn Type.Missing, Type.Missing);rnrnrn rn rnrnrnrn以上是msdn的帮助,我放到VS2005里运行说缺少命名空间,各位高手帮我看看什么<em>问题</em>,谢谢!
Excel 打开及保存的问题
rn//Excel2000 <em>打开</em>文件的方法为rnxlWorkbook = xlApp.Workbooks.Open(fileName,rnType.Missing,Type.Missing,Type.Missing,Type.Missing,Type.Missing,rnType.Missing,Type.Missing,Type.Missing,Type.Missing,Type.Missing,rnType.Missing,Type.Missing);rnrn//Excel2003 <em>打开</em>文件的方法为rnrnxlWorkbook = xlApp.Workbooks.Open(fileName,rnType.Missing,Type.Missing,Type.Missing,Type.Missing,rnType.Missing,Type.Missing,Type.Missing,Type.Missing,rnType.Missing,Type.Missing,Type.Missing,Type.Missing,rnType.Missing,Type.Missing);rnrn它们的参数个数不相同,怎样才能在目标机器上实现可调用 Excel2000,Excel2003或其它版本的Excel<em>打开</em>Excel文件?rnrn还有 xlApp.Workbooks.SaveAs() 方法也是参数不同,又如何解决。rn
excel不能打开问题
我重装了几遍office,可是word等都可以<em>打开</em>正常使用,唯独<em>excel</em>根本打不开,总是报资源不足,我的虚拟内存已经设的很大了。我用的是win98第二版,我能在不破坏原有软件的基础上修复win98系统吗?
Excel文档打开问题
我们这有一台电脑安装的OFFICE2000,刚装上时没有出现什么<em>问题</em>,但最近不知为何文档里的内容突然就不见了,只剩下空白的工作薄.还有一台电脑也是Excel文档,不知为何在哪台电脑上<em>打开</em>时显示的是灰色背景,没有内容显示.但把哪份文件拷到别的电脑上时,<em>打开</em>能正常显示.但别的文档<em>打开</em>时,却能正常显示.开始以为是OFFICE有<em>问题</em>但重装过后,还是老样子.不知是什么原因.请各位帮忙.
打开EXCEL模版问题?
Excel.Workbook workBook = app.Workbooks.Open(templetFile,missing,missing,missing,missing,missing,rn missing,missing,missing,missing,missing,missing,missing);rnrn错误 1 “Open”方法没有采用“13”个参数的重载 rnrnrn1using System;rn 2using System.IO;rn 3using System.Data;rn 4using System.Reflection;rn 5using System.Diagnostics;rn 6using cfg = System.Configuration;rn 7//using Excel;rn 8rn 9namespace ExcelHelperTestrn 10rn 11 /**//// rn 12 /// 功能说明:套用模板输出Excel,并对数据进行分页rn 13 /// 作 者:Lingyun_krn 14 /// 创建日期:2005-7-12rn 15 /// rn 16 public class ExcelHelperrn 17 rn 18 protected string templetFile = null;rn 19 protected string outputFile = null;rn 20 protected object missing = Missing.Value;rn 21rn 22 /**//// rn 23 /// 构造函数,需指定模板文件和输出文件完整路径rn 24 /// rn 25 /// Excel模板文件路径rn 26 /// 输出Excel文件路径rn 27 public ExcelHelper(string templetFilePath,string outputFilePath)rn 28 rn 29 if(templetFilePath == null)rn 30 throw new Exception("Excel模板文件路径不能为空!");rn 31rn 32 if(outputFilePath == null)rn 33 throw new Exception("输出Excel文件路径不能为空!");rn 34rn 35 if(!File.Exists(templetFilePath))rn 36 throw new Exception("指定路径的Excel模板文件不存在!");rn 37rn 38 this.templetFile = templetFilePath;rn 39 this.outputFile = outputFilePath;rn 40rn 41 rn 42rn 43 /**//// rn 44 /// 将DataTable数据写入Excel文件(套用模板并分页)rn 45 /// rn 46 /// DataTablern 47 /// 每个WorkSheet写入多少行数据rn 48 /// 行索引rn 49 /// 列索引rn 50 /// WorkSheet前缀名,比如:前缀名为“Sheet”,那么WorkSheet名称依次为“Sheet-1,Sheet-2”rn 51 public void DataTableToExcel(DataTable dt,int rows,int top,int left,string sheetPrefixName)rn 52 rn 53 int rowCount = dt.Rows.Count; //源DataTable行数rn 54 int colCount = dt.Columns.Count; //源DataTable列数rn 55 int sheetCount = this.GetSheetCount(rowCount,rows); //WorkSheet个数rn 56 DateTime beforeTime; rn 57 DateTime afterTime;rn 58 rn 59 if(sheetPrefixName == null || sheetPrefixName.Trim() == "")rn 60 sheetPrefixName = "Sheet";rn 61rn 62 //创建一个Application对象并使其可见rn 63 beforeTime = DateTime.Now;rn 64 Excel.Application app = new Excel.ApplicationClass();rn 65 app.Visible = true;rn 66 afterTime = DateTime.Now;rn 67rn 68 //<em>打开</em>模板文件,得到WorkBook对象rn 69 Excel.Workbook workBook = app.Workbooks.Open(templetFile,missing,missing,missing,missing,missing,rn missing,missing,missing,missing,missing,missing,missing);
VB打开Excel的问题!
请问我想用VB<em>打开</em>做好的EXCEL时,我想<em>打开</em>的是sheet2用VB怎么做!rn 还有就是用SQL语句怎么写返回一个数据库的所有表名!rn 谢谢大家了!!!
EXCEL打开问题
我装了VS.NET 2005 之后 每次<em>打开</em>EXCEL 表都会提示 正在配置 microsoft visual studio 2005 team suite -CHS 真的很麻烦 rn该如何解决啊!?
RESPONSE打开EXCEL问题
参考网上某位前辈的代码,但是出现一个<em>问题</em>。 rn第一次执行<em>excel</em>生成的时候,出来对话框[<em>打开</em>][保存][取消],不管点[<em>打开</em>]还是[保存],就卡在download画面了(就是一个文件飞阿飞的)。要点取消,然后再次生成的时候,才能正常的[<em>打开</em>]或者[保存],请问是什么原因? rn如果加上<em>excel</em>.Visible = true; ,这个<em>问题</em>可以解决,但是不管是[<em>打开</em>]还是[保存],画面都会闪一下的,不想要这个效果。 rnrn以下是部分代码: rn public static void OutputExcel(DataView dv, string str) rn rn //dv为要输出到Excel的数据,str为标题名称 rn GC.Collect(); rn Application <em>excel</em>;// = new Application(); rn int rowIndex = 4; rn int colIndex = 1; rn rn _Workbook xBk; rn _Worksheet xSt; rn <em>excel</em> = new ApplicationClass(); rn xBk = <em>excel</em>.Workbooks.Add(true); rn xSt = (_Worksheet)xBk.ActiveSheet; rnrn // rn //取得表格中的数据 rn //(代码省略..) rn //显示效果 rn [color=#FF0000]<em>excel</em>.Visible = true; [/color]rn rn //xSt.Export(Server.MapPath(".")+"\\"+this.xlfile.Text+".xls",SheetExportActionEnum.ssExportActionNone,Microsoft.Office.Interop.OWC.SheetExportFormat.ssExportHTML); rn xBk.SaveCopyAs(Server.MapPath(".") + "\\" + this.xlfile.Text + ".xls"); rn ds = null; rn xBk.Close(false, null, null); rn rn <em>excel</em>.Quit(); rn System.Runtime.InteropServices.Marshal.ReleaseComObject(xBk); rn System.Runtime.InteropServices.Marshal.ReleaseComObject(<em>excel</em>); rn System.Runtime.InteropServices.Marshal.ReleaseComObject(xSt); rn xBk = null; rn <em>excel</em> = null; rn xSt = null; rn GC.Collect(); rn string path = Server.MapPath(this.xlfile.Text + ".xls"); rn rn System.IO.FileInfo file = new System.IO.FileInfo(path); rn Response.Clear(); rn Response.Charset = "GB2312"; rn Response.ContentEncoding = System.Text.Encoding.UTF8; rn // 添加头信息,为"文件下载/另存为"对话框指定默认文件名 rn Response.AddHeader("Content-Disposition", "attachment; filename=" + Server.UrlEncode(file.Name)); rn // 添加头信息,指定文件大小,让浏览器能够显示下载进度 rn Response.AddHeader("Content-Length", file.Length.ToString()); rn rn // 指定返回的是一个不能被客户端读取的流,必须被下载 rn Response.ContentType = "application/ms-<em>excel</em>"; rn rn // 把文件流发送到客户端 rn Response.WriteFile(file.FullName); rn // 停止页面的执行 rn rn Response.End(); rn rn
excel客户端打开问题
function printV()rnrn var ExcelApp = new ActiveXObject("Excel.Application");rn var ExcelBook;rn var ExcelSheet = new ActiveXObject("Excel.Sheet");rn str = "TradeState.xls";rn ExcelApp.Visible = true;rn ExcelBook = ExcelApp.Workbooks.Open(str);rn ExcelSheet = ExcelBook.Worksheets(1);rn ExcelSheet.PrintPreview();rn ExcelBook.Close(True);rn ExcelApp.Quit();rnrnrn 假设TradeState.xls是服务器中已存在的<em>excel</em>文件rn 以上是我打印预览的代码,可是我在客户端执行时,有的客户端可以正常运行打印预览,有的客户端执行到var ExcelApp = new ActiveXObject("Excel.Application");时就报错.rnrn 我在服务器端加了权限,是不是如果权限加的不正确,在客户机运行new时就会出错,但我的情况是有的客户机正常,有的出错,郁闷中.....................
excel无法打开问题
我用老猛上的一个示例想<em>打开</em><em>excel</em>,可代码执行后为什么<em>excel</em>一点反应也没。(我的office为2000,不知道有没有影响)代码如下,那位帮忙看一下,什么地方不对rnPrivate Function CreaTable() As DataTablern Dim dt As New DataTable()rn dt.Columns.Add("列1", GetType(String))rn dt.Columns.Add("列2", GetType(Integer))rn dt.Columns.Add("列3", GetType(String))rn dt.Columns.Add("列4", GetType(String))rn Dim row, row1 As DataRowrn row = dt.NewRow()rn row!列1 = "行1"rn row!列2 = 1rn row!列3 = "d"rn row!列4 = "a"rn dt.Rows.Add(row)rn row1 = dt.NewRow()rn row1!列1 = "行2"rn row1!列2 = 12rn row1!列3 = "b"rn row1!列4 = "c"rn dt.Rows.Add(row1)rn Return dtrnEnd Functionrnrn'2.将表中的内容导出到ExcelrnrnDim xlApp As New Excel.Application()rnDim xlBook As Excel.WorkbookrnDim xlSheet As Excel.WorksheetrnDim rowIndex As Integer = 1rnDim colIndex As Integer = 0rnxlBook = xlApp.Workbooks().AddrnxlSheet = xlBook.Worksheets("sheet1")rnrnDim Table As New DataTable()rnTable = CreaTable()rnrn'将所得到的表的列名,赋值给单元格rnrnDim Col As DataColumnrnDim Row As DataRowrnFor Each Col In Table.Columnsrn colIndex = colIndex + 1rn xlApp.Cells(1, colIndex) = Col.ColumnNamernNextrnrn'得到的表所有行,赋值给单元格rnrnFor Each Row In Table.Rowsrn rowIndex = rowIndex + 1rn colIndex = 0rn For Each Col In Table.Columnsrn colIndex = colIndex + 1rn xlApp.Cells(rowIndex, colIndex) = Row(Col.ColumnName)rn NextrnNextrnrnWith xlSheetrn .Range(.Cells(1, 1), .Cells(1, colIndex)).Font.Name = "黑体"rn '设标题为黑体字rn .Range(.Cells(1, 1), .Cells(1, colIndex)).Font.Bold = Truern '标题字体加粗rn .Range(.Cells(1, 1), .Cells(rowIndex, colIndex)).Borders.LineStyle = 1rn '设表格边框样式rnEnd WithrnrnWith xlSheet.PageSetup rn .LeftHeader = "" & Chr(10) & "&""楷体_GB2312,常规""&10公司名称:" ' & Gsmcrn .CenterHeader = "&""楷体_GB2312,常规""公司人员情况表&""宋体,常规""" & Chr(10) &_rn "&""楷体_GB2312,常规""&10日 期:"rn .RightHeader = "" & Chr(10) & "&""楷体_GB2312,常规""&10单位:"rn .LeftFooter = "&""楷体_GB2312,常规""&10制表人:"rn .CenterFooter = "&""楷体_GB2312,常规""&10制表日期:"rn .RightFooter = "&""楷体_GB2312,常规""&10第&P页 共&N页"rnEnd WithrnxlApp.Visible = Truern
打开excel表的问题
我想问一下怎样能够<em>打开</em>一个<em>excel</em>表,并运行一个叫a 的宏,关键是运行宏?
webbrower打开excel问题
环境:WIN7 64bit; Visual Studio 2010 (32bit); 公司电脑没法更改注册表及安装控件rnrn之前用datagridview控件实现对access和<em>excel</em>的浏览及修改、保存操作,没有<em>问题</em>。rn现因为几张<em>excel</em>出现格式的<em>问题</em>,利用datagridview控件感觉并不方便,因此想改变方式,网上搜寻后发现在不安装其他插件的情况下,也只能用webbrower在form里<em>打开</em><em>excel</em>。现有如下两<em>问题</em>:rnrn1.想在WebBrowser1里显示xls文件(链接为Path),采用: WebBrowser1.Navigate(Path, False)后,rn WebBrowser1里出现"Navigation to the webpage was canceled." 该<em>excel</em>文件直接在外部弹出。尝试在浏览器(IE)里直接复制该链接回车,仅能出现文件下载对话框。rn rn2. 采用该方法能否进行修改、保存的操作?
javascript打开excel问题
现在想用javascript<em>打开</em><em>excel</em>rn查了以前的帖子,用了以下的代码rnvar xls = new ActiveXObject("Excel.Application");rnxls.visible = true;//false;rnxls.workbooks.open("<em>excel</em> 文件路径");rnrn但没次一执行就报错,说对象不能生成rn不知道<em>问题</em>出在那,是不是要参照什么对象?(本人参照过microsoft <em>excel</em> 9.0 object library 但不行)rn
打开excel文件的问题
源<em>excel</em>文件各个字段没有定义字段名称,用ado<em>打开</em>显示在datagrid中,第一条纪录的各个字段值就成了该列字段的名称,请问有没有什么好方法能够区分第一行是否是有效的数据行,谢谢
ie打开excel问题
怎么我在自己的jsp页面里用window.open("XX.xls")<em>打开</em><em>excel</em>文件时,出现了一大堆乱码.rn而不是提示下载xls文件,然后用<em>excel</em><em>打开</em>所要的文件?
打开excel问题。急!!
我想在页面里点击按钮显示一个本机器上的<em>excel</em>rn但就是没有显示rn任务管理器里还有<em>excel</em>的进程rn源码如下:rn Dim ExcelApp As Excel.Application = New Excel.ApplicationClassrn Dim str As String = "C:\1.xls"rn Dim ExcelWorkBook As Excel.Workbook = ExcelApp.Workbooks.Open(str, Missing, Missing, Missing, Missing, Missing, Missing, Missing, Missing, Missing, Missing, Missing)rn ExcelApp.Visible = Truern Dim sheet As Excel.Worksheet = ExcelWorkBook.Worksheets.Item(1)rn sheet.Visible = Truern分不多了,请各位高手指点!
delphi打开excel后的等待和注销
1。建立一个<em>excel</em>对象rnExcelApplication := CreateOleObject('Excel.Application');rnExcelApplication.Workbooks.Open ('c:\abc.xls');rnExcelApplication.Visible := True;rn***希望程序停在此处等待***rnrnshowmessag('Excel Close')rnrn<em>打开</em>Excel后希望程序停在***处,待关闭Excel后再运行showmessag('Excel Close'),现在是<em>excel</em>启动完不等关闭就运行showmessag('Excel Close'),如何实现?rnrn2.rn ExcelApplication.quit;rn ExcelApplication:=Unassigned;rn这样是否彻底退出Excel了?可是为何在任务管理器中还有Excel进程?(我没有手工<em>打开</em>Excel)rnrn谢谢!rn
delphi中Tchart怎样在Excel中打开
<em>delphi</em>中Tchart怎样在Excel中<em>打开</em>
delphi如何调用打开excel
<em>delphi</em>如何调用<em>打开</em><em>excel</em>表
如何用DELPHI如何打开EXCEL文件?
-
delphi打开excel如何读取公式的结果?
例如,我有一份Excel,表格中G列=D列+E列+F列,公式是:=D1+E1+F1。rn比如计算出来的结果是100,那么我用Excel控件导入这份Excel,如何得到这个值?
用DELPHI打开EXCEL文件例子。斑竹
unit UMain;rnrninterfacernrnusesrn Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,rn Db, DBTables, StdCtrls, Grids, DBGrids,Excel97,Comctrls,OleCtnrs,ComObj;rnrntypern TForm1 = class(TForm)rn DBGrid1: TDBGrid;rn Button1: TButton;rn Button2: TButton;rn DataSource1: TDataSource;rn Table1: TTable;rn procedure Button1Click(Sender: TObject);rn procedure Button2Click(Sender: TObject);rn procedure FormClose(Sender: TObject; var Action: TCloseAction);rn privatern Private declarations rn publicrn XlsApp,XlsSheet,XlsWBk : Variant;rn Public declarations rn end;rnrnvarrn Form1: TForm1;rnrnimplementationrnrn$R *.DFMrnrnprocedure TForm1.Button1Click(Sender: TObject);rnvarrn I,J : integer;rnbeginrn if VarIsEmpty(XlsApp) thenrn XlsApp := CreateOleObject('Excel.Application');rnrn XLsApp.Workbooks.Add;rn XlsSheet := XLsApp.Worksheets['Sheet1'];rnrn for I := 0 to Table1.Fields.Count - 1 dorn beginrn XlsSheet.Cells[3,I + 1] := dbgrid1.Columns[I].Title.Caption;rn end;rnrn Table1.first;rn for J := 0 to Table1.RecordCount - 1 dorn beginrn for I := 0 to Table1.Fields.Count - 1 dorn beginrn XlsSheet.Cells[J + 4,I + 1] := Table1.Fields[I].AsString;rn end;rn Table1.Next;rn end;rnrn XlsApp.Visible := true;rnend;rnrnprocedure TForm1.Button2Click(Sender: TObject);rnvarrn I,J : integer;rn TxtFile : TextFile;rn TmpString : String;rnbeginrn tryrn if VarIsEmpty(XlsApp) thenrn XlsApp := CreateOleObject('Excel.Application');rn XlsSheet := XlsApp.workbooks.open('c:\my documents\book3.xls');rnrn AssignFile(TxtFile,'C:\My Documents\Test.txt');rn Rewrite(TxtFile);rn tryrn for I := 3 to 21 dorn beginrn TmpString := '';rn for J := 1 to 5 dorn beginrn TmpString := TmpString + XlsSheet.ActiveSheet.Cells[I,J].Text + '¦';rn end;rn Writeln(TxtFile,Tmpstring);rn end;rn finallyrn CloseFile(TxtFile);rn end;rn XlsApp.Visible := true;rn exceptrn XlsSheet.close;rn XlsApp.Application.quit;rn XlsApp := Unassigned;rn XlsSheet := Unassigned;rn end;rnend;rnrnprocedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);rnbeginrn if not VarIsEmpty(XlsApp) thenrn beginrn XlsApp.DisplayAlerts := True; // 7Discard unsaved files....rn tryrn XlsApp.Application.Quit;rn exceptrn end;rn end;rnend;rnrnend.rn rnrn
Delphi 打开Excel表的方法演示.rar
Delphi <em>打开</em>已有的Excel表,本例子可学习Delphi中的CreateOleObject对象中的Excel.Application的使用方法,用此方法可对Excel文件进行简单的操作,代码初始化如下:   begin    try    if f<>'' then    begin    ExcelID:=CreateOleObject('Excel.Application' );    ExcelID.Visible := True;    ExcelID.WorkBooks.Open(f);//添加ComObj单元    end    else    showmessage('请选择Excel文件的路径');    except    showmessage('<em>打开</em>的不是Excel文件');    end;   end;   详细情况请下载本源码。
Delphi能不能象打开本地数据库一样打开Excel啊?
因为有Excel files驱动程序在,我想应该能的吧.可是有很多<em>问题</em>.rn哪位能帮在下具体说一下正常的设置应该是什么样的?
delphi打开EXCEL的一个问题!希望大家帮下!
代码:rn FExcel:= CreateOleObject('Excel.Application');rn ……rn ……rn FExcel.Visible:= True;rn rn 窗体关闭 FormCloseQuery 中:rn if not varIsEmpty(FExcel) thenrn beginrn FExcel.ActiveWorkBook.Saved:= True;rn FExcel.WorkBooks.Close;rn FExcel.Quit;rn FExcel:=Unassigned;rn end;rnrn<em>问题</em>:如果程序<em>打开</em>的EXCEL被其他关闭了!那么在窗体退出的时候,FExcel非空,后面代码发生错误!访问非法地址。rnrn希望高手指点!
使用开发工具Delphi多线程打开Excel文档的问题
使用开发工具Delphi在多线程外面先<em>打开</em>EXCEL文档rn vExcel := CreateOleObject('Excel.Application');rn tryrn vExcelBook := vExcel.WorkBooks.Open(sFile,0,false,5,'','',true);rn exceptrn end;rnrn然后把 vExcel和vExcelBook当做参数传入线程中,但是在同时执行多个线程,当线程中调用vExcel和vExcelBook的属性时,就会弹出错误提示。rnrn有什么方法可以解决这个<em>问题</em>?不想复制多个EXCEL文档,然后每个线程都使用不同的文档。
Delphi 与Excel
给位朋友,有谁能告诉我怎么在 Delphi 中<em>打开</em>Excel 数据库,我用了连接字符串,rn是不是由其它的方法,不只那位可告之一二,万分感谢
Excel Delphi
<em>delphi</em>操作<em>excel</em> 将<em>excel</em>模板中的数据写入sqlite数据库中。
delphiexcel
<em>delphi</em><em>excel</em>:Delphi与Excel
Delphi与Excel
在Delphi中,如何将ADOQuery中查询到的各记录导出到Excel中?
打开excel
rn服务器上存在一个<em>excel</em>文件,如何用浏览器<em>打开</em>它,浏览器地址栏地址还是aspx样式
DELPHI打开网页问题 请教
在DELPHI<em>打开</em>网页 好多代码都有缺点 不如会覆盖原来的窗口 不是新窗口<em>打开</em> 或者就是不能采用默认的浏览器 只能使用IErnrn高分求助 能在默认浏览器中新窗口<em>打开</em>网页的代码 rnrn代码尽量不出错 尽量不因为第三方原因而失效 我之前也找到过一个函数 但是不支持遨游旧版本的浏览器 rnrn谢谢各位
急急急………(Delphi打开问题
http://www.csdn.net/expert/topic/531/531372.xml
用DELPHI打开WORD2000的问题
我是这样写的 rnWordApplication.Connect; //启动和连接WORD rnWordApplication.Visible := True; //使WORD可见 rnrn但好像有一些<em>问题</em>,如WORD启动后不会在前台显示,还有,如何手动关闭WORD后,就再也不能启动WORD了,有时候是“文件已关闭”错误,有时又是“PRC服务器”错误,该如何解决?
delphi打开*.dbf时的问题?
为什么用ttable<em>打开</em>这种数据库文件,其中中文字段的中文内容为乱码,有什么解决办法?
Delphi打开外部文件问题
在<em>delphi</em>中调用一个外部文件,第二次调用的时候怎使它自动激活??
delphi的createoleobject打开word问题
1.被呼叫方拒绝呼叫。rn2.不支持的接口。
delphi spcomm 打开不正常问题
procedure TForm1.Timer1Timer(Sender: TObject);rnvarrntestr : string;rnbeginrntimer1.Enabled := false;rnedit17.Text := '';rnedit18.Text := '';rnedit19.Text := '';rnedit20.Text := '';rnedit21.Text := '';rnedit22.Text := '';rnedit23.Text := '';rnedit24.Text := '';rnedit25.Text := '';rnedit26.Text := '';rnedit27.Text := '';rnedit28.Text := '';rnedit29.Text := '';rnedit30.Text := '';rnedit31.Text := '';rnedit32.Text := '';rn//showmessage('a');rntestr := '3a4b000085';rntryrnmemo1.Lines.Add('尝试关闭端口!');rn//comm1.Free;rn[color=#FF0000]comm1.StopComm;rn//comm1.ReadIntervalTimeoutrn//sleep(100);rnsleep(10);rncomm1.StartComm;[/color]rnform1.SendHex(testr);rntimer2.Enabled := true;rnexceptrnmemo1.Lines.Add('尝试失败!!');rn//comm1.Free;rn//sleep(200);rn[color=#FF0000]comm1.StopComm;rn//sleep(100);rnsleep(1000);rncomm1.StartComm;[/color]rnform1.SendHex(testr);rntimer2.Enabled := true;rnend;rnend;rn程序运行一直很正常,但是当过6小时或者不确定时间以后rn发现程序出错 error serial opening ports;rn我估计应该是comm1.stopcomm没有做出反应,造成comm1.startcomm<em>打开</em>失败报错;rn我用的时spcomm+usb转232串口rn等大大帮忙下!!rn分实在不多,但希望好心人士帮助;
delphi 打开新form的问题
我在unit1里有一个form1 登录的rn登录成功以后要运行unit2里的form2rnunit Unit1;rnrninterfacernrnusesrn Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,rn unit2,Dialogs, StdCtrls, DB, ADODB;rnrntypern TForm1 = class(TForm)rnrn Label1: TLabel;rn Label2: TLabel;rn Edit1: TEdit;rn Edit2: TEdit;rn Button1: TButton;rn ADOConnection1: TADOConnection;rn ADOQuery1: TADOQuery;rn DataSource1: TDataSource;rn procedure Button1Click(Sender: TObject);rn privatern Private declarations rn publicrn Public declarations rn end;rnrnvarrn Form1: TForm1;rn rnrnimplementationrnrn$R *.dfmrnrnprocedure TForm1.Button1Click(Sender: TObject);rnrn varrn LoginCount: Integer;rnbeginrnrn LoginCount := 0;rn with ADOQuery1 dorn beginrn Close;rnrnsql.Add('select * from users where id=:username');rnparameters.ParamByName('username').Value :=trim(Edit1.Text );rnopen;rnend;rnif ADOQuery1.FieldByName('pwd').AsString =trim(Edit2.Text ) thenrnbeginrnForm1.Hide ;rnrn Tform2.Show;rnrnapplication.MessageBox('成功!','系统提示',0+64);rnrnendrnelsernbeginrnapplication.MessageBox('密码或者用户名错误,请确认!','系统提示',0+64);rnrnend;rnend;rnrnend.rnrnrnrnrn 但是 Tform2.Show; 这句报错 意思是找不到tform2rn哪位指点指点啊
Delphi WebBrowser打开网页问题
WebBrowser1.Navigate('http://news.baidu.com/');rnrn用如上方法加载网页,rnrn完成后点击网页内的任何一个链接,都会用IE<em>打开</em>,(我的默认浏览器Google浏览器,不是IE)rnrn在Google浏览器中没<em>问题</em>,会用默认浏览器<em>打开</em>,但在WebBrowser1中就会用IE<em>打开</em>,rnrn请问怎么办,如何使用默认浏览器来<em>打开</em>!rnrn
Delphi 打开子窗体皮肤问题
[code=Delphi(Pascal)]rn if assigned(self.ActiveForm) then self.ActiveForm.Free;rn aform:= aformClass.Create(owner);rn //aform.BorderStyle := bsNone;rnrn aform.Parent:= self.Panel1;rn aform.Top:=0;rn aform.Left:=0;rn aform.Show;rn aform.SetFocus;rn self.ActiveForm:= aform;rn[/code]rn<em>打开</em>后皮肤无效了?怎么回事 ?
delphi打开word的问题
首先我想word转txt,所以用了richedit来临时存储,plaintext:=true了,可是转换后还是有<em>问题</em>,回车的位置为2个小黑框。rn代码和结果如下:rnprocedure TForm3.Button2Click(Sender: TObject);rnvarrni:integer;rnbeginrnif listbox1.Items.Count<>0 thenrn beginrn wordapp:=createoleobject('word.application');rn for I := 0 to Listbox1.Items.Count-1 dorn beginrn tryrn doc:=wordapp.documents.open(filename:=listbox1.Items[i]);rn richedit1.Lines.Clear;rn richedit1.Text:=doc.range.text;rn richedit1.Lines.SaveToFile(getname(listbox1.Items[i]));rn finallyrn doc.close;rn end;rn end;rn wordapp.quit;rn end;rnend;rn转换结果如下(不尽如人意)rnWindows消息大全rn(中国程序员:东旋风工作室)rnrn消息,就是指Windows发出的一个通知,告诉应用程序某个事情发生了。例如,单击鼠标、改变窗口尺寸、按下键盘上的一个键都会使Windows发送一个消息给应用程序。消息本身是作为一个记录传递给应用程序的,这个记录中包含了消息的类型以及其他信息。例如,对于单击鼠标所产生的消息来说,这个记录中包含了单击鼠标时的坐标。这个记录类型叫做TMsg,   它在Windows单元中是这样声明的:   type   TMsg = packed record  rnrn发现没有 有特殊符号应该是回车的。rnrn其次<em>问题</em>在程序貌似要调用一些东西,比如说到了没有安装office或者类似软件的电脑上就要出<em>问题</em>,请问怎么写可以让程序不依赖office,自己写wordxp库?rnrn请高手赐教,谢谢
关于delphi操作excel问题
1、如何在Delphi6里操作Excel时,画一条直线、一条竖线,并且定义线的长度。rn2、假如table1的字段和数据如下:rnrnfield1 field2 field3rn A 200 A1rn B 300 A2rn C 400 A3rnrn导出Excel时,导出数据并且要有表格的格式,如何做?
delphi dbgrideh 导出EXCEL 问题
DBGrid如何 导出到Excel (支持超过65536条记录)???? rnrnrnSaveDBGridEhToExportFile(ExpClass,DBGridEh1,SaveDialog1.FileName,False) 导出速度还可以接受。但存上以上<em>问题</em>。rnSaveDBGridEhToExportFile 不支持EXCEL2007 rnrn如果<em>打开</em>EXCEL 一行行写,效率非常低,导50万行需十几十分钟。rnrn
delphi导出Excel日期格式问题??
我用<em>delphi</em>第三方控件DataSetToExcel把查询结果从Oracle导出到Excelrn查询结果为:rn合同编号楼层 单元 开始日期 结束日期 最后付款日期rnA12899 1G 1GS041 01-04-2012 30-04-2012 30-04-2012rnA12902 15 15009 01-04-2012 30-04-2012 15-04-2012rnA12907 11 11005B 01-04-2012 30-04-2012 30-04-2012rnA12908 11 11001J 01-04-2012 30-04-2012 30-04-2012rnA12911 15 15045 01-04-2012 30-04-2012 30-04-2012rnA12911 15 15045 01-04-2012 30-04-2012 30-04-2012rnrn当使用控件导出到Excel时,日期格式就变成了rnA12482 13 13091 4/1/2012 30/04/2012rnA12483 13 13092 4/1/2012 30/04/2012rnA12489 13 13104A 4/1/2012 30/04/2012rnA12490 13 13104B 4/1/2012 30/04/2012rnA12491 13 13105 4/1/2012 30/04/2012rnA12494 13 13109 4/1/2012 30/04/2012rnrn不仅是日期格式和日期都不正确了,有朋友遇到这样的<em>问题</em>吗?如何解决?rnrnrn
delphi操作excel和word问题
请问怎么操作<em>excel</em>,word中的一些属性,例如<em>excel</em>里某一列的宽度,字体,还有象数据的格式,我发现默认的情况导入<em>excel</em>中的数据都是货币格式,怎么去设定这些属性呢,请各位大侠尽可能提供帮助,谢谢!
Delphi操作Excel中的问题
在向Excel写入数据的过程中,需要合并相同的列,出现提示:选定区域包含多重数值。合并到一个单元格后只能保留最左上角的数据
delphi操作excel问题.pastespecial
<em>delphi</em>操作<em>excel</em>的<em>问题</em>,复制了一个区域要粘贴到一个区域出错.rn代码如下:rnExcelID.ActiveSheet.Range['A1'].PasteSpecial;rn提示类range的pastespecial方法无效rn不管我用comobj还是用<em>excel</em>application都出同样的错误.
急!delphi数据导入excel问题
<em>问题</em>:点击确定按钮也不报错也不导入<em>excel</em>!rn代码:rnvar i:integer;rn eq_idini:TIniFile;rnbeginrn modifyrecordeqcardEXCELoutput.Clear;rn eq_idini := TIniFile.Create(getcurrentdir+'\eqcardeq_id.ini');rn eq_idini.WriteString('count','i',inttostr(xzbox.Items.Count));rn for i:=0 to xzbox.Items.Count-1 dorn beginrn modifyrecordeqcardEXCELoutput.Add(xzbox.Items.Strings[i]);rn eq_idini.WriteString('eqcard', 'eq_id'+inttostr(i),xzbox.Items.Strings[i]);rn end;rn // eq_idini.WriteString('eqcard', 'eq_id', );rn eq_idini.Free;rn close;rnend;rnrn截图:[img=http://hi.csdn.net/attachment/201104/15/9934956_1302860687v5w6.jpg][/img]rnrn如何实现导入到<em>excel</em>功能,还是这段代码就不是导入Excel的代码?
问个delphi 操作excel问题
tryrn sqlcon();rnrn //写入<em>excel</em> 前期变量设置rn v:= CreateOleObject('Excel.Application');rn // xls:=v.WorkBooks.Open(trim(edit2.text));rn xls:=v.WorkBooks.Open('C:\Documents and Settings\Administrator\桌面\新空白.xls');rn rn //------------------------------------------ sheet1rnrnrn rn ---------rn ---------------- rn exceptrn rn Showmessage('请确认EXCEL中是否存 /sheet1/ 表');rn v.DisplayAlerts := false;//是否提示存盘rn v.Quit;//如果出错则退出rn exit;rn rn end;rnrnrn以上代码如果在 操作正确的情况就是到桌面 已经存在一个新空白.xls 使用一切是正常,但是如果桌面不存在新空白.xls ,excep捕捉不着 或者存在新空白.xls 但是不存sheet1 ,请问大神应该怎么该段代码?
Delphi控制Excel时的问题
我在Delphi控制Excel时,设置Centerheader时发生错误:rn“不能设置类PageSetup的CenterHeader属性”rnrn代码如下:rnExcel.Activesheet.Pagesetup.Centerheader := '2003年08月登记簿';rnrn请看一下为什么?谢谢!!
有关delphi存为excel问题
存为<em>excel</em>后,出现如10-23为10月23日,-000-09为-9,但是10-23,-000-09是零件号,不能变。我发现是<em>excel</em>的cell属性<em>问题</em>,应为文本格式,但我不知在<em>delphi</em>如何设为文本。救救我!
delphi,TDBGridEh导出excel问题
if ( DBGridEh1.DataSource.DataSet.Active) and (not DBGridEh1.DataSource.DataSet.IsEmpty) thenrn beginrn SaveDialog1.FileName :='sss';rn if SaveDialog1.Execute thenrn beginrn case SaveDialog1.FilterIndex ofrn 1: SaveDBGridEhToExportFile(TDBGridEhExportAsXLS, DBGridEh1,SaveDialog1.FileName + '.xls' ,TRUE);rn 2: SaveDBGridEhToExportFile(TDBGridEhExportAsCSV, DBGridEh1,SaveDialog1.FileName + '.xls' ,TRUE);rn end;rn ShowMessage('导出完毕!');rn endrn endrn elsern ShowMessage('记录为空!');rnend;
一个Delphi操作Excel的问题
请教大家一个<em>问题</em>:怎么用Delphi实现在Excel中插入行或列rn感激不尽,谢谢,谢谢...
Delphi 中Excel导入问题
在Delphi编程中需要用到Excel导入,然后写入到数据库。是有画面操作,而是不是由Excel直接到数据库。rn代码应该怎么写呢?rn我写的是,系统在编译时报错 ‘对象名 <em>excel</em> 8.0;database=D:\2.xls.Sheet1$'无效。rn[code=Delphi(Pascal)][/code]rnl_sql := 'SELECT useridsex,phone,email,address,notes ' +rn ' FROM [<em>excel</em> 8.0;database=' + xls_path + '].[Sheet1$]';rnrnrn
delphi的数据导入EXCEL后的问题
看了很多用DELPHI语句控制EXCEL的例子,想请问,在<em>打开</em>EXCEL后,要实现预览,rn查找、断开EXCEL实例等语句分别应在什么事件中写?是不是关闭EXCEL后就断开了rn与EXCEL的连接?
delphi 7操作EXCEL问题
我想在窗口中<em>打开</em>一个EXCEL在把原先编辑好的EXCEL模版导入,然后在模版相应的位置填写数据。提交保存到数据库中。请问该怎么做?
android面试题(精心收集整理)下载
精心整理的android面试题 相关下载链接:[url=//download.csdn.net/download/zhangjianzh/4812998?utm_source=bbsseo]//download.csdn.net/download/zhangjianzh/4812998?utm_source=bbsseo[/url]
Win03PE 系统维护工具下载
本维护系统来自:大白菜PE 希望对你有帮助。 相关下载链接:[url=//download.csdn.net/download/u012177278/6289811?utm_source=bbsseo]//download.csdn.net/download/u012177278/6289811?utm_source=bbsseo[/url]
SecureCRT 7 for mac破解版下载
SecureCRT 7 for mac破解版 相关下载链接:[url=//download.csdn.net/download/yueying_0083/7422231?utm_source=bbsseo]//download.csdn.net/download/yueying_0083/7422231?utm_source=bbsseo[/url]
相关热词 c#入门推荐书 c# 解码海康数据流 c# xml的遍历循环 c# 取 查看源码没有的 c#解决高并发 委托 c#日期转化为字符串 c# 显示问号 c# 字典对象池 c#5.0 安装程序 c# 分页算法
我们是很有底线的