1\uff0e\u5f15\u8a00<\/p>\n
\u5728\u5229\u7528Delphi\u5f00\u53d1\u5e94\u7528\u7a0b\u5e8f\u7684\u65f6\u5019\uff0c\u901a\u5e38\u6211\u4eec\u8981\u8bbe\u8ba1\u51fa\u5f88\u591a\u5404\u79cd\u683c\u5f0f\u7684\u6587\u6863\u3001\u62a5\u8868\uff0c\u7ecf\u5e38\u8981\u8fdb\u884c\u6587\u4ef6\u7684\u521b\u5efa\u3001\u7f16\u8f91\u53ca\u4fee\u6539\uff0c\u867d\u7136Delphi\u672c\u8eab\u63d0\u4f9b\u4e86\u5f88\u591a\u8bbe\u8ba1\u62a5\u8868\u7684\u63a7\u4ef6\u6216\u65b9\u6cd5\uff0c\u4f46\u662f\u5b58\u5728\u660e\u663e\u7684\u4e0d\u8db3\uff0c\u6bd4\u5982\u4e2d\u6587\u8f93\u5165\uff0c\u6570\u636e\u683c\u5f0f\u7684\u63a7\u5236\u7b49\u64cd\u4f5c\u8d77\u6765\u6bd4\u8f83\u9ebb\u70e6\u3002\u5229\u7528\u5927\u5bb6\u90fd\u5f88\u719f\u6089\u7684Office\u5de5\u5177\u7ed3\u5408\u5f00\u53d1\uff0c\u80fd\u591f\u5f88\u597d\u7684\u89e3\u51b3\u8fd9\u65b9\u9762\u7684\u95ee\u9898\u3002\u4ee5\u4e0b\u5c31\u4ee5Delphi\u4e3a\u4f8b\u8be6\u7ec6\u4ecb\u7ecd\u600e\u4e48\u5229\u7528Office\u5b8c\u6210\u5404\u79cd\u6587\u6863\u3001\u62a5\u8868\u7684\u5236\u4f5c\u3002<\/p>\n
2\uff0e\u5b9e\u73b0\u65b9\u6cd5<\/p>\n
\u5229\u7528Delphi\u548cOffice\u7ed3\u5408\u5f00\u53d1\u4e3b\u8981\u6709\u4ee5\u4e0b\u4e09\u79cd\u65b9\u6cd5\uff1a<\/p>\n
(1) \u901a\u8fc7Delphi\u7684\u63a7\u4ef6TOleContainer \u5c06Office\u5d4c\u5165\uff0c\u8fd9\u662f\u6700\u7b80\u5355\u7684Ole\u5d4c\u5165\uff0c\u80fd\u591f\u76f4\u63a5\u5c06Office\u6587\u6863\u8c03\u7528\uff0c\u53ea\u9700\u8981\u4f7f\u7528ToleContainer.Run\u5c31\u53ef\u4ee5\u5c06Office\u6587\u6863\u76f4\u63a5\u542f\u52a8\u3002\u4e14\u8fd9\u6837\u542f\u52a8\u7684Office\u6587\u6863\u4e0eDelphi\u7a0b\u5e8f\u662f\u4e00\u4e2a\u6574\u4f53\uff08\u4ece\u754c\u9762\u4e0a\u770b\uff09\uff0c\u4f46\u662f\u5b83\u5b58\u5728\u4e0d\u53ef\u514b\u670d\u7684\u7f3a\u70b9\uff0c\u5373\u4e0d\u80fd\u901a\u8fc7Delphi\u63a7\u5236Office\u6587\u6863\uff0c\u4e5f\u5c31\u4e0d\u80fd\u5b9e\u73b0\u5c06\u7075\u6d3b\u64cd\u7eb5Office\u7684\u76ee\u7684\u3002<\/p>\n
(2) \u4f7f\u7528Delphi\u63d0\u4f9b\u7684Servers\u63a7\u4ef6\u8c03\u7528Office\uff0c\u4f7f\u7528Office\u7684\u5c5e\u6027\uff0c\u4f7f\u7528Delphi\u7684Servers\u63a7\u4ef6\u6765\u64cd\u7eb5Office\uff0c\u5728\u7f16\u7a0b\u65f6Delphi\u80fd\u591f\u5b9e\u73b0\u4ee3\u7801\u63d0\u793a\uff0c\u603b\u4f53\u4e0a\u770b\u80fd\u591f\u8f83\u597d\u7684\u5b9e\u73b0Delphi\u5bf9Office\u7684\u63a7\u5236\uff0c\u4f46\u662f\u8fd8\u6709\u4e00\u4e9bOffice\u7684\u529f\u80fd\u4e0d\u80fd\u5728Delphi\u4e2d\u8c03\u7528\uff08\u6bd4\u5982\u81ea\u5df1\u7f16\u5199\u7684VBA\u5b8f\u4ee3\u7801\uff09\u3002\u4e14\u5b9e\u73b0\u529f\u80fd\u65f6\u672c\u6765\u5728VBA\u4ee3\u7801\u4e2d\u53ef\u9009\u62e9\u53c2\u6570\u5728Delphi\u8c03\u7528\u7684\u65f6\u5019\u5fc5\u987b\u6dfb\u52a0\uff0c\u5426\u5219\uff0c\u8fde\u7f16\u8bd1\u90fd\u4e0d\u80fd\u901a\u8fc7\u3002\u8fd9\u79cd\u65b9\u5f0f\u542f\u52a8\u7684Office\u4e0eDelphi\u7a0b\u5e8f\u5206\u5c5e\u4e24\u4e2a\u7a97\u4f53\u3002<\/p>\n
\u3000\u3000(3) \u4f7f\u7528CreateOleObject\u5c06\u542f\u52a8Office\uff0c\u7136\u540e\u4ee5Ole\u65b9\u5f0f\u5bf9Office\u8fdb\u884c\u63a7\u5236\u3002\u8fd9\u79cd\u529e\u6cd5\u662f\u4f7f\u7528\u4ee5CreateOleObjects\u65b9\u5f0f\u8c03\u7528Office\uff0c\u5b9e\u9645\u4e0a\u8fd8\u662fOle\uff0c\u4f46\u662f\u8fd9\u79cd\u65b9\u5f0f\u80fd\u591f\u771f\u6b63\u505a\u5230\u5b8c\u5168\u63a7\u5236Office\u6587\u4ef6\uff0c\u80fd\u591f\u4f7f\u7528Office\u7684\u6240\u6709\u5c5e\u6027\uff0c\u5305\u62ec\u81ea\u5df1\u7f16\u5199\u7684VBA\u5b8f\u4ee3\u7801\u3002\u4e0eServers\u63a7\u4ef6\u548cCom\u6280\u672f\u76f8\u6bd4\uff0c\u672c\u65b9\u6cd5\u80fd\u591f\u771f\u6b63\u5730\u4f7f\u7528Office\u7684\u5404\u79cd\u5c5e\u6027\uff0c\u548c\u5728VBA\u4e2d\u7f16\u5199\u81ea\u5df1\u7684\u4ee3\u7801\u57fa\u672c\u4e00\u6837\uff0c\u53ef\u4ee5\u7f3a\u7701\u7684\u4ee3\u7801\u4e5f\u4e0d\u9700\u8981\u4f7f\u7528\u3002<\/p>\n
3\uff0e\u8f6f\u4ef6\u5b9e\u73b0<\/p>\n
3\uff0e1\u7b2c\u4e00\u79cd\u65b9\u6cd5\uff1a\u901a\u8fc7Delphi\u7684\u63a7\u4ef6TOleContainer \u5c06Office\u5d4c\u5165\uff0c\u64cd\u4f5c\u65b9\u6cd5\u5982\u4e0b\uff1a<\/p>\n
\uff081\uff09 \u8c03\u7528Delphi\u4e2dSystem\u9875\u63a7\u4ef6ToleContainer\u5b9e\u73b0\uff1b<\/p>\n
\uff082\uff09 \u53cc\u51fbOleContainer\uff0c\u51fa\u73b0\u5982\u4e0b\u754c\u9762\uff1a<\/p>\n
(3)\u8fd9\u65f6\u4f60\u53ef\u4ee5\u8fdb\u884c\u9009\u62e9\u4e86\uff0c\u9009\u62e9\u201c\u7531\u6587\u4ef6\u521b\u5efa\u201d\uff0c\u9009\u62e9\u76f8\u5e94\u7684\u6587\u6863\uff0c\u53ca\u5c31\u7b80\u5355\u7684\u5b9e\u73b0\u4e86\u5c06OFFICE\u6587\u6863\u8c03\u5165\u7684\u529f\u80fd\uff1b\u5982\u4e0b\u56fe\uff1a<\/p>\n
3\uff0e2\u7b2c\u4e8c\u79cd\u65b9\u6cd5\uff1a\u4f7f\u7528Delphi\u63d0\u4f9b\u7684Servers\u63a7\u4ef6\u8c03\u7528Office\uff1b\u5b83\u4f7f\u5f97\u6211\u4eec\u5f88\u5bb9\u6613\u5730\u628aOffice\u4e2d\u7684\u5e94\u7528\u7a0b\u5e8f(Word, Excel, PowerPoint, Outlook and Access\u7b49)\u5f53\u4f5c\u4e00\u4e2acom\u5e94\u7528\u670d\u52a1\u5668\u8fdb\u884c\u63a7\u5236\uff0c\u4ee5Word\u4e3a\u4f8b\uff0c\u4ecb\u7ecd\u5176\u5b9e\u73b0\u65b9\u6cd5\uff1a<\/p>\n
\uff081\uff09 \u8c03\u7528TwordDocument\uff08\u5efa\u7acbWord\u6587\u4ef6\u5bf9\u8c61\uff09\u3001TwordApplication\uff08\u542f\u52a8Word\u5e76\u5efa\u7acb\u540cWord\u7684\u8fde\u63a5\uff09 \u3001TwordFont\uff08\u8bbe\u7f6eWord\u6587\u4ef6\u7684\u5b57\u4f53\uff09\u3001TwordParagraphFormat\uff08\u8bbe\u7f6eWord\u6587\u4ef6\u4e2d\u7684\u6bb5\u843d\u683c\u5f0f\uff09\u63a7\u4ef6\uff1b<\/p>\n
\uff082\uff09 \u542f\u52a8Word\uff0c\u901a\u8fc7TwordApplication\u5b9e\u73b0\uff1b<\/p>\n
Try<\/p>\n
Wordapplication.Connect;<\/p>\n
Except<\/p>\n
MessageDlg('Word may not be installed', mtError, [mbOk], 0);<\/p>\n
Abort;<\/p>\n
End;<\/p>\n
(3)\u521b\u5efa\u4e00\u4e2a\u65b0\u7684\u6587\u4ef6\uff0c\u901a\u8fc7TwordApplication\u5b9e\u73b0\uff1b<\/p>\n
Template := EmptyParam; \/\/\u8868\u793a\u4e0d\u4f7f\u7528\u6a21\u677f<\/p>\n
NewTemplate := False; \/\/\u8868\u793a\u65b0\u5efa\u65b0\u5efa\u6587\u6863\u7684\u7c7b\u578b\u4e3a\u6587\u6863\uff0c<\/p>\n
\/\/\u6dfb\u52a0\u65b0\u6587\u6863<\/p>\n
WordApplication.Documents.Add(Template, NewTemplate); WordDocument.ConnectTo(WordApplication.Documents.Item(ItemIndex));<\/p>\n
\/\/\u5173\u95ed\u62fc\u97f3\u67e5\u627e\u548c\u8bed\u6cd5\u67e5\u627e\uff0c\u4ee5\u4fbf\u63d0\u9ad8\u7a0b\u5e8f\u8fd0\u884c\u7684\u6548\u7387<\/p>\n
WordApplication.Options.CheckSpellingAsYouType := False;<\/p>\n
WordApplication.Options.CheckGrammarAsYouType := False;<\/p>\n
\uff083\uff09 \u63d2\u5165\u6570\u636e\uff0c\u901a\u8fc7TwordDocument\u5b9e\u73b0\uff1b<\/p>\n
\/\/\u6587\u672c<\/p>\n
WordDocument.Range.InsertAfter('Oracle\u6570\u636e\u5e93'+ chr(#13));<\/p>\n
\/\/\u8868\u683c<\/p>\n
WordDocument1.Tables.Add(WordDocument1.Range,rownum,colnum,template,newtemplate); \/\/\u5176\u4e2drownum\u662f\u8868\u683c\u884c\u6570\uff0ccolnum \u662f\u8868\u683c\u5217\u6570<\/p>\n
\/\/\u5411\u8868\u683c\u4e2d\u63d2\u5165\u6570\u636e<\/p>\n
WordDocument1.Tables.Item(1).Cell(1,1).Range.Text:='\u8bc1\u4e66\u7f16\u53f7';<\/p>\n
WordDocument1.Tables.Item(1).Cell(1,2).Range.Text:='\u8eab\u4efd\u8bc1\u53f7\u7801'<\/p>\n
\uff084\uff09 \u683c\u5f0f\u7684\u8bbe\u7f6e<\/p>\n
WordFont.ConnectTo(WordDocument.Sentences.GetLast.Font);\/\/\u8bbe\u7f6e\u67d0\u4e9b\u6587\u5b57<\/p>\n
WordFont.ConnectTo(WordDocument.Paragraphs.GetLast.Font);\/\/\u8bbe\u7f6e\u67d0\u6bb5\u6587\u5b57<\/p>\n
WordFont.Bold:=1;<\/p>\n
WordFont.Italic:=1;\u2026\u2026\u2026\u2026\u2026\u2026\u2026\u2026<\/p>\n
WordDocument1.PageSetup.HeaderDistance:=1.5; \/\/\u8bbe\u7f6e\u9875\u8fb9\u8ddd<\/p>\n
WordDocument1.PageSetup.FooterDistance:=1.75;<\/p>\n
\/\/\u8bbe\u7f6e\u9875\u7709\u9875\u811a <\/p>\n
WordDocument1.ActiveWindow.ActivePane.View.SeekView:=wdSeekCurrentPageFooter; WordDocument1.ActiveWindow.ActivePane.Selection.InsertAfter('\u7b2c'+inttostr(wdFieldNumPages)+'\u9875');<\/p>\n
\/\/\u8ba9\u9875\u811a\u5411\u53f3\u9760\u9f50<\/p>\n
WordDocument1.ActiveWindow.ActivePane.Selection.ParagraphFormat.Alignment:=wdAlignParagraphRight;<\/p>\n
\u2026\u2026\u2026\u2026\u2026\u2026\u2026\u2026\u2026\u2026<\/p>\n
3\uff0e3\u7b2c\u4e09\u79cd\u65b9\u6cd5\uff1a\u4f7f\u7528CreateOleObject\u5c06\u542f\u52a8Office\uff0c\u7136\u540e\u4ee5Ole\u65b9\u5f0f\u5bf9Office\u8fdb\u884c\u63a7\u5236\u3002\u4ee5Excel\u8868\u683c\u4e3a\u4f8b\uff08\u8868\u683c\u7684\u683c\u5f0f\u53ef\u4ee5\u662f\u4e8b\u5148\u8bbe\u5b9a\u597d\u7684\uff0c\u4e5f\u53ef\u4ee5\u662f\u81ea\u5df1\u81ea\u7531\u5b9a\u4e49\u7684\uff0c\u8fd9\u91cc\u4ee5\u4e8b\u5148\u8bbe\u5b9a\u597d\u8868\u683c\u7684\u683c\u5f0f\u4e3a\u4f8b\uff09\uff0c\u8fdb\u884c\u8bf4\u660e\uff1a<\/p>\n
\uff081\uff09 \u5728Uses\u4e2d\u6dfb\u52a0Comobj\u7c7b\uff1b<\/p>\n
\uff082\uff09 \u7533\u8bf7\u4e00\u4e2a\u5168\u5c40\u53d8\u91cf\uff1aFvExcel \uff0c\u7c7b\u578b\u4e3aVariant; \u8868\u793a\u662fExcel\u5bf9\u8c61<\/p>\n
\uff083\uff09 \u5b9a\u4e49\u4e00\u4e2a\u51fd\u6570\u7528\u6765\u542f\u52a8Excel\uff0c\u5982\u5b9a\u4e49function OpenExcel(strFileName : string) : Boolean;<\/p>\n
Function Tform1. OpenExcel(strFileName : string) : Boolean;<\/p>\n
begin<\/p>\n
Result := True;<\/p>\n
try<\/p>\n
FvExcel := CreateOleObject('Excel.Application');<\/p>\n
except<\/p>\n
Application.MessageBox('\u6253\u5f00Excel\u5931\u8d25',PChar(Application.Title),MB_ICONERROR);<\/p>\n
Result := False;<\/p>\n
end;<\/p>\n
FvExcel.Visible := True;<\/p>\n
FvExcel.Caption := '';<\/p>\n
FvExcel.WorkBooks.Open(strFileName); \/\/\u6253\u5f00\u5de5\u4f5c\u7c3f<\/p>\n
FvExcel.WorkSheets[1].Activate; \/\/\u8bbe\u7f6e\u7b2c1\u4e2a\u5de5\u4f5c\u8868\u4e3a\u6d3b\u52a8\u5de5\u4f5c\u8868<\/p>\n
end;<\/p>\n
\uff084\uff09 \u5411FvExcel\u4e2d\u63d2\u5165\u6570\u636e<\/p>\n
FvExcel.cells[row,col].value:=\u2019\u4e2d\u56fd\u2019;\/\/row\u8868\u793a\u884c\uff0ccol\u8868\u793a\u5217\uff1b<\/p>\n
\uff085\uff09 \u8bbe\u7f6e\u683c\u5f0f<\/p>\n
fvexcel.rows[row].font.color:=clred; \/\/\u8bbe\u7f6e\u67d0\u4e00\u884c\u6570\u636e\u7684\u989c\u8272<\/p>\n
fvexcel.ActiveSheet.PageSetup.LeftMargin:=1;\/\/\u8bbe\u7f6e\u5de6\u9875\u8fb9\u8ddd<\/p>\n
fvexcel.ActiveSheet.PageSetup. RightMargin:=1;\/\/\u8bbe\u7f6e\u53f3\u9875\u8fb9\u8ddd<\/p>\n
fvexcel.ActiveSheet.PageSetup.Zoom:=100;\/\/\u8bbe\u7f6e\u663e\u793a\u6bd4\u4f8b<\/p>\n
fvexcel.ActiveSheet.PageSetup.PaperSize:= xlPaperA4;\/\/\u8bbe\u7f6e\u6253\u5370\u7eb8\u5f20\u5927\u5c0f<\/p>\n
4\uff0e\u4e00\u4e9b\u4f53\u4f1a<\/p>\n
\u5728\u7a0b\u5e8f\u8bbe\u8ba1\u8fc7\u7a0b\u4e2d\uff0c\u6211\u4eec\u5f88\u591a\u65f6\u5019\u8981\u8bbe\u7f6eOffice\u6587\u6863\u3001\u8868\u683c\u7684\u683c\u5f0f\uff0c\u8fd9\u65f6\u8981\u7528\u5230\u5f88\u591a\u5c5e\u6027\u3001\u65b9\u6cd5\u548c\u51fd\u6570\u7b49\uff0c\u8fd9\u4e9b\u5c5e\u6027\u3001\u65b9\u6cd5\u548c\u51fd\u6570\u4e00\u822c\u662f\u5e73\u65f6\u5f88\u5c11\u7528\u5230\u7684\uff0c\u5982\u679c\u624b\u4e0a\u6ca1\u6709VBA\u624b\u518c\uff0c\u5f88\u96be\u67e5\u627e\u5230\u8fd9\u4e9b\u4e1c\u897f\uff0c\u6240\u4ee5\uff0c\u6bd4\u8f83\u597d\u7684\u65b9\u6cd5\u662f\u9996\u5148\u6253\u5f00OFFICE\uff0c\u4e8b\u5148\u505a\u597d\u4f60\u8981\u8bbe\u8ba1\u7684\u683c\u5f0f\uff0c\u901a\u8fc7OFFICE\u4e2d\u7684\u5b8f\u8bb0\u5f55\uff0c\u7136\u540e\u6253\u5f00OFFICE\u4e2d\u7684Visual Basic\u7f16\u8f91\u5668\uff0c\u67e5\u770b\u4ee3\u7801\u5c31\u53ef\u4ee5\u770b\u5230\u4f60\u7684\u64cd\u4f5c\u4f7f\u7528\u5230\u7684\u5c5e\u6027\u3001\u65b9\u6cd5\u6216\u8005\u51fd\u6570\u4e86\u3002\u901a\u5e38\u5f88\u591a\u5c5e\u6027\u3001\u51fd\u6570\u6216\u8005\u65b9\u6cd5\u53ef\u4ee5\u76f4\u63a5\u642c\u5230Delphi\u7a0b\u5e8f\u4e2d\u7528\uff0c\u4e00\u90e8\u5206\u4e5f\u53ea\u8981\u7a0d\u5fae\u4fee\u6539\uff0c\u4e5f\u53ef\u4ee5\u5728Delphi\u4e2d\u4f7f\u7528\u4e86\u3002<\/p>\n
5\uff0e\u7ed3\u675f\u8bed<\/p>\n
\u901a\u8fc7Delphi\u53ef\u4ee5\u5f88\u5b8c\u7f8e\u7684\u548cOffice\u7ed3\u5408\uff0c\u8bbe\u8ba1\u51fa\u5404\u79cd\u6837\u5f0f\u7684\u8868\u683c\u3001\u6587\u672c\u4ee5\u53ca\u5e7b\u706f\u7247\u7b49\u3002\u540c\u65f6\u901a\u8fc7Delphi\u64cd\u4f5c\u6570\u636e\u5e93\uff0c\u628a\u8981\u6c42\u7684\u6570\u636e\u63d2\u5165Office\u9002\u5f53\u7684\u4f4d\u7f6e\uff0c\u901a\u8fc7Office\u672c<\/p>\n","protected":false},"excerpt":{"rendered":"
1\uff0e\u5f15\u8a00 \u5728\u5229\u7528Delphi\u5f00\u53d1\u5e94\u7528\u7a0b\u5e8f\u7684\u65f6\u5019\uff0c\u901a\u5e38\u6211\u4eec\u8981\u8bbe…<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_lmt_disableupdate":"","_lmt_disable":"","footnotes":""},"categories":[100],"tags":[],"class_list":["post-269","post","type-post","status-publish","format-standard","hentry","category-nothing"],"_links":{"self":[{"href":"https:\/\/fanhaijun.com\/index.php?rest_route=\/wp\/v2\/posts\/269","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/fanhaijun.com\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/fanhaijun.com\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/fanhaijun.com\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/fanhaijun.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=269"}],"version-history":[{"count":0,"href":"https:\/\/fanhaijun.com\/index.php?rest_route=\/wp\/v2\/posts\/269\/revisions"}],"wp:attachment":[{"href":"https:\/\/fanhaijun.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=269"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/fanhaijun.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=269"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/fanhaijun.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=269"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}