我已经成功的调用了VC并且对其中的单元格成功的赋值.
见下面的程序,
void CfqdpcrDoc::ResultExport(_Application app, Worksheets objSheets)
{
Range rgTitle,rgExceldata; //栏目标题区域
Range range[10]; //用于左边第一列
_Worksheet objSheet;
COleVariant covTrue((short)TRUE);
Font font;
//显示在第4张工作表
objSheet = objSheets.GetItem(COleVariant((short)(4)));
//导出栏目标题
rgTitle=objSheet.GetRange(COleVariant("A1"),COleVariant("A1"));
rgTitle.SetValue(COleVariant("相对定量分析"));//我想将A1的底色改为蓝色.不知道怎么编程
rgTitle=rgTitle.GetEntireColumn();
font=rgTitle.GetFont();
font.SetBold(covTrue);
rgTitle.AutoFit();
现在我要改变其中的一个单元格的底色,EXCEL中用VB语言如下.
Sub Macro1()
Range("A1").Select
With Selection.Interior
.ColorIndex = 5
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
End Sub
