使用VB或VC操作Excel 2003

VB 2020-02-01

1.VB操作EXCEL2003

[vb] view plain copy
  1. ‘************************************************************************
  2. ‘
  3. ‘演示用VB.NET设置Excel单元格值和风格的小程序(例程)
  4. ‘程序功能是：打开文件，设置单元格的风格和值，冻结窗口等
  5. ‘网上类似的程序很多，但Excel2003的SaveAs函数由新版本的函数代替，原函数
  6. ‘为_saveas，这个程序同时也演示了如何使用新函数，另外也演示了如何冻结窗格
  7. ‘
  8. ‘关键字：Excel2003SaveAs冻结窗格单元格风格
  9. ‘开发环境：VisualStudio.NET2003
  10. ‘Excel环境：Excel2003
  11. ‘作者：高宏伟(DukeJoe)
  12. ‘时间：2006-03-1211:27
  13. ‘地点：黑龙江省哈尔滨市平房区
  14. ‘注释：无
  15. ‘***********************************************************************
  16. ModuleModule1
  18. SubMain()
  19. DimThisApplicationAsMicrosoft.Office.Interop.Excel.Application=NewMicrosoft.Office.Interop.Excel.Application
  20. DimThisWorkbookAsMicrosoft.Office.Interop.Excel.Workbook
  21. DimThisSheetsAsMicrosoft.Office.Interop.Excel.Sheets
  22. DimThisWorkSheetAsMicrosoft.Office.Interop.Excel.Worksheet
  23. DimThisRangeAsMicrosoft.Office.Interop.Excel.Range
  25. ThisApplication.Visible=True
  26. ThisWorkbook=ThisApplication.Workbooks.Add()
  27. Console.WriteLine(ThisWorkbook.Name)
  28. ThisSheets=ThisWorkbook.Worksheets
  29. ThisWorkSheet=ThisSheets(1)
  30. Console.WriteLine(ThisWorkSheet.Name)
  31. ’设置整个sheet的填充色为白色
  32. ThisWorkSheet.Cells.Interior.Color=RGB(255,255)
  33. ThisWorkSheet.Cells.ClearContents()
  34. ThisRange=ThisWorkSheet.Range("A1:C5")
  35. Console.WriteLine(ThisRange.Cells(1,1).Value)
  36. ’ThisRange.Interior.Color=0
  37. ThisRange.ClearFormats()
  38. ThisRange.Cells(1,1).Value="哈尔滨市平房区"
  39. ThisRange.Cells(1,2).Value="高宏伟"
  40. "QQ：21807822"
  41. ThisRange.Cells(2,1).Value="1"
  42. ThisRange.Cells(3,1).Value="2"
  43. ThisRange.Cells(4,1).Value="3"
  44. ThisRange.Cells(5,1).Value="4"
  45. ’为Range的四周和内部加上边框
  46. ThisRange.Borders(Microsoft.Office.Interop.Excel.XlBordersIndex.xlEdgeRight).Linestyle=Microsoft.Office.Interop.Excel.XlLinestyle.xlContinuous
  47. ThisRange.Borders(Microsoft.Office.Interop.Excel.XlBordersIndex.xlEdgeLeft).Linestyle=Microsoft.Office.Interop.Excel.XlLinestyle.xlContinuous
  48. ThisRange.Borders(Microsoft.Office.Interop.Excel.XlBordersIndex.xlEdgetop).Linestyle=Microsoft.Office.Interop.Excel.XlLinestyle.xlContinuous
  49. ThisRange.Borders(Microsoft.Office.Interop.Excel.XlBordersIndex.xlEdgeBottom).Linestyle=Microsoft.Office.Interop.Excel.XlLinestyle.xlContinuous
  50. ThisRange.Borders(Microsoft.Office.Interop.Excel.XlBordersIndex.xlInsideHorizontal).Linestyle=Microsoft.Office.Interop.Excel.XlLinestyle.xlContinuous
  51. ThisRange.Borders(Microsoft.Office.Interop.Excel.XlBordersIndex.xlInsideVertical).Linestyle=Microsoft.Office.Interop.Excel.XlLinestyle.xlContinuous
  52. ’设置第一行的格式（背景色、粗体、颜色、列宽）
  53. ThisRange.Range("A1:C1").Interior.ColorIndex=47
  54. ThisRange.Range("A1:C1").Interior.Pattern=Microsoft.Office.Interop.Excel.XlPattern.xlPatternSolid
  55. ThisRange.Range("A1:C1").Font.ColorIndex=6
  56. ThisRange.Range("A1:C1").Font.Bold= ThisRange.EntireColumn.ColumnWidth=18.63
  57. ThisRange.Range("A2:C5").Interior.ColorIndex=16
  58. ThisRange.Range("A2:C5").Interior.Pattern=Microsoft.Office.Interop.Excel.XlPattern.xlPatternSolid
  59. ThisRange.Range("A2:C5").Font.ColorIndex=2
  60. ’冻结窗格
  61. ThisApplication.ActiveWindow.FreezePanes=False
  62. ThisApplication.Range("A2").Select()
  63. ThisWorkbook.SaveAs("D:/VisualStudioProjects/VBAReportDemo/bin/VBAReportDemo.xls",Microsoft.Office.Interop.Excel.XlFileFormat.xlExcel7,_
  64. "","",False,Microsoft.Office.Interop.Excel.XlSaveAsAccessMode.xlNoChange,_
  65. Microsoft.Office.Interop.Excel.XlSaveConflictResolution.xlLocalSessionChanges,False)
  66. ThisWorkbook.Close()
  67. ThisApplication.Quit()
  68. Console.WriteLine("pressanykeytocontinue")
  69. ’Console.ReadLine()
  70. EndSub
  71. Module

