用Delphi创建各种文件
来源:互联网 发布:手机淘宝卡 编辑:程序博客网 时间:2024/04/29 13:22
1)word :procedure TForm1.Button1Click(Sender: object);
var MSWord: Variant;
begin
MSWord := CreateOLEObject('Word.Application');//连接Word ,须要在use后加ComObj
MSWord.Documents.Open(FileName:='d:\abc.doc',
ReadOnly:=True);//打开外部Word文档
MSWord.Visible := 1;//是否显示文件编辑
end;
2)excel:
首先创建 Excel 对象,使用ComObj:
var ExcelApp: Variant;
ExcelApp := CreateOleObject( 'Excel.Application' );
1) 显示当前窗口:
ExcelApp.Visible := True;
2) 更改 Excel 标题栏:
ExcelApp.Caption := '应用程序调用 Microsoft Excel';
3) 添加新工作簿:
ExcelApp.WorkBooks.Add;
4) 打开已存在的工作簿:
ExcelApp.WorkBooks.Open( 'C:\Excel\Demo.xls' );
5) 设置第2个工作表为活动工作表:
ExcelApp.WorkSheets[2].Activate;
或
ExcelApp.WorksSheets[ 'Sheet2' ].Activate;
6) 给单元格赋值:
ExcelApp.Cells[1,4].Value := '第一行第四列';
7) 设置指定列的宽度(单位:字符个数),以第一列为例:
ExcelApp.ActiveSheet.Columns[1].ColumnWidth := 5;
8) 设置指定行的高度(单位:磅)(1磅=0.035厘米),以第二行为例:
ExcelApp.ActiveSheet.Rows[2].RowHeight := 1/0.035; // 1厘米
9) 在第8行之前插入分页符:
ExcelApp.WorkSheets[1].Rows[8].PageBreak := 1;
10) 在第8列之前删除分页符:
ExcelApp.ActiveSheet.Columns[4].PageBreak := 0;
11) 指定边框线宽度:
ExcelApp.ActiveSheet.Range[ 'B3:D4' ].Borders[2].Weight := 3;
1-左 2-右 3-顶 4-底 5-斜( \ ) 6-斜( / )
12) 清除第一行第四列单元格公式:
ExcelApp.ActiveSheet.Cells[1,4].ClearContents;
13) 设置第一行字体属性:
ExcelApp.ActiveSheet.Rows[1].Font.Name := '隶书';
ExcelApp.ActiveSheet.Rows[1].Font.Color := clBlue;
ExcelApp.ActiveSheet.Rows[1].Font.Bold := True;
ExcelApp.ActiveSheet.Rows[1].Font.UnderLine := True;
3)很少人做 不过也同理
4)mdb:
procedure TSDIAppForm.CreateMDB(DBName: string); // 系统需要安装 MADAC
var
CreateAccess: OleVariant;
begin
CreateAccess := CreateOleObject('ADOX.Catalog');
CreateAccess.Create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + DBName);
end;
5)txt:tstringlist.savetofile('c:\a.txt');
var MSWord: Variant;
begin
MSWord := CreateOLEObject('Word.Application');//连接Word ,须要在use后加ComObj
MSWord.Documents.Open(FileName:='d:\abc.doc',
ReadOnly:=True);//打开外部Word文档
MSWord.Visible := 1;//是否显示文件编辑
end;
2)excel:
首先创建 Excel 对象,使用ComObj:
var ExcelApp: Variant;
ExcelApp := CreateOleObject( 'Excel.Application' );
1) 显示当前窗口:
ExcelApp.Visible := True;
2) 更改 Excel 标题栏:
ExcelApp.Caption := '应用程序调用 Microsoft Excel';
3) 添加新工作簿:
ExcelApp.WorkBooks.Add;
4) 打开已存在的工作簿:
ExcelApp.WorkBooks.Open( 'C:\Excel\Demo.xls' );
5) 设置第2个工作表为活动工作表:
ExcelApp.WorkSheets[2].Activate;
或
ExcelApp.WorksSheets[ 'Sheet2' ].Activate;
6) 给单元格赋值:
ExcelApp.Cells[1,4].Value := '第一行第四列';
7) 设置指定列的宽度(单位:字符个数),以第一列为例:
ExcelApp.ActiveSheet.Columns[1].ColumnWidth := 5;
8) 设置指定行的高度(单位:磅)(1磅=0.035厘米),以第二行为例:
ExcelApp.ActiveSheet.Rows[2].RowHeight := 1/0.035; // 1厘米
9) 在第8行之前插入分页符:
ExcelApp.WorkSheets[1].Rows[8].PageBreak := 1;
10) 在第8列之前删除分页符:
ExcelApp.ActiveSheet.Columns[4].PageBreak := 0;
11) 指定边框线宽度:
ExcelApp.ActiveSheet.Range[ 'B3:D4' ].Borders[2].Weight := 3;
1-左 2-右 3-顶 4-底 5-斜( \ ) 6-斜( / )
12) 清除第一行第四列单元格公式:
ExcelApp.ActiveSheet.Cells[1,4].ClearContents;
13) 设置第一行字体属性:
ExcelApp.ActiveSheet.Rows[1].Font.Name := '隶书';
ExcelApp.ActiveSheet.Rows[1].Font.Color := clBlue;
ExcelApp.ActiveSheet.Rows[1].Font.Bold := True;
ExcelApp.ActiveSheet.Rows[1].Font.UnderLine := True;
3)很少人做 不过也同理
4)mdb:
procedure TSDIAppForm.CreateMDB(DBName: string); // 系统需要安装 MADAC
var
CreateAccess: OleVariant;
begin
CreateAccess := CreateOleObject('ADOX.Catalog');
CreateAccess.Create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + DBName);
end;
5)txt:tstringlist.savetofile('c:\a.txt');
0 0
- 用Delphi创建各种文件
- delphi的各种文件扩展名
- delphi学习-各种文件介绍
- ArcEngine,delphi创建shp文件
- Delphi创建Foxpro(DBF)文件
- Delphi 各种扩展名的文件的用途
- 用delphi创建数据库
- Delphi创建Excel文件常用操作
- Delphi 创建目录及写日志文件
- delphi 获取文件创建,修改时间
- delphi 获取文件创建,修改时间
- delphi 10.2 创建并使用资源文件
- 用Delphi创建服务程序
- 用Delphi创建服务程序
- 用Delphi创建服务程序
- 用Delphi创建服务程序
- 用Delphi创建服务程序
- 用Delphi创建服务程序
- ui thread
- Android笔记_02
- Android自定义View的实现方法,带你一步步深入了解View(四)
- NYOJ题目460 项链(矩阵相乘最大步数)
- MapReduce初级经典案例实现
- 用Delphi创建各种文件
- leetcode - Binary Tree Level Order Traversal
- 吴超Hadoop7天视频教程
- 重定向与请求转发的区别
- 利用apache的Commons-fileupload和Ajax实现文件上传进度条
- Android与PHP服务器交互
- JProfiler_SN 注册码
- 安卓系统自带的样式(android:theme)解析
- C\C++ 文件操作