delphi 打开Excel问题-CSDN论坛

论坛帮助

CSDN论坛 > Delphi > VCL组件开发及应用

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

⋅delphi Excel 实现工作组的翻译 ⋅firebrid 日志记录 ⋅delphi 打开Excel问题 更多帖子 关注私聊空间博客 wujinyuan 本版专家分：744 结帖率 100%: 有个问题。利用     FExcelApp, FWorkBook, FWSheet: Variant;
    FExcelApp := CreateOleObject('Excel.Application');
    FWorkBook := CreateOleObject('Excel.Sheet');
处理调用的 Excel
现在有个这样的了要求，就是用户点击右上角的关闭时，要给用户提示，并且使用关闭功能失效
只能通过程序来关闭，怎么做。

0 2012-01-06 16:11:05

回复数 9 只看楼主引用举报楼主

wujinyuan 本版专家分：744: 右上角的关闭“X”不能没有

0 2012-01-06 16:12:01

只看TA 引用举报 #1 得分 0

delphi中打开excel文件我在试图用穷举法打开一个带密码的EXCEL文件时遇到了以下问题：rnexcelapplication.wordbooks.open(filename:=excelfilename,password:=str);rn在这里假设excelfilename为打开的文件名，STR为穷举的变量rn程序的语法没有出错，但是会出现一个对话框：rn“密码错误，请检查CAPSLOCK的状态以及字母的大小写是否正确”rn这样就导致程序无法顺利进行。rn我想请教各位大侠是否有什么办法可以让程序即使密码出错也能忽略那个对话框而rn跳过到下一步循环呢？请帮帮我，因为我的一个重要文件打不开了。

⋅还是个文件型数据库*.db的问题 ⋅问个关于操作dbf数据库的问题 ⋅感慨ying，程序猿不容易啊 更多帖子 关注私聊空间博客 funxu 本版专家分：15348 红花 2011年11月 Delphi大版内专家分月排行榜第一 2011年10月 Delphi大版内专家分月排行榜第一 黄花 2014年4月 Delphi大版内专家分月排行榜第二 2011年12月 Delphi大版内专家分月排行榜第二 蓝花 2012年1月 Delphi大版内专家分月排行榜第三 2011年9月 Delphi大版内专家分月排行榜第三: 用全局钩子捕获excel的窗体关闭消息？

0 2012-01-06 16:17:00

只看TA 引用举报 #2 得分 0

delphi打开excel如何保存？每次打开excel后，编辑完数据点击保存时，总打开保存对话框，我的excel表在服务器上rn操作人员不容易找到路径，请问如何不让打开保存对话框，即可保存？

wujinyuan 本版专家分：744: 怎么整。。给点代码。。嘿嘿

0 2012-01-06 16:17:54

只看TA 引用举报 #3 得分 0

delphi 用excel打开txt 我用delphi create excel，然后打开文本文件rnrnrn行是没有问题的，但是txt的列在excel中都显示在了第一列中rnrnrn怎样能让他把列分开。。。

⋅还是个文件型数据库*.db的问题 ⋅问个关于操作dbf数据库的问题 ⋅感慨ying，程序猿不容易啊 更多帖子 关注私聊空间博客 funxu 本版专家分：15348 红花 2011年11月 Delphi大版内专家分月排行榜第一 2011年10月 Delphi大版内专家分月排行榜第一 黄花 2014年4月 Delphi大版内专家分月排行榜第二 2011年12月 Delphi大版内专家分月排行榜第二 蓝花 2012年1月 Delphi大版内专家分月排行榜第三 2011年9月 Delphi大版内专家分月排行榜第三: 我身边没有delphi环境，刚用c#做了个测试可以将标题栏的关闭按钮禁用，你可以参考下
public Form1()
        {
            InitializeComponent();
            IntPtr hMenu = GetSystemMenu(this.Handle, 0);
            RemoveMenu(hMenu, SC_CLOSE, MF_BYCOMMAND);
        }

        [DllImport("USER32.DLL")]
        private static extern IntPtr GetSystemMenu(IntPtr hWnd, UInt32 bRevert);
        [DllImport("USER32.DLL")]
        private static extern UInt32 RemoveMenu(IntPtr hMenu, UInt32 nPosition, UInt32 wFlags);
        private const UInt32 SC_CLOSE = 0x0000F060;
        private const UInt32 MF_BYCOMMAND = 0x00000000;
