Excel问题 100分，急求

minjunw 2004-07-23 12:01:43
如何读取Excel中的文本框中的内容，
...全文
184 9 打赏 收藏 转发到动态 举报
写回复
用AI写文章
9 条回复
切换为时间正序
请发表友善的回复…
发表回复
minjunw 2004-07-27
  • 打赏
  • 举报
 回复
WorkSheet.Shapes.Item(i).TextFrame.Characters.Text 可以访问文本框，不过它包括许多其它的东西，如批注等，甚至是图形，所以用时可能会有找不到成员出现，我用了Try语句

谢谢各位
jinjazz 2004-07-23
  • 打赏
  • 举报
 回复
是fx旁边的那个文本吗?
GoldShield 2004-07-23
  • 打赏
  • 举报
 回复
没明白你的意思,
什么"文本框中的文本?
minjunw 2004-07-23
  • 打赏
  • 举报
 回复
jinjazz(我是jin)
wenjianyao(建)
二位误解了

我是要取得文本框中的文本，
不是Cells
julong88 2004-07-23
  • 打赏
  • 举报
 回复
就在 csdn里搜索就行
yuyupluck 2004-07-23
  • 打赏
  • 举报
 回复
自己找一下,好多回答,很多实用性强的!!!!
wenjianyao 2004-07-23
  • 打赏
  • 举报
 回复
1、创建一个普通Application。

2、在Form中分别放入ExcelApplication, ExcelWorkbook和ExcelWorksheet。

3、对Excel的一些操作，具体方法如下：

【打开Excel97】
　　　　ExcelApplication1.Connect;
　　　　ExcelApplication1.Visible[0]:=True;


【增加一个Workbook】
　　　　ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks.Add(EmptyParam,0));


【添加一个Worksheet】
　　var　　Temp_Worksheet: _WorkSheet;
　　begin
　　　　Try
　　　　　　Temp_Worksheet:=ExcelWorkbook1.
　　　　　　WorkSheets.Add(EmptyParam,EmptyParam,EmptyParam,EmptyParam,0) as _WorkSheet;//(注意)
　　　　　　ExcelWorkSheet1.ConnectTo(Temp_WorkSheet);
　　　　Except
　　　　　　ShowMessage('Failure');
　　　　End;
　　end;


【关闭Excel】
　　　　ExcelApplication1.Quit;
　　　　ExcelWorksheet1.Disconnect;
　　　　ExcelWorkbook1.Disconnect;
　　　　ExcelApplication1.Disconnect;


【选择当前Workbook的某一Worksheet】
　　procedure TForm1.ComboBox1DropDown(Sender: TObject);
　　var
　　　　i: Integer;
　　begin
　　　　ComboBox1.Clear;
　　　　For i:=1 to ExcelWorkbook1.Worksheets.Count do
　　　　　　ComboBox1.Items.Add((ExcelWorkbook1.Worksheets.Item[i] as _WorkSheet).Name);
　　end;

　　procedure TForm1.ComboBox1Change(Sender: TObject);
　　begin
　　　　ExcelWorkSheet1.ConnectTo(ExcelWorkbook1.Worksheets.Item [ComboBox1.ItemIndex+1] as _WorkSheet);
　　　　ExcelWorkSheet1.Activate;
　　end;

【选择某一Workbook】
　　procedure TForm1.ComboBox2DropDown(Sender: TObject);
　　var
　　　　i: Integer;
　　begin
　　　　ComboBox2.Clear;
　　　　if ExcelApplication1.Workbooks.Count >0 then
　　　　For i:=1 to ExcelApplication1.Workbooks.Count do
　　　　Combobox2.Items.Add(ExcelApplication1.Workbooks.Item[i].Name);
　　end;

　　procedure TForm1.ComboBox2Change(Sender: TObject);
　　begin
　　　　ExcelWorkSheet1.Disconnect;
　　　　ExcelWorkBook1.ConnectTo(ExcelApplication1.Workbooks.Item[Combobox2.ItemIndex+1]);
　　　　ExcelWorkBook1.Activate;
　　　　ExcelWorksheet1.ConnectTo(ExcelWorkBook1.ActiveSheet as _WorkSheet);
　　　　ExcelWorkSheet1.Activate;
　　end;

