С Рождеством Вас.
Помогите с проблемой. Надо из StringGrid в Delphi сохраноть таблицу XL с нужным размером столбца.
Знаю, что (Макрос записан так /Columns("E:E").EntireColumn.AutoFit/) тут для колонки "Е".
У меня 4 колонки.
procedure TForm1.Button9Click(Sender: TObject);
begin
R:=StringGrid1.RowCount;
C:=StringGrid1.ColCount;
TabGrid:=VarArrayCreate([0,R-1,0,C-1],VarOleStr);
for x:=0 to r-1 do
for y:=0 to C-1 do TabGrid[x,y]:=StringGrid1.Cells[y,x];
IIndex:=1;
XLApp.Connect;
XLApp.WorkBooks.Add(xlWBatWorkSheet,0);
WorkBk:=XLApp.WorkBooks.Item[IIndex];
WorkSheet:=WorkBk.WorkSheets.Get_Item(1) as _WorkSheet;
// надо тут поменять вот только как?
with WorkSheet.Range['A1',Worksheet.Cells.Item[R,C]] do
begin
Formula:=TabGrid;
Borders[xlEdgeTop].LineStyle:=xlContinuous;
Borders[xlEdgeTop].Weight:=xlThin;
Borders[xlEdgeTop].ColorIndex:=xlAutomatic;
Borders[xlEdgeLeft].LineStyle:=xlContinuous;
Borders[xlEdgeLeft].Weight:=xlThin;
Borders[xlEdgeLeft].ColorIndex:=xlAutomatic;
Borders[xlEdgeRight].LineStyle:=xlContinuous;
Borders[xlEdgeRight].Weight:=xlThin;
Borders[xlEdgeRight].ColorIndex:=xlAutomatic;
Borders[xlEdgeBottom].LineStyle:=xlContinuous;
Borders[xlEdgeBottom].Weight:=xlThin;
Borders[xlEdgeBottom].ColorIndex:=xlAutomatic;
Borders[xlInsideVertical].LineStyle:=xlContinuous;
Borders[xlInsideVertical].Weight:=xlThin;
Borders[xlInsideVertical].ColorIndex:=xlAutomatic;
Borders[xlInsideHorizontal].LineStyle:=xlContinuous;
Borders[xlInsideHorizontal].Weight:=xlThin;
Borders[xlInsideHorizontal].ColorIndex:=xlAutomatic;
end;
for x:=1 to r do
begin
if x mod 2=0 then
worksheet.Range['a'+inttostr(x),'d'+inttostr(x)].Interior.ColorIndex:=0;
CODE
worksheet.Range['a'+inttostr(x),'d'+inttostr(x)].EntireColumn.AutoFit;
end;
if savedialog1.Execute
then
XLApp.Workbooks[1].SaveAs( savedialog1.FileName , emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,0,emptyparam,
emptyparam,emptyparam,emptyparam,emptyparam,0);
XLApp.Quit;
XLApp.Disconnect;
TabGrid:=Unassigned;
end;
Разобрался - пользуйтесь.
))
- а то я учил C++Builder (тот же принцип)