至于全局钩子，C#做不了，所以没法帮你测试了

0 2012-01-06 16:26:57

只看TA 引用举报 #4    得分 60

delphi打开网页的问题 [code=delphi]procedure TfmCarInfo.Button1Click(Sender: TObject);rnvarrnIE : OleVariant;rnbeginrnIE := CreateOleObject('InternetExplorer.Application');rnIE.Visible := True;rnIE.navigate('http://www.baidu.com');rnend;[/code]rn想在程序中嵌入网页，见网上都是这么写的，我用的是xe8，win7系统，运行时提示rn不支持此接口，ProgID:'InternetExplorer.Application'rn这是为什么？

⋅还是个文件型数据库*.db的问题 ⋅问个关于操作dbf数据库的问题 ⋅感慨ying，程序猿不容易啊 更多帖子 关注私聊空间博客 funxu 本版专家分：15348 红花 2011年11月 Delphi大版内专家分月排行榜第一 2011年10月 Delphi大版内专家分月排行榜第一 黄花 2014年4月 Delphi大版内专家分月排行榜第二 2011年12月 Delphi大版内专家分月排行榜第二 蓝花 2012年1月 Delphi大版内专家分月排行榜第三 2011年9月 Delphi大版内专家分月排行榜第三: 另外你可以上网查下delphi钩子截获消息的例子，很多的思路就是注入后重载wndproc，然后把关闭消息忽略或者修改，而只有你的自定消息传入才会真正关闭窗口，不难的，骚年，现在多动动手，你后你会花现世界是很美好滴

0 2012-01-06 16:30:58

只看TA 引用举报 #5 得分 0

wujinyuan 本版专家分：744: 帅哥。。你太强了。。

0 2012-01-06 16:31:49

只看TA 引用举报 #6 得分 0

delphi控制excel的问题请问如何在delphi里实现选中excel的某一整列的内容

⋅delphi Excel 实现工作组的翻译 ⋅firebrid 日志记录 ⋅delphi 打开Excel问题 更多帖子 关注私聊空间博客 wujinyuan 本版专家分：744: 谢谢。。我原来delphi 加载Excel 宏来实现的。。花了1多时间，不会玩还没有参考资料。。

0 2012-01-06 16:38:47

只看TA 引用举报 #7 得分 0

delphi excel查询问题 dsExcel.Active:=False;rn dsExcel.ConnectionString :=rn 'DRIVER=Microsoft Excel Driver (*.xls);ReadOnly=1;HDR=YES;IMEX=1;DBQ=' +rn Trim(ed1F_DoorID.Text);rn dsExcel.CommandText := 'select 客户编号,厨房新表号, 显示器信息1 from ['+vSheet+'] Where 客户编号 is not null';rn dsExcel.Active := true;rnrn我用的控件是 TADOConnectionrnrn我查询出来客户编号,厨房新表号 2个字段有值，显示器信息1是null rn请问，是怎么回事啊rnrn在excel中rn客户编号是文本rnrnrn厨房新表号, 显示器信息1都是数值啊rnrn请问，这是怎么回事啊。rn

⋅有关httppost编程 ⋅ext.tree.panel树型菜单的字体大小如何设置？ ⋅Ext.window嵌入图片，如何对图片放大、缩小和移动？ 更多帖子 关注私聊空间博客 grjs2004 本版专家分：3560: 用钩子截获关闭消息，然后重载一下就可以！

0 2012-01-07 09:58:01

只看TA 引用举报 #8 得分 20

