.VC获取EXCEL 表格的总行列数 新建文件

.VC获取EXCEL 表格的总行数

 _Worksheet   ws;  

  Range   range;  

     range   ＝   ws.GetUsedRange();   

  range   =   range.GetRows();         

  long   UsedRows   =   range.Get_Count();     

  long   UsedCols   =   range.get_Columns（）;     

12.              到此，即完成了我们的示例程序，下面将对程序进行详细的说明，如果大家有过使用Visual Basic操作Excel程序的经验，则应该能看懂下面程序：

void CTestExcelDlg::OnButton1()

{

// TODO: Add your control notification handler code here

/*

   先创建一个_Application类，用_Application来创建一个Excel应用程序接口。
   Excel接口类中层次如下所示：
    -_Application
      -Workbooks 工作薄集合
        -_Workbook 工作薄
          -Worksheets 工作表集合
            -_Worksheet 工作表
              -Range单元格区域
   故要操作表，必须先逐步获取Workbooks—>Workbook —>Worksheets —>Worksheet —>Range

*/

_Application app;

Workbooks books;

_Workbook book;

Worksheets sheets;

_Worksheet sheet;

Range range; //Excel中针对单元格的操作都应先获取其对应的Range对象

Font font;

Range cols;
/*
   COleVariant类为VARIANT数据类型的包装，在自动化程序中，通常都使用VARIANT数据类型进行参数传递。故下列程序中，函数参数都是通过COleVariant类来转换了的。
*/
//covOptional 可选参数的VARIANT类型

COleVariant covOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR);

if( !app.CreateDispatch("Excel.Application") ){

  this->MessageBox("无法创建Excel应用！");

  return;

}

//获取工作薄集合

books=app.GetWorkbooks();

//添加一个工作薄

book=books.Add(covOptional);

//获取工作表集合

sheets=book.GetSheets();

//获取第一个工作表

sheet=sheets.GetItem(COleVariant((short)1));
 
//选择工作表中A1:A1单元格区域

range=sheet.GetRange(COleVariant("A1"),COleVariant("A1"));

//设置A1=HELLO EXCEL!"

range.SetValue(COleVariant("HELLO EXCEL!"));

//调整格式，设置粗体

font=range.GetFont();

font.SetBold(COleVariant((short)TRUE));
 
//选择A2单元格，插入一个公式"=RAND()*100000"，并设置A2数字格式为货币形式

range=sheet.GetRange(COleVariant("A2"),COleVariant("A2"));

range.SetFormula(COleVariant("=RAND()*100000"));

range.SetNumberFormat(COleVariant("$0.00"));

//选择A:A列，设置宽度为自动适应

cols=range.GetEntireColumn();

cols.AutoFit();

//显示Excel表格，并设置状态为用户可控制

app.SetVisible(TRUE);

app.SetUserControl(TRUE);

13.              如何自动保存我们生成的Excel文件？通过Workbook对象的SaveAs方法即可实现：

book.SaveAs(COleVariant("C:\\a.xls"),covOptional,
  covOptional,covOptional,
  covOptional,covOptional,(long)0,covOptional,covOptional,covOptional,
  covOptional);

14.              上面的程序只能实现新建Excel文件的功能，但大多数情况我们需要的是导入excel中的数据，即要打开现存的xls文件，那么可用如下代码：

_Application app;

Workbooks books;

_Workbook book;

Worksheets sheets;

_Worksheet sheet;
LPDISPATCH lpDisp;  //接口指针

COleVariant covOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR);

if( !app.CreateDispatch("Excel.Application") ){

  this->MessageBox("无法创建Excel应用！");

  return;

}

books=app.GetWorkbooks();
lpDisp = books.Open("C:\\a.xls",
        covOptional, covOptional, covOptional, covOptional,
        covOptional, covOptional, covOptional, covOptional,
        covOptional, covOptional, covOptional, covOptional
        );
book.AttachDispatch( lpDisp );
sheets=book.GetSheets();
sheet=sheets.GetItem(COleVariant((short)1));
range=sheet.GetRange(COleVariant("A1"),COleVariant("A1"));

COleVariant rValue;
rValue=COleVariant(range.GetValue());
rValue.ChangeType(VT_BSTR);
this->MessageBox(CString(rValue.bstrVal));

book.SetSaved(TRUE);
app.Quit();

15.              运行上面程序，单击Button1按钮，会显示出C:\a.xls文件中A1单元格中的内容。注意看以下代码，实现了Variant数据类型转换为CString类，这个只是一个示例，转换较为简单。

COleVariant rValue;
rValue=COleVariant(range.GetValue());
rValue.ChangeType(VT_BSTR);
this->MessageBox(CString(rValue.bstrVal));