如何操作EXCEL文件?

[cqpipilu]

我的EXCEL文件有三列,分别是: 原编号、新编号、名称，其中“原编号”有内容；
我想根据“原编号”的内容在数据库里查询对应的“新编号”和“名称”，回填到EXCEL文件中相应的单元格中，请问该如何操作？

[love040309]

用Delphi程序控制Excel的操作

　

使用VBA可以随心所欲地操作Excel。同样，使用Delphi也能完全控制Excel的所有功能。下面，我们以一个例子来入手吧。

在窗口Form1上面加入组件5个Button和1个CheckBox组件，在Users中加入ComObj单元，在Private加入下面的私有变量：

Private

{Private declarations}

v :Variant;

Sheet:Variant;

在单击事件中加入如下代码：

procedure TForm1.Button1Click(Sender:TObject);

begin//打开Excel新建文件

try

v := CreateOleObject('Excel.Application');

v.Visible:=CheckBox1.Checked;//是否显示Excel

v.WorkBooks.Add;//新建Excel文件

v.WorkBooks[1].WorkSheets[1].Name:='操作Excel';//第一页标题

v.WorkBooks[1].WorkSheets[2].Name:='编程乐园';

v.WorkBooks[1].WorkSheets[3].Name:='都来看呀';

// v.WorkBooks[1].WorkSheets['Delphi演示'];'等效下面的语句

Sheet:=v.WorkBooks[1].WorkBooks[1];

Sheet.Cells[1,1]:='好看';//单元格内容

Sheet.Cells[1,2]:='确实';

Sheet.Cells[1,2]:='我喜欢';

except//错误处理

ShowMessage('初始化Excel失败，可能没有装Excel或者其他错误，请重起再试');

v.DisplayAlerts:=false;//是否提示存盘

v.Quit;//退出Excel

exit;

end;

Application.Restore;

Application.BringToFront;

end;

其中，ComObj中包含了用来检索OLE的对象和向它传发命令的例程，第一行代码启动Excel，但这时是不可见的，只有在后台运行，所以第二行代码根据CheckBox1.Checked来确定是否显示Excel运行界面。如果需要打开本身存在的Excel文件，则用v.WorkBooks.Open(OpenDialog1.FileName);代替v.WorkBooks.Add;就可以了。

Sheet对象是很多页面的集合，其他的WorkBooks是工作簿的集合，WorkBooks对象是工作表的集合，Charts对象是图表的集合。

//Excel文档格式设置

procedrue TForm1.Button5Click(Sender:TObject);

var

Range:Variant;

begin

if OpenDialog1.Execute then

begin

try

v:=CreateOleObject('Excel.Application');

v.Visible:=CheckBox1.Checked;

v.WorkBooks.OpenDialog1.FileName);

Range :=v.WorkBooks[1].WorkBooks[1].Range['A2:G2'];//单元格从A2到G2

Range.Merge;//合并单元格

Range.Rows.RowHeight :=50;//设置行高;

Range.Borders.LineStyle:=1;//加边框

Range.Columns[2].ColumnWidth:=12;//设置列宽

Range.FormulaR1C1:='合并区';

Range.HorizontalAlignment:=3;//xlCenter(水平对齐方式)

Range.VerticalAlignment:=2;//xlCenter（垂直对齐方式）

Range.Characters.Font.Name:='宋体';//字体

Range.Characters.Font.Size:=15;

Range.Characters.Font.OutlineFont:=False;//是否有下划线

Range.Characters.Font.ColorIndex:=0;//xlAutomatic;颜色

except//错误处理

ShowMessage('初始化Excel失败，可能没有装Excel或者其他错误，请重起再试');

v.DisplayAlerts:=false;//是否提示存盘

v.Quit;//退出Excel

end;

end;

//EXCEL打印页面设置及打印预览

procedure TForm1.Button4Click(Sender:TObject);

begin

if OpenDialog1.Execute then

begin

try

v:=CreateOleObject('Excel.Application');

v.Visible:=CheckBox1.Checked;

v.WorkBooks.OpenDialog1.FileName);

Sheet:=v.WorkBooks[1].WorkBooks[1];

Sheet.PageSetup.PrintTitleRows:='$1:$3';//页眉

Sheet.PageSetup.PrintTitleColumns:='';

Sheet.PageSetup.LeftFooter:='注：页脚'+'总共&N页'+'——第&P页';//页脚

Sheet.PageSetup.LeftMargin:=30;//设置边距

Sheet.PageSetup.RightMargin:=30;

Sheet.PageSetup.TopMargin:=30;

Sheet.PageSetup.BottomMargin:=50;

// Sheet.PageSetup.PrintQuality:= 400;//分辨率（根据打印机确定）

Sheet.PageSetup.CenterHorizontally:=true;//是否水平居中

Sheet.PageSetup.CenterVertical:=true;//是否垂直居中

Sheet.PageSetup.Orientation:=2;//横向打印