delphi 操作excel的问题我想通过循环打开多个 excel 文件 rn 打开第一个没问题，当打开第二个总提示问题rnrn我是这样做的高手帮忙看看rnprocedure TForm1.Button4Click(Sender: TObject);rnvarrn myFilename,myname,temp,vmonth,vday:STRING;rn i,j,k,n,m,p,q: integer;rn v:Variant;rnbeginrn for i:=0 to form1.Memo1.Lines.Count-1 dorn beginrn k:=1;rn myfilename:=form1.Memo1.Lines.Strings[i] ;rn excelapplication1.Connect;rn excelapplication1.Visible[0]:=true;rn excelapplication1.Caption:='excel';rn // opendialog1.Execute ;rn tryrn excelapplication1.Workbooks.Open(myfilename,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,0);rn exceptrn beginrn excelapplication1.Disconnect;rn excelapplication1.Quit;rn showMessage('error') ;rn exit;rn end;rn end;rn excelworkbook1.ConnectTo(excelapplication1.Workbooks[1]);rn excelworksheet1.ConnectTo(excelworkbook1.Worksheets['职工职务变动表（正面）'] as _worksheet);rn myname:=excelworksheet1.Cells.Item[1,2];rn excelworksheet1.ConnectTo(excelworkbook1.Worksheets['1-10类（正面）'] as _worksheet);rn k:=1;rn stringgrid1.Cells[1,1] :=myname;rn for j:=1 to 500 dorn beginrn temp:= trim(excelworksheet1.Cells.Item[j,1]);rn if temp<>'' thenrn beginrn if (temp<>'类') and (temp<>'号') thenrn beginrnrnrn for n:=1 to 6 dorn beginrn StringGrid1.cells[n+2,k]:=excelworksheet1.Cells.Item[j,n]; //拷贝行rn end ;rn rn k:=k+1;rnrn end;rn end;rnrnrn end;rn excelworksheet1.Disconnect ;rn excelworksheet1.Destroy;rnrn excelapplication1.Disconnect;rn excelapplication1.Quit ;rnrnrnrn excelapplication2.Connect;rn // excelapplication2.Visible[0]:=true;rn // excelapplication2.Caption:='excel';rn // opendialog1.Execute ;rn tryrn myfilename:='c:\aaa.xls';rn excelapplication1.Workbooks.Open('c:\aaa.xls',1,1,1,1,1,1,1,1,1,1,1,1,1,1,0);rn exceptrn beginrn excelapplication2.Disconnect;rn excelapplication2.Quit;rn showMessage('error') ;rn exit;rn end;rn end;rn excelworkbook2.ConnectTo(excelapplication2.Workbooks[1]);rn excelworksheet2.ConnectTo(excelworkbook2.Worksheets['sheet1'] as _worksheet);rnrn for m:=1 to k dorn beginrn for p:=1 to 10 dorn beginrn excelworksheet2.Cells.Item[q,p]:=StringGrid1.cells[p,k] ;rn end;rn q:=q+1rn end;rn rnrnrnrnrn end;rnrnrnend;rn

收藏帖子

Delphi 操作 Excel 问题？: 如何在excel 单元格(cell)中实现换行，不是自动，而是由代码决定在哪个字符换行。

Delphi访问Excel的问题: Delphi中用ADO能直接访问Excel文件吗？李维的书上是直接连的，可是我怎么连不上呢？Connection的Connected属性一设为True就提示xls为不可识别的数据库，该怎样才能连上呢？请指教，谢谢！

delphi 控制 excel 的问题: 假设有个 excel 文件，c:\test.xlsrnrn该文件中有若干 sheet: sheet1、sheet2、...... 、sheet100rnrn其中有的sheet中有数据，有的没有rnrn如何判断出来哪个sheet中有数据，如果有数据，则将其数据读入出来rnrn谢谢

delphi和Excel的问题: 用delphi来新建Excel的时候，如果打开了Excel程序，就会把打开的Excel中的内容带入到用delphi程序所生成的Excel表中，也就是说如果用Excel打开了一个Excel文档，同时用delphi编写的程序生成一个Excel文档，delphi生成的Excel文档中就会带有打开的那个Excel文档中的内容或者格式（比如单元格大小等等）。rn请问怎么解决？？

