在Delhpi6里如何读取EXCEL单元格的内容,如何获取行号及列号,哪位大侠能给出示例,谢谢!
解决方案 »
- 请教:关于ISAPI过滤器的示例代码.
- 不想复制隐藏的文件用什么方法????????????????????
- DELPHI5(ADO) + SQL2000 ,主從表﹐刪除后的保存提交問題 !!!
- Toolbars的关闭事件响应在哪里?请高手指点!
- 关于内存泄漏
- A*算法,新手,有些还是看着不明白
- 我现在想做一个计算机等级考试考务管理系统,我该怎么办?
- 在程序中如何才能完全关闭数据库与SQL SERVER 2000数据库的连接?
- BDE 和 ADO 的区别?
- 有关Drag&Drop的问题请在这个帖子中讨论
- 请西安的朋友介绍一下的好单位和烂单位(用delhpi的)
- 到了凌晨6:28一无所获!请高手帮看看代码错在哪里?
ExcelApp:=CreateOleObject('Excel.Application');
...
ExcelApp.Cells[1,1]读第一行第一列的单元格数据其实如果要操作数据,最好还是用ADO来读,更快一些。
方法如下: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对象。