Delphi Ole excel container, Save Xlsx file

 
uses ComObj, Excel;

var Excel: OleVariant;
Excel := CreateOleObject('EXCEL.Application');
Excel.Application.Workbooks.Add;
Excel.Application.Workbooks[1].SaveAs('c:\test.xlsx', xlWorkbookDefault); // or xlOpenXMLWorkbook (51)
Excel.Application.Quit;

-----------------------------------------

unit Excel;

interface

uses Windows, Activex;
// originally from Excel97.pas
// XlFileFormat constants

type
  XlFileFormat = TOleEnum;
const
  xlAddIn = $00000012;
  xlCSV = $00000006;
  xlCSVMac = $00000016;
  xlCSVMSDOS = $00000018;
  xlCSVWindows = $00000017;
  xlDBF2 = $00000007;
  xlDBF3 = $00000008;
  xlDBF4 = $0000000B;
  xlDIF = $00000009;
  xlExcel2 = $00000010;
  xlExcel2FarEast = $0000001B;
  xlExcel3 = $0000001D;
  xlExcel4 = $00000021;
  xlExcel5 = $00000027;
  xlExcel7 = $00000027;
  xlExcel9795 = $0000002B;
  xlExcel4Workbook = $00000023;
  xlIntlAddIn = $0000001A;
  xlIntlMacro = $00000019;
  xlWorkbookNormal = $FFFFEFD1;
  xlSYLK = $00000002;
  xlTemplate = $00000011;
  xlCurrentPlatformText = $FFFFEFC2;
  xlTextMac = $00000013;
  xlTextMSDOS = $00000015;
  xlTextPrinter = $00000024;
  xlTextWindows = $00000014;
  xlWJ2WD1 = $0000000E;
  xlWK1 = $00000005;
  xlWK1ALL = $0000001F;
  xlWK1FMT = $0000001E;
  xlWK3 = $0000000F;
  xlWK4 = $00000026;
  xlWK3FM3 = $00000020;
  xlWKS = $00000004;
  xlWorks2FarEast = $0000001C;
  xlWQ1 = $00000022;
  xlWJ3 = $00000028;
  xlWJ3FJ3 = $00000029;
  xlExcel12 =50;
  xlExcel8 = 56;
  xlHtml = 44;
  xlOpenXMLAddIn = 55;
  xlOpenXMLTemplate = 54;
  xlOpenXMLTemplateMacroEnabled = 53;
  xlOpenXMLWorkbook = 51;
  xlOpenXMLWorkbookMacroEnabled = 52;
  xlTemplate8 = 17;
  xlUnicodeText = 42;
  xlWebArchive = 45;
  xlWorkbookDefault = 51;
  xlXMLSpreadsheet = 46;

implementation
end.

轉貼至 https://stackoverflow.com/questions/9067053/delphi-ole-excel-container-save-file

XlFileFormat 枚举 (Excel)

• 2019/01/02
• • 

指定保存工作表时的文件格式。

XLFILEFORMAT 枚举 (EXCEL)

