sFileName := lSaveDialog.FileName;
RowCount := FDataGrid.SelectedCount;
o := ComObj.CreateOleObject('Excel.Application');
app := DispatchHelper.Create(o);
app.PropertyPut('Visible', [false]);
Workbooks := DispatchHelper.Create(app.PropertyGet('Workbooks', []));
Worksheets := DispatchHelper.Create(Workbooks.InvokeMethod('Open', [lSaveDialog.FileName]));
sheet := DispatchHelper.Create(Worksheets.PropertyGet('Worksheets', [1]));
sheet.InvokeMethod('Select', []);
//取使用范围的行数
UsedRange := DispatchHelper.Create(sheet.PropertyGet('UsedRange', []));
Cells := DispatchHelper.Create(UsedRange.PropertyGet('Cells', []));
Rows := DispatchHelper.Create(Cells.PropertyGet('Rows', []));
RowCount := objecthelper.ToInt(Rows.PropertyGet('count', []));
for i := 1 to RowCount do
begin
tRow := DispatchHelper.Create(sheet.PropertyGet('Rows', ));
TFont := DispatchHelper.Create(tRow.PropertyGet('Font', []));
TFont.PropertyPut('name', ['宋体']);
TFont.PropertyPut('size', [12]);
end;
app.InvokeMethod('Save', []);
Workbooks.InvokeMethod('Close', []);
(o as System.IDisposable).Dispose; |