Delphi中Excel的问题: 我用Delphi中的Excel去打开一个指定路径的Excel文件时，第一次能成功打开，而以后就会失败。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也是成功的，没有问题，rn现在我要把导出的EXCEL再导入到一个数据集里面，F8跟踪走到如下一行时，报有错误rnADOQuery2.FieldValues['AllName']:= Excel.worksheets[1].Cells[vRow,1].Name;rn错误提示是：error 800A03EC rn哪位给指点一下~~ 谢了

delphi操作Excel的问题: 我想用delphi来读取一个Excel表格，目的是想程序把从Excel表格中读取的数据，逐条插入数据库中，问题是，我怎样才能逐条获取Excel的数据呢？rn用ExcelQueryTable能行吗？具体怎样用

请教delphi和excel的问题: 我想在一个窗口放一个按钮，按按钮后打开excel文件，rn再按就要判断这个文件是否处于打开状态，如果是就把那个窗口弹出，rn如果没打开就打开，而且打开的excel文件如果退出时，rn会让我的应用程序知道，该怎么写呢？rn请高手们多多指点，多谢多谢！！rn

Delphi调用EXCEL问题?: 哪位前辈能提供一个Delphi调用EXCEL并向里面写入数据的例子啊,rn最好是不用Delphi控件,真接加入ComObj单元,然后用代码完成. rn急,,十分感谢,,我只有这最后的50分啦,,全贡上!!!:(

delphi连接excel的问题: 我用ADO成功连接了EXCEL。但运行程序时却出错。说“JET OLEDB 4.0不能打开数据库（这里连接的是EXCEL），文件被独占使用......”之类的。rn大哥们，这是什么回事啊？还有我打开连了DELPHI的那个excel文件也说打不开。关了delphi才打得开。rn这样应该就是delphi独占了它了吧？

delphi控制excel的问题。: EXCEL中选择的区域，如果知道选择的行列是从哪里到哪里？DELPHI的excelxp.pas中的worksheet对象好像没有selection对象，请问能如何解决？

delphi和excel的问题: 主要是想请一下大家一下excel和数据库互相交互用什么第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打开问题: 请问一下,怎么样才能实现直接打开一个包含EXCEL文件的网页,而不出现对话框(就是提示打开或者保存那种)

打开Excel问题: win7系统每次开机后第一次打开excel 2007文件，报向程序发送命令时出现问题的错误，试过许多方法都没有解决，请指点。。。

js打开excel的问题: 我在做网页的时候需要打开excel 如下代码：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在测试过程中，如果碰上excel是以中文命名的话，那就打不开了，如果以英文或数字命名的话就正常能打开，这是为什么呢？

打开Excel的问题: 我用下面的代码打开一个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的问题: 我使用如下语句打开一个excel文件：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问题是，程序执行后我只是在任务管理器中看到有excel在执行，但是在前端却没有打开文件界面。这是怎么回事啊，是不是还有什么语句要把excel show出来啊？

EXCEL问题打开速度慢: rn打开WORD一切正常，速度也快rn就是打开EXCEL时，进入界面后总要等待至少20几秒（显示就绪），然后才打开（新建一个也是一样的）rn在“程序”--OFFICE EXCEL打开很快 ‘文件’--》‘打开文件’rnrn重装OFFICE也是一样的效果，磁盘碎片也整理了，应该不是病毒的原因rn其他程序运行正常rn 有没有人遇见过这个问题，急等

jacob 打开excel问题: 我用Jbiulder9的swing开发了应用程序，在网上调用。JACOB打开excel文件在本地测试时候很正常，但网上调用时候，只打开了excel环境，没打开具体的文件。请高手指点。

delphi汇出EXCEL的问题: 汇出时提示"list index out of bounds(8)"，但汇出正常（即excel有正确数据)

delphi控制excel问题: 我想控制excel工作表中第一行每个单元格的数据为左对齐，而且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打开慢的问题？: 为什么excel打开特别慢，而word就正常？

IE打开EXCEL的问题: 在JSP页面中,打开EXCEL文件时用如下命令,rnffffffrn但显示的全是乱码.rn在

打开Excel的问题？: Excel.ApplicationClass myExcel =new Excel.ApplicationClass();rnmyExcel.Application.Workbooks.Add(true);rnmyExcel.Visible=true;rn执行后没有用行Excel,但在进程中打开了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有谁遇到过这样的问题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里运行说缺少命名空间，各位高手帮我看看什么问题，谢谢！

