能用一个类来实现对Excel文件的操作如：
1.在某个Cell里写内容。
2.合拼、拆分单元格。
3.变字体、字号等。
4.在某个单元格内插入图片。
5.设置单元格的背景色。
6.制做一个图表。
.
.
.
.
.
等等了。当然是功能越多越好了。
还有就是最好能加上注释，好让我们这些菜鸟学习学习！！！！如果写的好的话可以再开贴送分的。绝不失言。
1.在某个Cell里写内容。
2.合拼、拆分单元格。
3.变字体、字号等。
4.在某个单元格内插入图片。
5.设置单元格的背景色。
6.制做一个图表。
.
.
.
.
.
等等了。当然是功能越多越好了。
还有就是最好能加上注释，好让我们这些菜鸟学习学习！！！！如果写的好的话可以再开贴送分的。绝不失言。
解决方案 »
- 关于DELPHI 子控件保存的问题..
- 大数据量下传时，客户端下载出错，急录socket高手
- 1个打包出现的问题
- 急求帮助
- 一个操作上的问题，但困绕了一段时间，望指导，请发表观点，谢谢
- 我在DATABASE DESKTOP里新建的表如何才能保存？
- 再自定義的function,procedure 中是否不能用try結構
- BDE的奇怪现象，你遇到过吗？ 各位请看
- rave报表如何用代码实现只打印当前记录
- 请问诸位大侠：如何取得serversocket的当前活动连接数？或者您能告诉我如何取得数组上限也可！多谢了，分数大大的
- request如何取得客户端checkbox的信息？？？？
- 超级郁闷!网络问题!
怎么样操作Excel才是最好的方式呢？
自己到控间里面好好找找，而且，对于excel的操作论坛上是经常讨论的
uses oleserver, ConvUtils, ComObj,Dialogs,adodb,Classes,SysUtils,forms;
type
Tdbtoexcel =class
private
public
function SaveDbToExcel(dataset : TADODataSet) : Byte;
end;implementation{ Tdbtoexce }
function Tdbtoexcel.SaveDbToExcel(dataset : TADODataSet): Byte;
var
ExcelApp,WorkBook : OleVariant;
FieldName : string;
FieldCount,i,j,RecordCount : Integer;
begin
try
try
ExcelApp := CreateOleObject('Excel.Application');
WorkBook:=CreateOleObject('Excel.Sheet');
except
ShowMessage('ûÓа²×°EXCEL');
Result := 0; //ʧ°Ü·µ»Ø0
exit;
end;
try
ExcelApp.Caption := 'Ó¦ÓóÌÐòµ÷Óà Microsoft Excel';
WorkBook:=ExcelApp.workbooks.Add;
dataset.Open;
FieldCount := dataset.FieldCount;
RecordCount := dataset.RecordCount;
for i:=1 to FieldCount do //¸ù¾ÝDATASETµÄ×Ö¶ÎÃû³ÆдEXCELµÄµÚÒ»ÐÐ.
begin
ExcelApp.Cells[1,i] :=dataset.Fields[i-1].FieldName;
end;
for i:=2 to RecordCount do //´ÓµÚ¶þÐпªÊ¼£¬°ÑDATASETÖеÄËùÓмǼ¶¼Ð´ÈëEXCELÎļþ.
begin
for j:=1 to FieldCount do
ExcelApp.Cells[i,j] :=dataset.FieldByName(dataset.Fields[j-1].FieldName).AsString;
dataset.Next;
end;
WorkBook.SaveAs(ExtractFileDir(Application.ExeName)+'\test.xls');
ShowMessage('ÎļþÒѾ­±£´æΪ'+ExtractFileDir(Application.ExeName)+'\test.xls¡£Äú¿ÉÒÔ´ò¿ª±à¼­´ËÎļþ');
Result := 1;//³É¹¦·µ»Ø1
except
Result := 0; //ʧ°Ü·µ»Ø0
end;
finally
ExcelApp.WorkBooks.Close;
ExcelApp.quit;
end;
end;end.
在数据库应用软件的开发过程中，经常需要的数据转换成Excel文字，让用户作进一步的数据处理。而Borland Delphi是开发数据库应用系统的常用工具，如何在Delphi中操作Excel呢？
我们知道，在Microsoft office软件中有一种内嵌的编程语言，即VBA，它是一种宏语言、VB的子集。利用它，你可以编写出功能强大的代码，如打开文件、修改数据、保存数据、设置字体等。另一方面，Microsoft office软件中的宏能以VBA代码的形式记录下你的操作过程，因此借助宏操作，可以很轻松地实现某一功能，并把这些代码稍作修改嵌入你的软件中。但是VBA有一个缺点，它必需有Microsoft office操作平台，在哪里编写，必须在哪里执行。例如在Excel下编写的一段VBA代码，则它只有在Excel下才能执行。
关于Excel中的VBA编程方法、Excel对象属性、方法说明可以在Microsoft office的安装（完全安装）目录下的VBAXL8.hlp帮助文件中找到。
因此，只有把VBA代码嵌入到Borland Delphi中，才能实现用Delphi操作Excel。
Unit excel;
Interface
Uses
Windows,Messages,SysUtils,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls,ComObj,
{ ComObj是操作OLE对象的函数集}
Type
TForm1=class(TForm)
Button1:TButton;
Procedure Button1Click(Sender:Tobject);
Private
{ Private declaration}
Public
{ Public declaration }
end;
var
Form1:Tform1;
Implementation
{$R *.DFM}
procedure TForm1.Button1Click(sender:Tobject);
var
eclApp,WordBook:Variant; {声明为OLE Automation对象}
xlsFileName:string;
begin
xlsFileName:=’ex.xls’;
try
{创建OLE对象：Excel Application与WordBook}
eclApp:=CreateOleObject(‘Excel.Application’);
WorkBook:=CreateOleObject(Excel.Sheet’);
Except
Application.MessageBox(‘你的机器没有安装Microsoft Excel’,
’使用Microsoft Excel’,MB_OK+MB_ICONWarning);
Exit;
End;
Try
ShowMessage(‘下面演示：新建一个XLS文件，并写入数据，并关闭它。’);
WorkBook:=eclApp.workbooks.Add;
EclApp.Cells(1,1):=’字符型’;
EclApp.Cells(2,1):=’Excel文件’;
EclApp.Cells(1,2):=’Money’;
EclApp.Cells(2,2):=10.01;
EclApp.Cells(1,3):=’日期型’;
EclApp.Cells(2,3):=Date;
WorkBook.SaveAS(xlsFileName);
WorkBook.close;
ShowMessage(‘下面演示：打开刚创建的XLS文件，并修改其中的内容，然后，由用户决定是否保存。’);
Workbook:=eclApp.WorkBooks.Open(xlsFileName);
EclApp.Cells(1,4):=’Excel文件类型’;
If MessageDlg(xlsFileName+’已经被修改，是否保存？’,
mtConfirmation,[mbYes,mbNo],0)=mrYes then
WorkBook.Save
Else
WorkBook.Saved:=True; {放弃保存}
Workbook.Close;
EclApp.Quit; //退出Excel Application
{释放Variant变量}
eclApp:=Unassigned;
except
showMessage(‘不能正确操作Excel文件。可能是该文件已被其他程序打开，或系统错误。’);
WorkBook.close;
EclApp.Quit;
{释放Variant变量}
eclApp:=Unassigned;
end;
end;
end
我的意思是这样如：
写一个类为MyExcel
myExcel.Open;
myexcel.WriteCell(2,4,'姓名');
myexcel.WriteCell(2,5,'张三');
myExcel.InsertImage(1,1,'C:\test.bmp');
myExcel.Save('C:\test.xls')
myExcel.Close;
也就是想使用时只要简单的几行调用就行了。
不必每次都Copy那么多代码！！！！！
一现常用的功能不能对一个适合一考试系统，比如对图表，的操作，还有很多，我的[email protected] 。请联系。
OutFilePath : ShortString;OutFileName : ShortString): Boolean;{!~Saves the range on the currently active sheetto a text file.}Function ExcelSaveAsText(Excel : Variant;ExcelFirstRow : Integer;ExcelFirstCol : Integer;ExcelLastRow : Integer;ExcelLastCol : Integer;OutFilePath : ShortString;OutFileName : ShortString): Boolean;{!~Selects a range on the currently active sheet. From thecurrent cursor position a block is selected down and to the right.The block proceeds down until an empty row is encountered. Theblock proceeds right until an empty column is encountered.}Function ExcelSelectBlock(Excel : Variant;FirstRow : Integer;FirstCol : Integer): Boolean;{!~Selects a range on the currently active sheet. From thecurrent cursor position a block is selected that containsthe currently active cell. The block proceeds in eachdirection until an empty row or column is encountered.}Function ExcelSelectBlockWhole(Excel: Variant): Boolean;{!~Selects a cell on the currently active sheet}Function ExcelSelectCell(Excel : Variant; RowNum, ColNum: Integer): Boolean;{!~Selects a range on the currently active sheet}Function ExcelSelectRange(Excel : Variant;FirstRow : Integer;FirstCol : Integer;LastRow : Integer;LastCol : Integer): Boolean;{!~Selects an Excel Sheet By Name}Function ExcelSelectSheetByName(Excel : Variant; SheetName: String): Boolean;{!~Sets the formula in a cell. Remember to include the equals sign "=".If the function fails False is returned, True otherwise.}Function ExcelSetCellFormula(Excel : Variant;FormulaString : ShortString;RowNum, ColNum: Integer): Boolean;{!~Sets the contents of a cell as a shortstring}Function ExcelSetCellValue(Excel : Variant;RowNum, ColNum: Integer;Value : ShortString): Boolean;{!~Sets a Column Width on the currently active sheet}Function ExcelSetColumnWidth(Excel : Variant;ColNum : Integer;ColumnWidth: Integer): Boolean;{!~Set Excel Visibility}Function ExcelSetVisible(Excel : Variant;IsVisible: Boolean): Boolean;{!~Saves the range on the currently active sheetto values only.}Function ExcelValuesOnly(Excel : Variant;ExcelFirstRow : Integer;ExcelFirstCol : Integer;ExcelLastRow : Integer;ExcelLastCol : Integer): Boolean;{!~Returns the Excel Version as a ShortString.}Function ExcelVersion(Excel: Variant): ShortString;Function IsBlockColSide(Excel : Variant;RowNum: Integer;ColNum: Integer): Boolean; Forward;
Function IsBlockRowSide(Excel : Variant;RowNum: Integer;ColNum: Integer): Boolean; Forward; implementation type//Declare the constants used by ExcelSourceType = (xlConsolidation, xlDatabase, xlExternal, xlPivotTable);Orientation = (xlHidden, xlRowField, xlColumnField, xlPageField, xlDataField);RangeEnd = (NoValue, xlToLeft, xlToRight, xlUp, xlDown);ExcelPasteType = (xlAllExceptBorders,xlNotes,xlFormats,xlValues,xlFormulas,xlAll);{CAUTION!!! THESE OUTPUTS ARE ALL GARBLED! YOU SELECT xlDBF3 AND EXCELOUTPUTS A xlCSV.}FileFormat = (xlAddIn, xlCSV, xlCSVMac, xlCSVMSDOS, xlCSVWindows, xlDBF2,xlDBF3, xlDBF4, xlDIF, xlExcel2, xlExcel3, xlExcel4,xlExcel4Workbook, xlIntlAddIn, xlIntlMacro, xlNormal,xlSYLK, xlTemplate, xlText, xlTextMac, xlTextMSDOS,xlTextWindows, xlTextPrinter, xlWK1, xlWK3, xlWKS,xlWQ1, xlWK3FM3, xlWK1FMT, xlWK1ALL);{Add a blank WorkSheet}Function ExcelAddWorkSheet(Excel : Variant): Boolean;BeginResult := True;TryExcel.Worksheets.Add;ExceptMessageDlg('Unable to add a new worksheet', mtError, [mbOK], 0);Result := False;End;End;{Sets Excel Visibility}Function ExcelSetVisible(Excel : Variant;IsVisible: Boolean): Boolean;BeginResult := True;TryExcel.Visible := IsVisible;ExceptMessageDlg('Unable to Excel Visibility', mtError, [mbOK], 0);Result := False;End;End;{Close Excel}Function ExcelClose(Excel : Variant; SaveAll: Boolean): Boolean;BeginResult := True;TryExcelCloseWorkBooks(Excel, SaveAll);Excel.Quit;ExceptMessageDlg('Unable to Close Excel', mtError, [mbOK], 0);Result := False;End;End;{Close All Workbooks. All workbooks can be saved or not.}Function ExcelCloseWorkBooks(Excel : Variant; SaveAll: Boolean): Boolean;varloop: byte;BeginResult := True;TryFor loop := 1 to Excel.Workbooks.Count DoExcel.Workbooks[1].Close[SaveAll];ExceptResult := False;End;End;{Selects an Excel Sheet By Name}Function ExcelSelectSheetByName(Excel : Variant; SheetName: String): Boolean;BeginResult := True;TryExcel.Sheets[SheetName].Select;ExceptResult := False;End;End;{Selects a cell on the currently active sheet}Function ExcelSelectCell(Excel : Variant; RowNum, ColNum: Integer): Boolean;BeginResult := True;TryExcel.ActiveSheet.Cells[RowNum, ColNum].Select;ExceptResult := False;End;End;{Returns the contents of a cell as a shortstring}Function ExcelGetCellValue(Excel : Variant; RowNum, ColNum: Integer): ShortString;BeginResult := '';TryResult := Excel.Cells[RowNum, ColNum].Value;ExceptResult := '';End;End;{Returns the the current row}Function ExcelGetRow(Excel : Variant): Integer;BeginResult := 1;