【对某一单元格进行赋值及取值】
　　procedure TForm1.Button5Click(Sender: TObject);
　　begin
　　　　ExcelWorksheet1.Cells.Item[SpinEdit2.Value,SpinEdit1.Value]:=Edit1.Text;
　　end;

　　procedure TForm1.Button6Click(Sender: TObject);
　　begin
　　　　Edit1.Text:=ExcelWorksheet1.Cells.Item[SpinEdit2.Value,SpinEdit1.Value];
　　end;

【选择某一区域】
　　ExcelWorkSheet1.Range['A1','C1'].Select;

【打开一个Excel文件】
　　if OpenDialog1.Execute then
　　Begin
　　　　　　ExcelWorkBook1.ConnectTo(
　　　　　　　　　ExcelApplication1.Workbooks.Open(
　　　　　　　　　　　　OpenDialog1.FileName,EmptyParam,EmptyParam,EmptyParam,
　　　　　　　　　　　　EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
　　　　　　　　　　　　EmptyParam,EmptyParam,EmptyParam,EmptyParam,0));
　　　　　　ExcelWorkSheet1.ConnectTo(ExcelWorkBook1.Activesheet as _Worksheet);
　　End;


【存入一个Excel文件】
　　procedure TForm1.button6Click(Sender: TObject);
　　var
　　　　i,row,column:integer;
　　begin
　　　　Try
　　　　　　ExcelApplication1.Connect;
　　　　Except
　　　　　　MessageDlg('Excel may not be installed',mtError, [mbOk], 0);
　　　　　　Abort;
　　　　End;
　　　　ExcelApplication1.Visible[0]:=True;
　　　　ExcelApplication1.Caption:='Excel Application';
　　　　ExcelApplication1.Workbooks.Add(Null,0);
　　　　ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks[1]);
　　　　ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Worksheets[1] as _Worksheet);
　　　　Table1.Open;
　　　　row:=1;
　　　　While Not(Table1.Eof) do
　　　　begin
　　　　　　column:=1;
　　　　　　for i:=1 to Table1.FieldCount do
　　　　　　begin
　　　　　　　　ExcelWorksheet1.Cells.Item[row,column]: =Table1.fields[i-1].AsString;
　　　　　　　　column:=column+1;
　　　　　　end;
　　　　　　Table1.Next;
　　　　　　row:=row+1;
　　　　end;
　　End;

【打印预览一个Excel文件】
　　procedure TForm1.Button7Click(Sender: TObject);
　　begin
　　　　ExcelWorksheet1.PrintPreview;
　　end;

【打印一个Excel文件】
　　procedure TForm1.Button8Click(Sender: TObject);
　　begin
　　　　ExcelWorksheet1.PrintOut;
　　end;


【说明】
　　这些程序在Win98+Delphi 5+Excel 97下运行通过。这些例子还可以作适当的扩充，如DDE、执行宏调用、保存文件、打印文件及对Excel的设置等，其具体的实现及设置方法请参阅Microsoft Excel Visual Basic参考中的Microsoft Excel对象。

jinjazz 2004-07-23
  • 打赏
  • 举报
 回复
方法如下：

1、创建一个普通Application。

2、在Form中分别放入ExcelApplication, ExcelWorkbook和ExcelWorksheet。

3、对Excel的一些操作，具体方法如下：

【打开Excel97】
　　　　ExcelApplication1.Connect;
　　　　ExcelApplication1.Visible[0]:=True;


【增加一个Workbook】
　　　　ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks.Add(EmptyParam,0));


【添加一个Worksheet】
　　var　　Temp_Worksheet: _WorkSheet;
　　begin
　　　　Try
　　　　　　Temp_Worksheet:=ExcelWorkbook1.
　　　　　　WorkSheets.Add(EmptyParam,EmptyParam,EmptyParam,EmptyParam,0) as _WorkSheet;//(注意)
　　　　　　ExcelWorkSheet1.ConnectTo(Temp_WorkSheet);
　　　　Except
　　　　　　ShowMessage('Failure');
　　　　End;
　　end;


