使用VB或VC操作Excel 2003

VB 前端之家
前端之家收集整理的这篇文章主要介绍了使用VB或VC操作Excel 2003，前端之家小编觉得挺不错的，现在分享给大家，也给大家做个参考。

1.VB操作EXCEL2003

@H_404_5@
[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

原文链接：https://www.f2er.com/vb/258420.html

猜你在找的VB相关文章

VB Format函数
Format[$] ( expr [ , fmt ] ) format 返回变体型 format$ 强制返回为文本 --------------...
vb6/ASP FORMAT MM/DD/YYYY
VB6或者ASP 格式化时间为 MM/dd/yyyy 格式，竟然没有好的办法， Format 或者FormatDateTi...
VB.net 捕获项目全局异常
在项目中添加如下代码：新建窗口来显示异常信息。 Namespace My ‘全局错误处理，新的...
实现用VB.Net/(C#)开发K/3 BOS 插件的真正可行方法
转了这一篇文章，原来一直想用C#做k3的插件开发，vb没有C#用的爽呀，这篇文章写与2011年，...
vb，wps，excel 分裂
Sub 分列() ‘以空格为分隔符，连续空格只算1个。对所选中的单元格进行处理 Dim m...
VB.NET MYSQL DataGridView 增删改查（INSERT,SELECT,UPDATE,DELETE）
  Imports MySql.Data.MySqlClient Public Class Form1 ‘ GLOBAL DECLARATIONS ...
VB.NET 使用ADODB連接資料庫滙出到EXCEL
‘導入命名空間 Imports ADODB Imports Microsoft.Office.Interop   Private Sub A1() Di...
vb.net 多线程運用 ping
Imports System.IO Imports System.Threading Imports System.Diagnostics Public Class F...
VB等待进程结束
VB运行EXE程序，并等待其运行结束 参考：https://blog.csdn.net/useway/article/details/5...
vb中去掉string数组的一部分
今天碰到一个问题，登陆的时候，如果不需要验证手机号为空，则不去验证手机号 因为登陆的时...
PHPJavaJava SEPythonC#C&C++RubyVBasp.NetGoPerlnettyDjangoDelphiJsp.NET CoreSpringFlaskSpringbootSpringMVCLuaLaravelMybatisAspGroovyThinkPHPYiiswoole
文件时间pythonm相等性PHP Warning时间问题问题解决pcntl_signal采样点wav模块动态文本调用频率限制对外暴露多个访问请求更新数据表模型结构type()方法比较速度手写体sobel算子保存模型Image类nn.Conv2dpytorch1.0kaggleDCGAN交并比range()用法打印模型反卷积卷积