Excel 打开及保存的问题: rn//Excel2000 打开文件的方法为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 打开文件的方法为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打开Excel文件？rnrn还有 xlApp.Workbooks.SaveAs() 方法也是参数不同，又如何解决。rn

excel不能打开的问题？: 我重装了几遍office，可是word等都可以打开正常使用，唯独excel根本打不开，总是报资源不足，我的虚拟内存已经设的很大了。我用的是win98第二版，我能在不破坏原有软件的基础上修复win98系统吗？

Excel文档打开问题: 我们这有一台电脑安装的OFFICE2000,刚装上时没有出现什么问题,但最近不知为何文档里的内容突然就不见了,只剩下空白的工作薄.还有一台电脑也是Excel文档,不知为何在哪台电脑上打开时显示的是灰色背景,没有内容显示.但把哪份文件拷到别的电脑上时,打开能正常显示.但别的文档打开时,却能正常显示.开始以为是OFFICE有问题但重装过后,还是老样子.不知是什么原因.请各位帮忙.

打开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 //打开模板文件，得到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打开做好的EXCEL时,我想打开的是sheet2用VB怎么做!rn 还有就是用SQL语句怎么写返回一个数据库的所有表名!rn 谢谢大家了!!!

EXCEL打开问题: 我装了VS.NET 2005 之后每次打开EXCEL 表都会提示正在配置 microsoft visual studio 2005 team suite -CHS 真的很麻烦 rn该如何解决啊！？

RESPONSE打开EXCEL问题: 参考网上某位前辈的代码，但是出现一个问题。 rn第一次执行excel生成的时候，出来对话框[打开][保存][取消]，不管点[打开]还是[保存]，就卡在download画面了(就是一个文件飞阿飞的)。要点取消，然后再次生成的时候，才能正常的[打开]或者[保存]，请问是什么原因？ rn如果加上excel.Visible = true; ，这个问题可以解决，但是不管是[打开]还是[保存]，画面都会闪一下的，不想要这个效果。 rnrn以下是部分代码： rn public static void OutputExcel(DataView dv, string str) rn rn //dv为要输出到Excel的数据，str为标题名称 rn GC.Collect(); rn Application excel;// = new Application(); rn int rowIndex = 4; rn int colIndex = 1; rn rn _Workbook xBk; rn _Worksheet xSt; rn excel = new ApplicationClass(); rn xBk = excel.Workbooks.Add(true); rn xSt = (_Worksheet)xBk.ActiveSheet; rnrn // rn //取得表格中的数据 rn //（代码省略..） rn //显示效果 rn [color=#FF0000]excel.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 excel.Quit(); rn System.Runtime.InteropServices.Marshal.ReleaseComObject(xBk); rn System.Runtime.InteropServices.Marshal.ReleaseComObject(excel); rn System.Runtime.InteropServices.Marshal.ReleaseComObject(xSt); rn xBk = null; rn excel = 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-excel"; 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是服务器中已存在的excel文件rn 以上是我打印预览的代码,可是我在客户端执行时,有的客户端可以正常运行打印预览,有的客户端执行到var ExcelApp = new ActiveXObject("Excel.Application");时就报错.rnrn 我在服务器端加了权限,是不是如果权限加的不正确,在客户机运行new时就会出错,但我的情况是有的客户机正常,有的出错,郁闷中.....................

