使用VB或VC操作Excel 2003-CSDN博客

1.VB操作EXCEL2003

[vb]view plaincopy 
   
 ‘************************************************************************  
 ‘  
 ‘ 演示用VB.NET 设置 Excel 单元格值和风格的小程序(例程)  
 ‘ 程序功能是：打开文件，设置单元格的风格和值，冻结窗口等  
 ‘ 网上类似的程序很多，但Excel 2003的SaveAs函数由新版本的函数代替，原函数  
 ‘ 为_saveas，这个程序同时也演示了如何使用新函数，另外也演示了如何冻结窗格  
 ‘  
 ‘ 关键字：Excel 2003 SaveAs 冻结窗格 单元格 风格  
 ‘  
 ‘  
 ‘ 开发环境：Visual Studio .NET 2003  
 ‘ Excel环境：Excel 2003  
 ‘ 作者：高宏伟(DukeJoe)  
 ‘ 时间：2006-03-12 11:27  
 ‘ 地点：黑龙江省哈尔滨市平房区  
 ‘ 注释：无  
 ‘  
 ‘***********************************************************************  
 Module Module1  
   
 Sub Main()  
     Dim ThisApplication As Microsoft.Office.Interop.Excel.Application = New Microsoft.Office.Interop.Excel.Application  
     Dim ThisWorkbook As Microsoft.Office.Interop.Excel.Workbook  
     Dim ThisSheets As Microsoft.Office.Interop.Excel.Sheets  
     Dim ThisWorkSheet As Microsoft.Office.Interop.Excel.Worksheet  
     Dim ThisRange As Microsoft.Office.Interop.Excel.Range  
   
     ThisApplication.Visible = True  
     ThisWorkbook = ThisApplication.Workbooks.Add()  
   
     Console.WriteLine(ThisWorkbook.Name)  
     ThisSheets = ThisWorkbook.Worksheets  
     ThisWorkSheet = ThisSheets(1)  
     Console.WriteLine(ThisWorkSheet.Name)  
     ’ 设置整个sheet的填充色为白色  
     ThisWorkSheet.Cells.Interior.Color = RGB(255, 255, 255)  
     ThisWorkSheet.Cells.ClearContents()  
     ThisRange = ThisWorkSheet.Range("A1:C5")  
     Console.WriteLine(ThisRange.Cells(1, 1).Value)  
     ’ThisRange.Interior.Color = 0  
     ThisRange.ClearFormats()  
     ThisRange.Cells(1, 1).Value = "哈尔滨市平房区"  
     ThisRange.Cells(1, 2).Value = "高宏伟"  
     ThisRange.Cells(1, 3).Value = "QQ：21807822"  
     ThisRange.Cells(2, 1).Value = "1"  
     ThisRange.Cells(3, 1).Value = "2"  
     ThisRange.Cells(4, 1).Value = "3"  
     ThisRange.Cells(5, 1).Value = "4"  
     ’ 为Range的四周和内部加上边框  
     ThisRange.Borders(Microsoft.Office.Interop.Excel.XlBordersIndex.xlEdgeRight).LineStyle = Microsoft.Office.Interop.Excel.XlLineStyle.xlContinuous  
     ThisRange.Borders(Microsoft.Office.Interop.Excel.XlBordersIndex.xlEdgeLeft).LineStyle = Microsoft.Office.Interop.Excel.XlLineStyle.xlContinuous  
     ThisRange.Borders(Microsoft.Office.Interop.Excel.XlBordersIndex.xlEdgeTop).LineStyle = Microsoft.Office.Interop.Excel.XlLineStyle.xlContinuous  
     ThisRange.Borders(Microsoft.Office.Interop.Excel.XlBordersIndex.xlEdgeBottom).LineStyle = Microsoft.Office.Interop.Excel.XlLineStyle.xlContinuous  
     ThisRange.Borders(Microsoft.Office.Interop.Excel.XlBordersIndex.xlInsideHorizontal).LineStyle = Microsoft.Office.Interop.Excel.XlLineStyle.xlContinuous  
     ThisRange.Borders(Microsoft.Office.Interop.Excel.XlBordersIndex.xlInsideVertical).LineStyle = Microsoft.Office.Interop.Excel.XlLineStyle.xlContinuous  
     ’ 设置第一行的格式（背景色、粗体、颜色、列宽）  
     ThisRange.Range("A1:C1").Interior.ColorIndex = 47  
     ThisRange.Range("A1:C1").Interior.Pattern = Microsoft.Office.Interop.Excel.XlPattern.xlPatternSolid  
     ThisRange.Range("A1:C1").Font.ColorIndex = 6  
     ThisRange.Range("A1:C1").Font.Bold = True  
     ThisRange.EntireColumn.ColumnWidth = 18.63  
     ThisRange.Range("A2:C5").Interior.ColorIndex = 16  
     ThisRange.Range("A2:C5").Interior.Pattern = Microsoft.Office.Interop.Excel.XlPattern.xlPatternSolid  
     ThisRange.Range("A2:C5").Font.ColorIndex = 2  
     ’ 冻结窗格  
     ThisApplication.ActiveWindow.FreezePanes = False  
     ThisApplication.Range("A2").Select()  
     ThisApplication.ActiveWindow.FreezePanes = True  
   
     ThisWorkbook.SaveAs("D:/Visual Studio Projects/VBAReportDemo/bin/VBAReportDemo.xls", Microsoft.Office.Interop.Excel.XlFileFormat.xlExcel7, _  
         "", "", False, False, Microsoft.Office.Interop.Excel.XlSaveAsAccessMode.xlNoChange, _  
         Microsoft.Office.Interop.Excel.XlSaveConflictResolution.xlLocalSessionChanges, False)  
     ThisWorkbook.Close()  
     ThisApplication.Quit()  
   
     Console.WriteLine("press any key to continue")  
     ’Console.ReadLine()  
   
 End Sub  
   
 End Module  