Sheet.PageSetup.Draft:=false;//非草稿模式

// Sheet.PageSetup.FirstPageNumber:=xlAutomatic;

Sheet.PageSetup.BlackAndWhite:=true;//黑白稿

Sheet.PageSetup..Zoom:=100;//缩放

Sheet.PrintPreView;//打印预览

except//错误处理

ShowMessage('初始化Excel失败，可能没有装Excel或者其他错误，请重起再试');

v.DisplayAlerts:=false;//是否提示存盘

v.Quit;//退出Excel

end;

end;

end;

最后就是要关闭Excel了。在创建了Excel Application对象后，调用它的Quit方法完成关闭事件。

//关闭EXCEL并退出

procedure TForm1.Button3Click(Sender:TObject);

begin

try

if not varIsEmpty(v) then

begin//如果需要在关闭前确定是否存盘，加入：

// v.DiaplayAlert:=true;//确定存盘

// v.DialayAlert:=False;//不存盘，直接退出

v.WorkBooks[1].Close(True,'C:\untitled.xls');// 取文件名退出

v.Quit;

end;

finally

Close;

end

end;

[love040309]

方法如下：

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对象。

[love040309]

SQL SERVER 和EXCEL的数据导入导出


　　1、在SQL SERVER里查询Excel数据:

SELECT *

FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',

'Data Source="d:\1.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...[Sheet1$]


下面是个查询的示例，它通过用于 Jet 的 OLE DB 提供程序查询 Excel 电子表格。

SELECT *
FROM OpenDataSource （ 'Microsoft.Jet.OLEDB.4.0',
'Data Source="c:\Finance\account.xls";User ID=Admin;Password=;Extended properties=Excel 5.0'）...xactions


　　2、将Excel的数据导入SQL server :

SELECT * into newtable

FROM OpenDataSource（ 'Microsoft.Jet.OLEDB.4.0',

'Data Source="c:\book1.xls";User ID=Admin;Password=;Extended properties=Excel 5.0'）...[Sheet1$]


实例:

SELECT * into newtable

FROM OpenDataSource（ 'Microsoft.Jet.OLEDB.4.0',

'Data Source="c:\Finance\account.xls";User ID=Admin;Password=;Extended properties=Excel 5.0'）...xactions


　　3、将SQL SERVER中查询到的数据导成一个Excel文件

T-SQL代码：

EXEC master..xp_cmdshell 'bcp 库名.dbo.表名out c:\Temp.xls -c -q -S"servername" -U"sa" -P""'

参数：S 是SQL服务器名；U是用户；P是密码

说明：还可以导出文本文件等多种格式


实例:EXEC master..xp_cmdshell 'bcp saletesttmp.dbo.CusAccount out c:\temp1.xls -c -q -S"pmserver" -U"sa" -P"sa"'


EXEC master..xp_cmdshell 'bcp "SELECT au_fname, au_lname FROM pubs..authors ORDER BY au_lname" queryout C:\ authors.xls -c -Sservername -Usa -Ppassword'


在VB6中应用ADO导出EXCEL文件代码：

Dim cn As New ADODB.Connection

cn.open "Driver={SQL Server};Server=WEBSVR;DataBase=WebMis;UID=sa;WD=123;"

cn.execute "master..xp_cmdshell 'bcp "SELECT col1, col2 FROM 库名.dbo.表名" queryout E:\DT.xls -c -Sservername -Usa -Ppassword'"


　　4、在SQL SERVER里往Excel插入数据:

insert into OpenDataSource（ 'Microsoft.Jet.OLEDB.4.0',

'Data Source="c:\Temp.xls";User ID=Admin;Password=;Extended properties=Excel 5.0'）...table1 （A1,A2,A3） values （1,2,3）


T-SQL代码：

INSERT INTO

OPENDATASOURCE（'Microsoft.JET.OLEDB.4.0',

'Extended Properties=Excel 8.0;Data source=C:\training\inventur.xls'）...[Filiale1$]

（bestand, produkt） valueS （20, 'Test'）

[ssk0532]

在excel表中编辑宏，写如下代码：
Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim ConnectionString As String
Dim 原编号 As String
Dim arr() As Integer
Dim a, b As Single
Public wkbook As Workbook
Public wh As Worksheet
Set cnn = New ADODB.Connection
Set rs = New ADODB.Recordset
ConnectionString = 你的数据库
cnn.ConnectionString = ConnectionString
cnn.Open
Set wkbook = ActiveWorkbook
Set wh = wkbook.Sheets(1)
for i=1 to 你想要的行数 do
原编号 = wh.Cells(i, 1)
Set rs = cnn.Execute("select * from 表名 where 原编号(字段名)＝'" & 原编号(变量) & "'")
wh.Cells(i, 2) = rs!新编号
wh.Cells(i, 3) = rs！旧编号

next i
rs.Close
cnn.Close
End Sub

[leo1999]

mark

[子秦1117]

学习