关于EXCEL的一个问题

[weiweiplay]

如何在BCB中设置EXCEL表格的列宽为“最适合列宽”
Selection.Columns.AutoFit

在线等

[ccrun.com]

#include "comobj.hpp"
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Variant vExcelApp, vRange;
String strFileName = "C:\\123\\123.xls";
// 创建Excel对象
vExcelApp = CreateOleObject("Excel.Application");
// 使其可视
vExcelApp.OlePropertySet("Visible", true);
// 打开相应文档
vExcelApp.OlePropertyGet("Workbooks").OleFunction("Open",
strFileName.c_str());
// 设置选择局域：B列到E列
vExcelApp.OlePropertyGet("ActiveSheet").OlePropertyGet("Range", "B:E").OleProcedure("Select");
vRange = vExcelApp.OlePropertyGet("Selection");
// 设置列宽为最适合列宽
vRange.OlePropertyGet("Columns").OleProcedure("AutoFit");
}