名称	值	说明	扩展名
xlAddIn	18	Microsoft Excel 97-2003 外接程序	*.xla
xlAddIn8	18	Microsoft Excel 97-2003 外接程序	*.xla
xlCSV	6	CSV	*.csv
xlCSVMac	22	Macintosh CSV	*.csv
xlCSVMSDOS	24	MSDOS CSV	*.csv
xlCSVUTF8	62	UTF8 CSV	*.csv
xlCSVWindows	23	Windows CSV	*.csv
xlCurrentPlatformText	-4158	当前平台文本	*.txt
xlDBF2	7	Dbase 2 格式	*.dbf
xlDBF3	8	Dbase 3 格式	*.dbf
xlDBF4	11	Dbase 4 格式	*.dbf
xlDIF	9	数据交换格式	*.dif
xlExcel12	50	Excel 二进制工作簿	*.xlsb
xlExcel2	16	Excel 版本 2.0 (1987)	*.xls
xlExcel2FarEast	27	Excel 版本 2.0 中文 (1987)	*.xls
xlExcel3	29	Excel 版本 3.0 (1990)	*.xls
xlExcel4	33	Excel 版本 4.0 (1992)	*.xls
xlExcel4Workbook	35	Excel 版本 4.0 工作簿格式 (1992)	*.xlw
xlExcel5	39	Excel 版本 5.0 (1994)	*.xls
xlExcel7	39	Excel 95（版本 7.0）	*.xls
xlExcel8	56	Excel 97-2003 工作簿	*.xls
xlExcel9795	43	Excel 版本 95 和 97	*.xls
xlHtml	44	HTML 格式	.htm；.html
xlIntlAddIn	26	国际外接程序	无文件扩展名
xlIntlMacro	25	国际宏	无文件扩展名
xlOpenDocumentSpreadsheet	60	OpenDocument 电子表格	*.ods
xlOpenXMLAddIn	55	Open XML 外接程序	*.xlam
xlOpenXMLStrictWorkbook	61 (&H3D)	Strict Open XML 文件	*.xlsx
xlOpenXMLTemplate	54	Open XML 模板	*.xltx
xlOpenXMLTemplateMacroEnabled	53	启用 Open XML 模板宏	*.xltm
xlOpenXMLWorkbook	51	Open XML 工作簿	*.xlsx
xlOpenXMLWorkbookMacroEnabled	52	启用 Open XML 工作簿宏	*.xlsm
xlSYLK	2	符号链接格式	*.slk
xlTemplate	17	Excel 模板格式	*.xlt
xlTemplate8	17	模板 8	*.xlt
xlTextMac	19	Macintosh 文本	*.txt
xlTextMSDOS	21	MSDOS 文本	*.txt
xlTextPrinter	36	打印机文本	*.prn
xlTextWindows	20	Windows 文本	*.txt
xlUnicodeText	42	Unicode 文本	无文件扩展名；*.txt
xlWebArchive	45	Web 档案	.mh；.mhtml
xlWJ2WD1	14	日语 1-2-3	*.wj2
xlWJ3	40	日语 1-2-3	*.wj3
xlWJ3FJ3	41	日语 1-2-3 格式	*.wj3
xlWK1	5	Lotus 1-2-3 格式	*.wk1
xlWK1ALL	31	Lotus 1-2-3 格式	*.wk1
xlWK1FMT	30	Lotus 1-2-3 格式	*.wk1
xlWK3	15	Lotus 1-2-3 格式	*.wk3
xlWK3FM3	32	Lotus 1-2-3 格式	*.wk3
xlWK4	38	Lotus 1-2-3 格式	*.wk4
xlWKS	4	Lotus 1-2-3 格式	*.wks
xlWorkbookDefault	51	默认工作簿	*.xlsx
xlWorkbookNormal	-4143	常规工作簿	*.xls
xlWorks2FarEast	28	Microsoft Works 2.0 两端对齐格式	*.wks
xlWQ1	34	Quattro Pro 格式	*.wq1
xlXMLSpreadsheet	46	XML 电子表格	*.xml

轉貼至:https://docs.microsoft.com/zh-cn/office/vba/api/excel.xlfileformat

Load a stream containing HTML code into a TWebBrowser

procedure LoadStream(WebBrowser: TWebBrowser; Stream: TStream);
var
  PersistStreamInit: IPersistStreamInit;
  StreamAdapter: IStream;
  MemoryStream: TMemoryStream;
begin
  {Load empty HTML document into Webbrowser to make "Document" a valid HTML document}
  WebBrowser.Navigate('about:blank');
  {wait until finished loading}
  repeat
    Application.ProcessMessages;
    Sleep(0);
  until
    WebBrowser.ReadyState = READYSTATE_COMPLETE;
  {Get IPersistStreamInit - Interface}
  if WebBrowser.Document.QueryInterface(IPersistStreamInit, PersistStreamInit) = S_OK then
  begin
    {Clear document}
    if PersistStreamInit.InitNew = S_OK then
    begin
      {Make local copy of the contents of Stream if you want to use Stream directly,
                        you have to consider, that StreamAdapter will destroy it automatically}
      MemoryStream := TMemoryStream.Create;
      try
        MemoryStream.CopyFrom(Stream, 0);
        MemoryStream.Position := 0;
      except
        MemoryStream.Free;
        raise;
      end;
      {Use Stream-Adapter to get IStream Interface to our stream}
      StreamAdapter := TStreamAdapter.Create(MemoryStream, soOwned);
      {Load data from Stream into WebBrowser}
      PersistStreamInit.Load(StreamAdapter);
    end;
  end;
end;

參考至 http://www.devsuperpage.com/Articles/views/Delphi/Art_1-2146.asp