在DELPHI+EXCEL中，怎样设置某一列的度？

[WWWWA]

在DELPHI+EXCEL中，怎样设置某一列的度？
谢谢！

[墨梅无痕]

var
ColumnRange: Variant;

begin
ColumnRange := ExcelApplication.Columns;
ColumnRange.Columns[1].ColumnWidth := 30;

// More function code
end;

[iroi]

看VBA，先用宏录下来，然后将VBA转换成PASCAL就可以了。

[墨梅无痕]

var
ColumnRange: Variant;

begin
ColumnRange := ExcelApplication.Columns;
ColumnRange.Columns[1].ColumnWidth := 30;

// More function code
end;

[Hs_Boy]

楼上的大虾，可以说的清楚一点么，，
我也想学习这方面的内容，
比如看VBA，怎么看，VBA是什么，具体可以解释一下么，
怎么样使用宏记录，
怎么样把VBA转换成PASCAL，
谢谢，
我的E-MAIL：[e-mail]

[JonHua]

procedure TfrmWaixStockmessage.ExportToExcel(Excel, Sheet: Variant; Srow: integer);
var
I:integer;
Range:String;
Year,Month,Day:Word;
begin
DecodeDate(Date,Year,Month,Day);
sheet.Columns[1].ColumnWidth:= 3.5;
sheet.Columns[2].ColumnWidth:=11;
Sheet.Columns[3].ColumnWidth:=14.5;
Sheet.Columns[4].ColumnWidth:=3.5;
Sheet.Columns[5].ColumnWidth:=8.5;
Sheet.Columns[6].ColumnWidth:=17;
Sheet.Columns[7].ColumnWidth:=12;
Range:= Format('%d:%d', [SRow, SRow]);
Sheet.Rows[Range].Select;
Excel.Selection.RowHeight:=25.5;
Range:=Format('%d:%d', [SRow + 1, SRow + 1]);
Sheet.Rows[Range].Select;
Excel.Selection.RowHeight:=25.5;
Range:= Format('%d:%d', [SRow + 4, SRow + 4]);
Sheet.Rows[Range].Select;
Excel.Selection.RowHeight:=39;
Range:= Format('%d:%d', [SRow + 5, SRow + 19]);
Sheet.Rows[Range].Select;
Excel.Selection.RowHeight:=19.5;
Range:= Format('A%d:G%d', [SRow + 4, SRow + 19]);
Sheet.Range[Range].Borders[9].ColorIndex:=1;
Sheet.Range[Range].Borders[9].Weight:=3;
Sheet.Range[Range].Borders[7].ColorIndex:=1;
Sheet.Range[Range].Borders[7].Weight:=3;
Sheet.Range[Range].Borders[8].ColorIndex:=1;
Sheet.Range[Range].Borders[8].Weight:=3;
Sheet.Range[Range].Borders[10].ColorIndex:=1;
Sheet.Range[Range].Borders[10].Weight:=3;
Sheet.Range[Range].Borders[12].ColorIndex:=1;
Sheet.Range[Range].Borders[12].Weight:=2;
Sheet.Range[Range].Borders[11].ColorIndex:=1;
Sheet.Range[Range].Borders[11].Weight:=2;
Range:= Format('B%d:G%d', [SRow + 20, SRow + 29]);
Sheet.Range[Range].Borders[9].ColorIndex:=1;
Sheet.Range[Range].Borders[9].Weight:=3;
Sheet.Range[Range].Borders[7].ColorIndex:=1;
Sheet.Range[Range].Borders[7].Weight:=3;
Sheet.Range[Range].Borders[8].ColorIndex:=1;
Sheet.Range[Range].Borders[8].Weight:=3;
Sheet.Range[Range].Borders[10].ColorIndex:=1;
Sheet.Range[Range].Borders[10].Weight:=3;
Range:=Format('A%d:G%d',[SRow, SRow + 29]);
Sheet.Range[Range].Font.Name:='楷体_GB2312';
Sheet.Range[Range].Font.Size:=12;
Sheet.Cells(SRow, 1):= '中川电气科技有限公司';
Sheet.Cells[SRow, 1].Font.Size:=20;
Sheet.Cells[SRow, 1].Font.Bold:=true;
Sheet.Cells(SRow, 6):=IntToStr(Year)+'年'+IntToStr(Month)+'月物资采购通知单';
Sheet.Cells[SRow, 6].Font.Name:='宋体';
Sheet.Cells(SRow + 1, 1):='物资供应部';
Sheet.Cells[SRow + 1, 1].Font.Size:=20;
Sheet.Cells[SRow + 1, 1].Font.Bold:=true;
Sheet.Cells(SRow + 1, 6):='通知单号：'+edt_TableNO.Text;
Sheet.Cells(SRow + 2, 1):='供 货';
Sheet.Cells(SRow + 2, 6):='计划单号：'+edt_StockTableNO.Text;
Sheet.Cells(SRow + 3, 1):='单 位：'+edt_Server.Text;
Sheet.Cells(SRow + 3, 6):='编 辑：'+edt_Weave.Text;
Range:= Format('A%d:G%d',[SRow + 4, SRow + 4]);
Sheet.Range[Range].HorizontalAlignment:=3;
Sheet.Range[Range].VerticalAlignment:=-4108;
Sheet.Cells(SRow + 4, 1):='序号';
Sheet.Cells[SRow + 4, 1].WrapText:=true;
Sheet.Cells(SRow + 4, 2):='物资名称';
Sheet.Cells(SRow + 4, 3):='型号规格';
Sheet.Cells(SRow + 4, 4):='单位';
Sheet.Cells[SRow + 4, 4].WrapText:=true;
Sheet.Cells(SRow + 4, 5):='数 量';
Sheet.Cells(SRow + 4, 6):='备 注';
Sheet.Cells(SRow + 4, 7):='交货时间';
Range:= Format('A%d:A%d', [SRow + 5, SRow + 19]);
Sheet.Range[Range].HorizontalAlignment:=3;
frmTData.Q_MX.First;
for i:=1 to 15 do
with frmTdata.Q_MX do
begin
Sheet.Cells(SRow + 4 + i, 1):=''''+ IntToStr(i);
Sheet.Cells(SRow + 4 + i, 2):=FieldByName('PartName').AsString;
Sheet.Cells(SRow + 4 + i, 3):=FieldByName('PartType').AsString;
Sheet.Cells(SRow + 4 + i, 4):=FieldByName('Unit').AsString;
Sheet.Cells(SRow + 4 + i, 5):=FieldByName('Number').AsString;
Sheet.Cells(SRow + 4 + i, 6):=FieldByName('Remark').AsString;
Sheet.Cells(SRow + 4 + i, 7):=FieldByName('Date').AsString;
Next;
if Eof then
Break;
end;
Sheet.Cells(SRow + 20, 1):='技术要求';
Range:=Format('A%d:A%d', [SRow + 20, SRow + 29]);
Sheet.Range[Range].Select;
Excel.Selection.Merge;
Excel.Selection.Borders[9].ColorIndex:=1;
Excel.Selection.Borders[9].Weight:=3;
Excel.Selection.Borders[7].ColorIndex:=1;
Excel.Selection.Borders[7].Weight:=3;
Excel.Selection.Borders[8].ColorIndex:=1;
Excel.Selection.Borders[8].Weight:=3;
Excel.Selection.Borders[10].ColorIndex:=1;
Excel.Selection.Borders[10].Weight:=3;
Sheet.Cells[SRow + 20, 1].WrapText:=true;
Sheet.Cells[SRow + 20, 1].HorizontalAlignment:=3;
Sheet.Cells[SRow + 20, 1].VerticalAlignment:=-4108;
Sheet.Cells(SRow + 30, 6):='通知日期：'+IntToStr(Year)+'年'+IntToStr(Month)+'月'+IntToStr(Day)+'日';
Sheet.Cells(SRow+30,1):='联系电话：[phone]';
Sheet.Cells[SRow +21,2].HorizontalAlignment:=-4131;
Sheet.Cells[SRow +21, 2].VerticalAlignment:=-4160;
Range:=Format('B%d:G%d', [SRow + 20, SRow + 29]);
Sheet.Range[Range].Select;
Sheet.Cells(SRow+21,2):=trim(edt_Require.Text);
Excel.Selection.Merge;
Sheet.Cells[SRow + 21, 2].WrapText:=true;
end;
procedure TfrmWaixStockmessage.btnExcelClick(Sender: TObject);
var
Excel,WorkBook,Sheet:OleVariant;
Year,Month,Day:Word;
begin
DecodeDate(Date,Year,Month,Day);
try
Excel:=CreateOleObject('Excel.Application');
Excel.WorkBooks.Add;
except
Application.MessageBox('请确认是否已安装了 Mircorsoft Excel !','提示',48);
abort;
end;
try
SaveDialog.Title:='将外协采购通知单保存为 Excel 文档';
SaveDialog.FileName:=IntToStr(Month)+'月外协采购通知单.xls';
if SaveDialog.Execute then
begin
WorkBook:=Excel.ActiveWorkBook;
Sheet:= WorkBook.ActiveSheet;
ExportToExcel(Excel, Sheet, 2);
WorkBook.SaveAs(SaveDialog.FileName);
end;
Excel.DisplayAlerts := false;
Excel.Quit;
finally
Excel:= Unassigned;
end;
end;

[zhxfzhxf1]

thanks， JonHua(玉龙)

[WWWWA]

谢谢！