13,871
社区成员
发帖
与我相关
我的任务
分享关于EXCEL的一个问题
如何在BCB中设置EXCEL表格的列宽为“最适合列宽”
Selection.Columns.AutoFit
在线等
Selection.Columns.AutoFit
在线等
...全文
请发表友善的回复…
发表回复
ccrun.com 2004-05-08
- 打赏
- 举报
#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");
}
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");
}