excel无法打开的问题: 我用老猛上的一个示例想打开excel，可代码执行后为什么excel一点反应也没。(我的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表的问题: 我想问一下怎样能够打开一个excel表，并运行一个叫a 的宏，关键是运行宏？

webbrower打开excel问题: 环境：WIN7 64bit; Visual Studio 2010 (32bit); 公司电脑没法更改注册表及安装控件rnrn之前用datagridview控件实现对access和excel的浏览及修改、保存操作，没有问题。rn现因为几张excel出现格式的问题，利用datagridview控件感觉并不方便，因此想改变方式，网上搜寻后发现在不安装其他插件的情况下，也只能用webbrower在form里打开excel。现有如下两问题：rnrn1.想在WebBrowser1里显示xls文件（链接为Path），采用： WebBrowser1.Navigate(Path, False)后，rn WebBrowser1里出现"Navigation to the webpage was canceled." 该excel文件直接在外部弹出。尝试在浏览器（IE）里直接复制该链接回车，仅能出现文件下载对话框。rn rn2. 采用该方法能否进行修改、保存的操作？

javascript打开excel的问题: 现在想用javascript打开excelrn查了以前的帖子，用了以下的代码rnvar xls = new ActiveXObject("Excel.Application");rnxls.visible = true;//false;rnxls.workbooks.open("excel 文件路径");rnrn但没次一执行就报错，说对象不能生成rn不知道问题出在那，是不是要参照什么对象？（本人参照过microsoft excel 9.0 object library 但不行）rn

打开excel文件的问题: 源excel文件各个字段没有定义字段名称，用ado打开显示在datagrid中，第一条纪录的各个字段值就成了该列字段的名称，请问有没有什么好方法能够区分第一行是否是有效的数据行，谢谢

ie打开excel问题: 怎么我在自己的jsp页面里用window.open("XX.xls")打开excel文件时,出现了一大堆乱码.rn而不是提示下载xls文件,然后用excel打开所要的文件?

打开excel问题。急！！: 我想在页面里点击按钮显示一个本机器上的excelrn但就是没有显示rn任务管理器里还有excel的进程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。建立一个excel对象rnExcelApplication := CreateOleObject('Excel.Application');rnExcelApplication.Workbooks.Open ('c:\abc.xls');rnExcelApplication.Visible := True;rn***希望程序停在此处等待***rnrnshowmessag('Excel Close')rnrn打开Excel后希望程序停在***处，待关闭Excel后再运行showmessag('Excel Close')，现在是excel启动完不等关闭就运行showmessag('Excel Close')，如何实现？rnrn2.rn ExcelApplication.quit;rn ExcelApplication:=Unassigned;rn这样是否彻底退出Excel了？可是为何在任务管理器中还有Excel进程?(我没有手工打开Excel)rnrn谢谢！rn

delphi中Tchart怎样在Excel中打开: delphi中Tchart怎样在Excel中打开

delphi如何调用打开excel表: delphi如何调用打开excel表

如何用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 打开已有的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('打开的不是Excel文件'); 　　 end; 　　end; 　　详细情况请下载本源码。

Delphi能不能象打开本地数据库一样打开Excel啊?: 因为有Excel files驱动程序在,我想应该能的吧.可是有很多问题.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问题：如果程序打开的EXCEL被其他关闭了！那么在窗体退出的时候，FExcel非空，后面代码发生错误！访问非法地址。rnrn希望高手指点！

使用开发工具Delphi多线程打开Excel文档的问题: 使用开发工具Delphi在多线程外面先打开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有什么方法可以解决这个问题？不想复制多个EXCEL文档，然后每个线程都使用不同的文档。

Delphi 与Excel: 给位朋友，有谁能告诉我怎么在 Delphi 中打开Excel 数据库，我用了连接字符串，rn是不是由其它的方法，不只那位可告之一二，万分感谢

Excel Delphi: delphi操作excel 将excel模板中的数据写入sqlite数据库中。

delphi和excel: delphiexcel:Delphi与Excel

Delphi与Excel: 在Delphi中,如何将ADOQuery中查询到的各记录导出到Excel中?

打开excel: rn服务器上存在一个excel文件，如何用浏览器打开它，浏览器地址栏地址还是aspx样式

DELPHI打开网页问题请教: 在DELPHI打开网页好多代码都有缺点不如会覆盖原来的窗口不是新窗口打开 或者就是不能采用默认的浏览器只能使用IErnrn高分求助能在默认浏览器中新窗口打开网页的代码 rnrn代码尽量不出错尽量不因为第三方原因而失效我之前也找到过一个函数但是不支持遨游旧版本的浏览器 rnrn谢谢各位

急急急………（Delphi打开的问题）: http://www.csdn.net/expert/topic/531/531372.xml

用DELPHI打开WORD2000的问题: 我是这样写的 rnWordApplication.Connect; //启动和连接WORD rnWordApplication.Visible := True; //使WORD可见 rnrn但好像有一些问题，如WORD启动后不会在前台显示，还有，如何手动关闭WORD后，就再也不能启动WORD了，有时候是“文件已关闭”错误，有时又是“PRC服务器”错误，该如何解决？

delphi打开*.dbf时的问题?: 为什么用ttable打开这种数据库文件,其中中文字段的中文内容为乱码,有什么解决办法?

Delphi打开外部文件问题，: 在delphi中调用一个外部文件，第二次调用的时候怎使它自动激活？？

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打开失败报错；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打开，（我的默认浏览器Google浏览器，不是IE）rnrn在Google浏览器中没问题，会用默认浏览器打开，但在WebBrowser1中就会用IE打开，rnrn请问怎么办，如何使用默认浏览器来打开！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打开后皮肤无效了？怎么回事？

delphi中打开word的问题: 首先我想word转txt，所以用了richedit来临时存储，plaintext：=true了，可是转换后还是有问题，回车的位置为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其次问题在程序貌似要调用一些东西，比如说到了没有安装office或者类似软件的电脑上就要出问题，请问怎么写可以让程序不依赖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) 导出速度还可以接受。但存上以上问题。rnSaveDBGridEhToExportFile 不支持EXCEL2007 rnrn如果打开EXCEL 一行行写，效率非常低，导50万行需十几十分钟。rnrn

