BCB如果设置Execl的表格

wangledong 2003-11-06 04:42:55

设置表格的线行，线宽度，画斜线等等。

...全文

32 6 打赏收藏转发到动态举报

写回复

用AI写文章

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

wangledong 2004-03-09

打赏
举报

谢谢楼上各位。问题已经解决！给分了。另请关注
http://expert.csdn.net/Expert/TopicView1.asp?id=2820690

ccrun.com 2004-03-09

打赏
举报

#include "comobj.hpp"
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Variant vExcelApp, vWorkbook, vSheet, vRange;
String strFileName = "C:\\123\\123.xls";
// 创建Excel对象
vExcelApp = CreateOleObject("Excel.Application");
// 使其可视
vExcelApp.OlePropertySet("Visible", true);
// 打开相应文档
vExcelApp.OlePropertyGet("Workbooks").OleFunction("Open", strFileName.c_str());
// 设置选择局域：b2:c5
vExcelApp.OlePropertyGet("ActiveSheet").OlePropertyGet("Range", "B2:C5").OleProcedure("Select");
vRange = vExcelApp.OlePropertyGet("Selection");
// 设置所选区域的边框
vRange.OlePropertyGet("Borders", 5/* xlDiagonalDown */).OlePropertySet("LineStyle", -4142/* xlNone */);
vRange.OlePropertyGet("Borders", 6/* xlDiagonalUp */).OlePropertySet("LineStyle", -4142/* xlNone */);

vRange.OlePropertyGet("Borders", 7/* xlEdgeLeft */).OlePropertySet("LineStyle", 1/* xlContinuous */);
vRange.OlePropertyGet("Borders", 7/* xlEdgeLeft */).OlePropertySet("Weight", 2/* xlThin */);
vRange.OlePropertyGet("Borders", 7/* xlEdgeLeft */).OlePropertySet("ColorIndex", -4105/* xlAutomatic */);

vRange.OlePropertyGet("Borders", 8/* xlEdgeTop */).OlePropertySet("LineStyle", 1/* xlContinuous */);
vRange.OlePropertyGet("Borders", 8/* xlEdgeTop */).OlePropertySet("Weight", 2/* xlThin */);
vRange.OlePropertyGet("Borders", 8/* xlEdgeTop */).OlePropertySet("ColorIndex", -4105/* xlAutomatic */);

vRange.OlePropertyGet("Borders", 9/* xlEdgeBottom */).OlePropertySet("LineStyle", 1/* xlContinuous */);
vRange.OlePropertyGet("Borders", 9/* xlEdgeBottom */).OlePropertySet("Weight", 2/* xlThin */);
vRange.OlePropertyGet("Borders", 9/* xlEdgeBottom */).OlePropertySet("ColorIndex", -4105/* xlAutomatic */);

vRange.OlePropertyGet("Borders", 10/* xlEdgeRight */).OlePropertySet("LineStyle", 1/* xlContinuous */);
vRange.OlePropertyGet("Borders", 10/* xlEdgeRight */).OlePropertySet("Weight", 2/* xlThin */);
vRange.OlePropertyGet("Borders", 10/* xlEdgeRight */).OlePropertySet("ColorIndex", -4105/* xlAutomatic */);

vRange.OlePropertyGet("Borders", 11/* xlInsideVertical */).OlePropertySet("LineStyle", 1/* xlContinuous */);
vRange.OlePropertyGet("Borders", 11/* xlInsideVertical */).OlePropertySet("Weight", 2/* xlThin */);
vRange.OlePropertyGet("Borders", 11/* xlInsideVertical */).OlePropertySet("ColorIndex", -4105/* xlAutomatic */);

vRange.OlePropertyGet("Borders", 12/* xlInsideHorizontal */).OlePropertySet("LineStyle", 1/* xlContinuous */);
vRange.OlePropertyGet("Borders", 12/* xlInsideHorizontal */).OlePropertySet("Weight", 2/* xlThin */);
vRange.OlePropertyGet("Borders", 12/* xlInsideHorizontal */).OlePropertySet("ColorIndex", -4105/* xlAutomatic */);

// vExcelApp.OleFunction("Quit");
vExcelApp = Unassigned;
}

evenwait 2004-03-09