【关闭Excel】
　　　　ExcelApplication1.Quit;
　　　　ExcelWorksheet1.Disconnect;
　　　　ExcelWorkbook1.Disconnect;
　　　　ExcelApplication1.Disconnect;


【选择当前Workbook的某一Worksheet】
　　procedure TForm1.ComboBox1DropDown(Sender: TObject);
　　var
　　　　i: Integer;
　　begin
　　　　ComboBox1.Clear;
　　　　For i:=1 to ExcelWorkbook1.Worksheets.Count do
　　　　　　ComboBox1.Items.Add((ExcelWorkbook1.Worksheets.Item[i] as _WorkSheet).Name);
　　end;

　　procedure TForm1.ComboBox1Change(Sender: TObject);
　　begin
　　　　ExcelWorkSheet1.ConnectTo(ExcelWorkbook1.Worksheets.Item [ComboBox1.ItemIndex+1] as _WorkSheet);
　　　　ExcelWorkSheet1.Activate;
　　end;

【选择某一Workbook】
　　procedure TForm1.ComboBox2DropDown(Sender: TObject);
　　var
　　　　i: Integer;
　　begin
　　　　ComboBox2.Clear;
　　　　if ExcelApplication1.Workbooks.Count >0 then
　　　　For i:=1 to ExcelApplication1.Workbooks.Count do
　　　　Combobox2.Items.Add(ExcelApplication1.Workbooks.Item[i].Name);
　　end;

　　procedure TForm1.ComboBox2Change(Sender: TObject);
　　begin
　　　　ExcelWorkSheet1.Disconnect;
　　　　ExcelWorkBook1.ConnectTo(ExcelApplication1.Workbooks.Item[Combobox2.ItemIndex+1]);
　　　　ExcelWorkBook1.Activate;
　　　　ExcelWorksheet1.ConnectTo(ExcelWorkBook1.ActiveSheet as _WorkSheet);
　　　　ExcelWorkSheet1.Activate;
　　end;

【对某一单元格进行赋值及取值】
　　procedure TForm1.Button5Click(Sender: TObject);
　　begin
　　　　ExcelWorksheet1.Cells.Item[SpinEdit2.Value,SpinEdit1.Value]:=Edit1.Text;
　　end;

　　procedure TForm1.Button6Click(Sender: TObject);
　　begin
　　　　Edit1.Text:=ExcelWorksheet1.Cells.Item[SpinEdit2.Value,SpinEdit1.Value];
　　end;

【选择某一区域】
　　ExcelWorkSheet1.Range['A1','C1'].Select;

【打开一个Excel文件】
　　if OpenDialog1.Execute then
　　Begin
　　　　　　ExcelWorkBook1.ConnectTo(
　　　　　　　　　ExcelApplication1.Workbooks.Open(
　　　　　　　　　　　　OpenDialog1.FileName,EmptyParam,EmptyParam,EmptyParam,
　　　　　　　　　　　　EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
　　　　　　　　　　　　EmptyParam,EmptyParam,EmptyParam,EmptyParam,0));
　　　　　　ExcelWorkSheet1.ConnectTo(ExcelWorkBook1.Activesheet as _Worksheet);
　　End;


【存入一个Excel文件】
　　procedure TForm1.button6Click(Sender: TObject);
　　var
　　　　i,row,column:integer;
　　begin
　　　　Try
　　　　　　ExcelApplication1.Connect;
　　　　Except
　　　　　　MessageDlg('Excel may not be installed',mtError, [mbOk], 0);
　　　　　　Abort;
　　　　End;
　　　　ExcelApplication1.Visible[0]:=True;
　　　　ExcelApplication1.Caption:='Excel Application';
　　　　ExcelApplication1.Workbooks.Add(Null,0);
　　　　ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks[1]);
　　　　ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Worksheets[1] as _Worksheet);
　　　　Table1.Open;
　　　　row:=1;
　　　　While Not(Table1.Eof) do
　　　　begin
　　　　　　column:=1;
　　　　　　for i:=1 to Table1.FieldCount do
　　　　　　begin
　　　　　　　　ExcelWorksheet1.Cells.Item[row,column]: =Table1.fields[i-1].AsString;
　　　　　　　　column:=column+1;
　　　　　　end;
　　　　　　Table1.Next;
　　　　　　row:=row+1;
　　　　end;
　　End;