2.VC操作EXCEL2003

[cpp] copy
    /******************************************************************************
  1. *
  2. *这是上面VBAReportDemo的对应程序
  3. *演示使用VC操作Excel2003
  4. *功能：设置单元格，风格，冻结窗格。以及如何将对应的VB代码翻译成VC
  5. *时间：2007-04-1609:31
  6. *作者：高宏伟(DukeJoe)
  7. *QQ：21807822
  8. *Blog：http://dukejoe.yeah.net
  9. *注释：本代码可单独研究，但最好和上面的VBAReportDemo对应看比较好
  10. *开发环境：VisualStudio.NET2003
  11. *操作系统：WindowsXPHomeEditionServicePack2
  12. *
  13. *****************************************************************************/
  14. #include<iostream>
  15. usingnamespacestd;
  16. #import"C:/ProgramFiles/CommonFiles/MicrosoftShared/OFFICE11/mso.dll"rename("RGB","MSRGB")
  17. #import"C:/ProgramFiles/CommonFiles/MicrosoftShared/VBA/VBA6/VBE6EXT.OLB"raw_interfaces_only,/
  18. rename("Reference","ignorethis"),rename("VBE","JOEVBE")
  19. #import"C:/ProgramFiles/MicrosoftOffice/OFFICE11/excel.exe"exclude("IFont","IPicture")/
  20. rename("RGB",rename("DialogBox","JOEVBE"),/
  21. rename("ReplaceText","JOEReplaceText"),rename("copyFile","JOEcopyFile"),/
  22. rename("FindText","JOEFindText"),rename("noprompt","JOEnoprompt")
  23. namespaceOffice;
  24. namespaceVBIDE;
  25. namespaceExcel;
  26. intExportExcelFile();
  27. intmain(intargc,char*argv[])
  28. {
  29. if(Failed(::CoInitialize(NULL)))
  30. return1;
  31. ExportExcelFile();
  32. ::CoUninitialize();
  33. return0;
  34. }
  35. intExportExcelFile()
  36. _ApplicationPtrpApplication=NULL;
  37. _WorkbookPtrpThisWorkbook=NULL;
  38. _WorksheetPtrpThisWorksheet=NULL;
  39. SheetsPtrpThisSheets=NULL;
  40. RangePtrpThisRange=NULL;
  41. _variant_tvt;
  42. Excel::XlFileFormatvFileFormat;
  43. Excel::XlSaveAsAccessModevSaveAsAccessMode;
  44. Excel::XlSaveConflictResolutionvSaveConflictResolution;
  45. pApplication.CreateInstance("Excel.Application");
  46. pApplication->PutVisible(0,VARIANT_TRUE);
  47. pThisWorkbook=pApplication->GetWorkbooks()->Add();
  48. pThisSheets=pThisWorkbook->GetWorksheets();
  49. pThisWorksheet=pThisSheets->GetItem((short)1);
  50. //设置整个sheet的填充色为白色
  51. pThisWorksheet->GetCells()->GetInterior()->PutColor(RGB(255,255));
  52. pThisWorksheet->GetCells()->ClearContents();
  53. pThisRange=pThisWorksheet->GetRange("A1:C5");
  54. pThisRange->ClearFormats();
  55. //如果有不会的，可以在debug文件夹的excel.tlh里找找
  56. //pThisRange->GetItem(1,1);
  57. pThisRange->PutItem(1,1,_variant_t("哈尔滨市平房区"));
  58. pThisRange->PutItem(1,2,_variant_t("高宏伟"));
  59. "QQ:21807822"));
  60. pThisRange->PutItem(2,_variant_t("1"));
  61. pThisRange->PutItem(3,_variant_t("2"));
  62. pThisRange->PutItem(4,_variant_t("3"));
  63. pThisRange->PutItem(5,_variant_t("4"));
  64. //为Range的四周和内部加上边框
  65. pThisRange->GetBorders()->GetItem(xlEdgeLeft)->PutLinestyle(xlContinuous);
  66. pThisRange->GetBorders()->GetItem(xlEdgetop)->PutLinestyle(xlContinuous);
  67. pThisRange->GetBorders()->GetItem(xlEdgeRight)->PutLinestyle(xlContinuous);
  68. pThisRange->GetBorders()->GetItem(xlEdgeBottom)->PutLinestyle(xlContinuous);
  69. pThisRange->GetBorders()->GetItem(xlInsideHorizontal)->PutLinestyle(xlContinuous);
  70. pThisRange->GetBorders()->GetItem(xlInsideVertical)->PutLinestyle(xlContinuous);
  71. //设置第一行的格式（背景色、粗体、颜色、列宽）
  72. pThisRange->GetRange("A1:C1")->GetInterior()->ColorIndex=47;
  73. pThisRange->GetRange("A1:C1")->GetInterior()->Pattern=xlPatternSolid;
  74. pThisRange->GetRange("A1:C1")->GetFont()->ColorIndex=6;
  75. pThisRange->GetRange("A1:C1")->GetFont()->Bold=TRUE;
  76. pThisRange->GetEntireColumn()->ColumnWidth=18.63;
  77. pThisRange->GetRange("A2:C5")->GetInterior()->ColorIndex=16;
  78. pThisRange->GetRange("A2:C5")->GetInterior()->Pattern=xlPatternSolid;
  79. pThisRange->GetRange("A2:C5")->GetFont()->ColorIndex=2;
  80. //冻结窗格
  81. pApplication->ActiveWindow->FreezePanes=FALSE;
  82. pApplication->Range["A2"]->Select();
  83. pApplication->ActiveWindow->FreezePanes=TRUE;
  84. //存盘退出
  85. vSaveAsAccessMode=xlNoChange;
  86. vFileFormat=xlWorkbooknormal;
  87. vSaveConflictResolution=xlLocalSessionChanges;
  88. pThisWorkbook->SaveAs(_variant_t("D://VisualStudioProjects//VCReportDemo//joe.xls"),vFileFormat,_variant_t(""),_variant_t(false),
  89. _variant_t(false));
  90. pThisWorkbook->Close();
  91. pApplication->Quit();
  92. }

原文网址：http://blog.donews.com/dukejoe/archive/2007/04/16/1156319.aspx

相关文章

VB Format函数
Format[$] ( expr [ , fmt ] ) format 返回变体型 format$ 强...
vb6/ASP FORMAT MM/DD/YYYY
VB6或者ASP 格式化时间为 MM/dd/yyyy 格式，竟然没有好的办...
VB.net 捕获项目全局异常
在项目中添加如下代码：新建窗口来显示异常信息。 Namespace...
实现用VB.Net/(C#)开发K/3 BOS 插件的真正可行方法
转了这一篇文章，原来一直想用C#做k3的插件开发，vb没有C#用...
vb，wps，excel 分裂
Sub 分列() ‘以空格为分隔符，连续空格只算1个。对所选...
VB文件 hash 查看器
  窗体代码 1 Private Sub Text1_OLEDragDrop(Data As Dat...