加入收藏 | 设为首页 | 会员中心 | 我要投稿 李大同 （https://www.lidatong.com.cn/）- 科技、建站、经验、云计算、5G、大数据,站长网!
当前位置： 首页 > 百科 > 正文

使用VB或VC操作Excel 2003

发布时间：2020-12-17 08:05:53 所属栏目：百科 来源：网络整理
导读：1.VB操作EXCEL2003 [vb] view plain copy ‘************************************************************************ ‘ ‘演示用VB.NET设置Excel单元格值和风格的小程序(例程) ‘程序功能是：打开文件，设置单元格的风格和值，冻结窗口等 ‘网上类似的

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!
    相关内容
      推荐文章
        站长推荐
        热点阅读

          【免责声明】本站内容转载自互联网，其发布内容言论不代表本站观点，如果其链接、内容的侵犯您的权益，烦请提交相关链接至邮箱bqsm@foxmail.com我们将及时予以处理。

          建议您使用1920×1080分辨率、谷歌浏览器Google Chrome、Microsoft Edge以获得本站的最佳浏览效果

          Copygight © 2008-2022 https://www.lidatong.com.cn/ All Rights Reserved. 李大同