2.VC操作EXCEL2003

[cpp]view plaincopy 
   
 /****************************************************************************** 
 * 
 * 这是上面VBAReportDemo的对应程序 
 * 演示使用VC操作Excel 2003 
 * 功能：设置单元格，风格，冻结窗格。以及如何将对应的VB代码翻译成VC 
 * 
 * 时间：2007-04-16 09:31 
 * 作者：高宏伟(DukeJoe) 
 * QQ：21807822 
 * Blog：http://dukejoe.yeah.net 
 * 注释：本代码可单独研究，但最好和上面的VBAReportDemo对应看比较好 
 * 
 * 开发环境：Visual Studio.NET 2003 
 * 操作系统：Windows XP Home Edition Service Pack 2 
 * 
 * 
 *****************************************************************************/  
 #include <iostream>  
   
 using namespace std ;  
   
 #import "C:/Program Files/Common Files/Microsoft Shared/OFFICE11/mso.dll" rename("RGB", "MSRGB")  
   
 #import "C:/Program Files/Common Files/Microsoft Shared/VBA/VBA6/VBE6EXT.OLB" raw_interfaces_only, /  
 rename("Reference", "ignorethis"), rename("VBE", "JOEVBE")  
   
 #import "C:/Program Files/Microsoft Office/OFFICE11/excel.exe" exclude("IFont", "IPicture") /  
 rename("RGB", "ignorethis"), rename("DialogBox", "ignorethis"), rename("VBE", "JOEVBE"), /  
 rename("ReplaceText", "JOEReplaceText"), rename("CopyFile","JOECopyFile"), /  
 rename("FindText", "JOEFindText"), rename("NoPrompt", "JOENoPrompt")  
   
 using namespace Office;  
 using namespace VBIDE;  
 using namespace Excel ;  
   
 int ExportExcelFile() ;  
   
 int main(int argc, char* argv[])  
 {  
     if(FAILED(::CoInitialize(NULL)))  
         return 1 ;  
   
     ExportExcelFile() ;  
   
     ::CoUninitialize();  
   
     return 0;  
 }  
   
 int ExportExcelFile()  
 {  
     _ApplicationPtr pApplication = NULL ;  
     _WorkbookPtr pThisWorkbook = NULL ;  
     _WorksheetPtr pThisWorksheet = NULL ;  
     SheetsPtr pThisSheets = NULL ;  
     RangePtr pThisRange = NULL ;  
     _variant_t vt ;  
     Excel::XlFileFormat vFileFormat ;  
     Excel::XlSaveAsAccessMode vSaveAsAccessMode ;  
     Excel::XlSaveConflictResolution vSaveConflictResolution ;  
   
     pApplication.CreateInstance("Excel.Application");  
     pApplication->PutVisible (0,VARIANT_TRUE);  
     pThisWorkbook = pApplication->GetWorkbooks()->Add() ;  
     pThisSheets = pThisWorkbook->GetWorksheets() ;  
     pThisWorksheet = pThisSheets->GetItem((short)1);  
     // 设置整个sheet的填充色为白色  
     pThisWorksheet->GetCells()->GetInterior()->PutColor(RGB(255, 255, 255));  
     pThisWorksheet->GetCells()->ClearContents() ;  
     pThisRange = pThisWorksheet->GetRange("A1:C5") ;  
     pThisRange->ClearFormats() ;  
     // 如果有不会的，可以在debug文件夹的excel.tlh里找找  
     //pThisRange->GetItem(1,1) ;  
     pThisRange->PutItem(1, 1, _variant_t("哈尔滨市平房区")) ;  
     pThisRange->PutItem(1, 2, _variant_t("高宏伟")) ;  
     pThisRange->PutItem(1, 3, _variant_t("QQ:21807822")) ;  
     pThisRange->PutItem(2, 1, _variant_t("1")) ;  
     pThisRange->PutItem(3, 1, _variant_t("2")) ;  
     pThisRange->PutItem(4, 1, _variant_t("3")) ;  
     pThisRange->PutItem(5, 1, _variant_t("4")) ;  
     // 为Range的四周和内部加上边框  
     pThisRange->GetBorders()->GetItem(xlEdgeLeft)->PutLineStyle(xlContinuous) ;  
     pThisRange->GetBorders()->GetItem(xlEdgeTop)->PutLineStyle(xlContinuous) ;  
     pThisRange->GetBorders()->GetItem(xlEdgeRight)->PutLineStyle(xlContinuous) ;  
     pThisRange->GetBorders()->GetItem(xlEdgeBottom)->PutLineStyle(xlContinuous) ;  
     pThisRange->GetBorders()->GetItem(xlInsideHorizontal)->PutLineStyle(xlContinuous) ;  
     pThisRange->GetBorders()->GetItem(xlInsideVertical)->PutLineStyle(xlContinuous) ;  
     // 设置第一行的格式（背景色、粗体、颜色、列宽）  
     pThisRange->GetRange("A1:C1")->GetInterior()->ColorIndex = 47 ;  
     pThisRange->GetRange("A1:C1")->GetInterior()->Pattern = xlPatternSolid ;  
     pThisRange->GetRange("A1:C1")->GetFont()->ColorIndex = 6 ;  
     pThisRange->GetRange("A1:C1")->GetFont()->Bold = TRUE ;  
     pThisRange->GetEntireColumn()->ColumnWidth = 18.63 ;  
     pThisRange->GetRange("A2:C5")->GetInterior()->ColorIndex = 16 ;  
     pThisRange->GetRange("A2:C5")->GetInterior()->Pattern = xlPatternSolid ;  
     pThisRange->GetRange("A2:C5")->GetFont()->ColorIndex = 2 ;  
     // 冻结窗格  
     pApplication->ActiveWindow->FreezePanes = FALSE ;  
     pApplication->Range["A2"]->Select() ;  
     pApplication->ActiveWindow->FreezePanes = TRUE ;  
   
     // 存盘退出  
     vSaveAsAccessMode = xlNoChange ;  
     vFileFormat = xlWorkbookNormal ;  
     vSaveConflictResolution = xlLocalSessionChanges ;  
     pThisWorkbook->SaveAs(_variant_t("D://Visual Studio Projects//VCReportDemo//joe.xls"), vFileFormat,_variant_t(""),_variant_t(""), _variant_t(false),  
     _variant_t(false), vSaveAsAccessMode, vSaveConflictResolution, _variant_t(false)) ;  
     pThisWorkbook->Close();  
     pApplication->Quit();  
   
     return 0 ;  
 }  