delphi导出Excel日期格式问题？？: 我用delphi第三方控件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不仅是日期格式和日期都不正确了，有朋友遇到这样的问题吗？如何解决？rnrnrn

delphi操作excel和word问题: 请问怎么操作excel，word中的一些属性，例如excel里某一列的宽度，字体，还有象数据的格式，我发现默认的情况导入excel中的数据都是货币格式，怎么去设定这些属性呢，请各位大侠尽可能提供帮助，谢谢！

Delphi操作Excel中的问题？: 在向Excel写入数据的过程中，需要合并相同的列，出现提示：选定区域包含多重数值。合并到一个单元格后只能保留最左上角的数据

delphi操作excel的问题.pastespecial: delphi操作excel的问题,复制了一个区域要粘贴到一个区域出错.rn代码如下:rnExcelID.ActiveSheet.Range['A1'].PasteSpecial;rn提示类range的pastespecial方法无效rn不管我用comobj还是用excelapplication都出同样的错误.

急！delphi数据导入excel的问题！: 问题：点击确定按钮也不报错也不导入excel！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如何实现导入到excel功能，还是这段代码就不是导入Excel的代码？

问个delphi 操作excel的问题？: tryrn sqlcon();rnrn //写入excel 前期变量设置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的问题: 存为excel后，出现如10-23为10月23日，-000-09为-9，但是10-23，-000-09是零件号，不能变。我发现是excel的cell属性问题，应为文本格式，但我不知在delphi如何设为文本。救救我！

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的问题: 请教大家一个问题：怎么用Delphi实现在Excel中插入行或列rn感激不尽，谢谢，谢谢...

Delphi 中Excel导入问题: 在Delphi编程中需要用到Excel导入，然后写入到数据库。是有画面操作，而是不是由Excel直接到数据库。rn代码应该怎么写呢？rn我写的是，系统在编译时报错 ‘对象名 excel 8.0;database=D:\2.xls.Sheet1$'无效。rn[code=Delphi(Pascal)][/code]rnl_sql := 'SELECT useridsex,phone,email,address,notes ' +rn ' FROM [excel 8.0;database=' + xls_path + '].[Sheet1$]';rnrnrn

delphi的数据导入EXCEL后的问题: 看了很多用DELPHI语句控制EXCEL的例子，想请问，在打开EXCEL后，要实现预览，rn查找、断开EXCEL实例等语句分别应在什么事件中写？是不是关闭EXCEL后就断开了rn与EXCEL的连接？

delphi 7操作EXCEL问题？: 我想在窗口中打开一个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# 分页算法

我们是很有底线的