【打印预览一个Excel文件】
　　procedure TForm1.Button7Click(Sender: TObject);
　　begin
　　　　ExcelWorksheet1.PrintPreview;
　　end;

【打印一个Excel文件】
　　procedure TForm1.Button8Click(Sender: TObject);
　　begin
　　　　ExcelWorksheet1.PrintOut;
　　end;


【说明】
　　这些程序在Win98+Delphi 5+Excel 97下运行通过。这些例子还可以作适当的扩充，如DDE、执行宏调用、保存文件、打印文件及对Excel的设置等，其具体的实现及设置方法请参阅Microsoft Excel Visual Basic参考中的Microsoft Excel对象。

肥仔胧 2004-07-23
  • 打赏
  • 举报
 回复
学习一下
php将html转换excel,怎么把html文件转成excel_php生成excel
如何将大批量的HTML文件转换为Excel文件？急求？一个批量转换http://www.greenxf.com/soft/14774.html如何把Html网页格式转成Excel表格1、单击数据--导入外部数据--Web查询。2、勾选我可以识别此内容，允许播放，单击按钮。3、在地址入网站地址，转到此网站里面。4、跳转到指定网页，点击箭头按钮，然后导入数据到Excel。Excel表格生成数据，至此完...
上升百分之五计算机公式,(在excel表格上面数据加5%)excel表格中如何设公式：50%以上得分，每上升2%加5%分值,完成90%得100%分值...
急求EXCEL表格里怎样才能使单元格里的数值全部增加百分之五,且显示在本单元格内?先在空的单元格输入1.05后复制--再在要全部增加百分之五的区域选中--右键-选择性粘贴-乘excel表格中如何设公式：50%以上得分，每上升2%加5%分值,完成90%得100%分值若得分是10分，50%-100%的计算值在A1，则=IF(A190%,10*2,10 10*(A1-50%)/2%*5%))在EXCEL...
急求Fastreport导出到Excel的搓行问题！
我装的是fastreport2.5，在Delphi7中通过fastreport将数据库中的数据读出后，导出到Excel文件中后，导出的excel文件行是错乱的，有时打印出来格式也变了。请各位大侠帮帮忙啊，怎么能解决呢？最近做了个项目，客户用着很不方便，跟偶都发火了。
java 读取sheet第一行,java 对 excel 表头的读取该怎么写，就是表中表头不在第一行，要一行一行去搜索，代码该怎么写啊！ 急求(excel第二页显示表头)...
java导出excel时当表头和表数据不是一条sql怎么导?那你的意思是希望一个文件就能适应你所有想导出的数据的文件吗？Java导出excel的时候如何设置唯一标识？下载的时候可以指定文件名，或者单独一个sheet页标注java 对 excel 表头的读取该怎么写，就是表中表头不在第一行，要一行一行去搜索，代码该怎么写啊！ 急求使用 POI这样的库，逐行判断，也不难、也不麻烦~~~~~~~java...
excel有的单元文字可以超出单元格_excel表格里的文字超出单元格如何解决
右键点击文本内容过长的单元格，在打开的右键菜单中选择“设置单元格格式(F)”在打开的“Word，Excel，PPT是最普通的办公工具，不仅要掌握好，还要熟练地使用。在使用Excel时，经常会出现Excel表格里的文字超出单元格的情况，很影响美观，我们对此十分困扰。下面就为大家分享关于Excel表格里的文字超出单元格时的处理方法。材料/工具电脑方法选中要调整的单元格，找到”开始“选项，单击。因为单元...
Delphi

5,388

社区成员

262,730

社区内容

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章