VB是常用的应用软件开发工具之一，由于VB的报表功能有限，而且一但报表格式发生变化，就得相应修改程序，给应用软件的维护工作带来极大的不便。因此有很多程序员现在已经充分利用EXECL的强大报表功来实现报表功能。但由于VB与EXCEL由于分别属于不同的应用系统，如何把它们有机地结合在一起，是一个值得我们研究的课题。
一、 VB读写EXCEL表：
VB本身提自动化功能可以读写EXCEL表，其方法如下：
1、在工程中引用Microsoft Excel类型库：
从\"工程\"菜单中选择\"引用\"栏；选择Microsoft Excel 9.0 Object Library（EXCEL2000），然后选择\"确定\"。表示在工程中要引用EXCEL类型库。
2、在通用对象的声明过程中定义EXCEL对象： Dim xlApp As Excel.Application Dim xlBook As Excel.WorkBook Dim xlSheet As Excel.Worksheet
3、在程序中操作EXCEL表常用命令： Set xlApp = CreateObject(\"Excel.Application\") '创建EXCEL对象 Set xlBook = xlApp.Workbooks.Open(\"文件名\") '打开已经存在的EXCEL工件簿文件 xlApp.Visible = True '设置EXCEL对象可见（或不可见） Set xlSheet = xlBook.Worksheets(\"表名\") '设置活动工作表 xlSheet.Cells(row, col) =值 '给单元格（row,col）赋值 xlSheet.PrintOut '打印工作表 xlBook.Close (True) '关闭工作簿 xlApp.Quit '结束EXCEL对象 Set xlApp = Nothing '释放xlApp对象 xlBook.RunAutoMacros (xlAutoOpen) '运行EXCEL启动宏 xlBook.RunAutoMacros (xlAutoClose) '运行EXCEL关闭宏
4、在运用以上VB命令操作EXCEL表时，除非设置EXCEL对象不可见，否则VB程序可继续执行其它操作，也能够关闭EXCEL，同时也可对EXCEL进行操作。但在EXCEL操作过程中关闭EXCEL对象时，VB程序无法知道，如果此时使用EXCEL对象，则VB程序会产生自动化错误。形成VB程序无法完全控制EXCEL的状况，使得VB与EXCEL脱节。
二、 EXCEL的宏功能：
EXCEL提供一个Visual Basic编辑器，打开Visual Basic编辑器，其中有一工程属性窗口，点击右键菜单的\"插入模块\"，则增加一个\"模块1\"，在此模块中可以运用Visual Basic语言编写函数和过程并称之为宏。其中，EXCEL有两个自动宏：一个是启动宏（Sub Auto_Open()），另一个是关闭宏（Sub Auto_Close()）。它们的特性是：当用EXCEL打含有启动宏的工簿时，就会自动运行启动宏，同理，当关闭含有关闭宏的工作簿时就会自动运行关闭宏。但是通过VB的自动化功能来调用EXCEL工作表时，启动宏和关闭宏不会自动运行，而需要在VB中通过命令xlBook.RunAutoMacros (xlAutoOpen)和xlBook.RunAutoMacros (xlAutoClose) 来运行启动宏和关闭宏。
三、 VB与EXCEL的相互勾通：
充分利用EXCEL的启动宏和关闭宏，可以实现VB与EXCEL的相互勾通，其方法如下：
在EXCEL的启动宏中加入一段程序，其功能是在磁盘中写入一个标志文件，同时在关闭宏中加入一段删除此标志文件的程序。VB程序在执行时通过判断此标志文件存在与否来判断EXCEL是否打开，如果此标志文件存在，表明EXCEL对象正在运行，应该禁止其它程序的运行。如果此标志文件不存在，表明EXCEL对象已被用户关闭，此时如果要使用EXCEL对象运行，必须重新创建EXCEL对象。 四、举例：
1、在VB中，建立一个FORM，在其上放置两个命令按钮，将Command1的Caption属性改为EXCEL，Command2的Caption属性改为End。然后在其中输入如下程序：
Dim xlApp As Excel.Application '定义EXCEL类 Dim xlBook As Excel.Workbook '定义工件簿类 Dim xlsheet As Excel.Worksheet '定义工作表类 Private Sub Command1_Click() '打开EXCEL过程 If Dir(\"D:\emp\\excel.bz\") = \"\" Then '判断EXCEL是否打开 Set xlApp = CreateObject(\"Excel.Application\") '创建EXCEL应用类 xlApp.Visible = True '设置EXCEL可见 Set xlBook = xlApp.Workbooks.Open(\"D:\emp\\bb.xls\") '打开EXCEL工作簿 Set xlsheet = xlBook.Worksheets(1) '打开EXCEL工作表 xlsheet.Activate '激活工作表 xlsheet.Cells(1, 1) = \"abc\" '给单元格1行驶列赋值 xlBook.RunAutoMacros (xlAutoOpen) 运行EXCEL中的启动宏
Else MsgBox (\"EXCEL已打开\") End If End Sub Private Sub Command2_Click() If Dir(\"D:\emp\\excel.bz\") <> \"\" Then '由VB关闭EXCEL xlBook.RunAutoMacros (xlAutoClose) '执行EXCEL关闭宏 xlBook.Close (True) '关闭EXCEL工作簿 xlApp.Quit '关闭EXCEL End If Set xlApp = Nothing '释放EXCEL对象 End
End Sub
2、在D盘根目录上建立一个名为Temp的子目录，在Temp目录下建立一个名为\"bb.xls\"的EXCEL文件。 3、在\"bb.xls\"中打开Visual Basic编辑器，在工程窗口中点鼠标键选择插入模块，在模块中输入入下程序存盘： Sub auto_open() Open \"d:\emp\\excel.bz\" For Output As #1 '写标志文件 Close #1 End Sub Sub auto_close() Kill \"d:\\temp\\excel.bz\" '删除标志文件 End Sub 4、运行VB程序，点击EXCEL按钮可以打开EXCEL系统，打开EXCEL系统后，VB程序和EXCEL分别属两个不同的应用系统，均可同时进行操作，由于系统加了判断，因此在VB程序中重复点击EXCEL按钮时会提示EXCEL已打开。如果在EXCEL中关闭EXCEL后再点EXCEL按钮，则会重新打开EXCEL。而无论EXCEL打开与否，通过VB程序均可关闭EXCEL。这样就实现了VB与EXCEL的无缝连接。
要知道在VB中doc和xls文件只能调用word和excel来打开 VB是不能独立读取这些文件的。
除非你对doc和xls文件格式有相当了解
到了wp达s2005工程师的水平 xls文件到还能通过其他方法来获取其中的数据 而且只能获得数据，
格式信息一定要通过引用office对象来取得
doc文件就更不要多想了
肯定不行。
但后台打开文件不让软件界面显示是完全可以做到的。
事实是
当你引用了office对象
除非专门加入Visible = True 命令显示word或excel界面
不然软件的界面是不会显示的。 VB添加EXCEL表
Dim xlBook As Excel.WorkBook Set xlBook = App.Workbooks.Open(\"文件名\") 这种语法同样要求excel已经存在才能操作。 Public xlApp As Excel.Application Public xlBook As Excel.Workbook Public xlChar As New Excel.Chart Public xlSheet As New Excel.Worksheet Set xlApp = New Excel.Application Set xlApp = CreateObject(\"Excel.Application\") Set xlBook = xlApp.Workbooks.Add Set xlSheet = xlBook.Worksheets.Add xlSheet.Cells(1, 1) = \"测试\" '写入内容 xlBook.SaveAs (\"FILENAME\") '保存文件 xlApp.Quit
Set xlApp = Nothing 本方法采用add添加excel文件和datasheet，然后用save保存。如果用xlApp.Visible=False，则自动生成文件。但是如果文件已经存在，则会弹出是否覆盖的提示。因此，最好先在程序中检查文件是否已经存在，如果存在，则用普通方法打开。如果不存在，则用add添加，并保存。 可以用NumberFormatLocal 和NumberFormat 两个属性设置 假设你的worksheet对象是 Mysheet,下面是几个实例 VB设置EXCEL字体
现在编写VB导出EXECEL的程序，其列宽固定，但这一列中的每一行内容有长有短，所以，有的行显示不完整，现在强调列宽不能使用自适应，一定要固定，问：有没有办法，可根据列宽，自动调整每一行字号的大小，来适应列宽，显示完所有内容。 Set objCell = objSheet.Range(Cells(2, 1), Cells(10, 1)) objCell.ColumnWidth = 3 设定自动填充字体 Range(\"A1:A2\").ShrinkToFit = True
Mysheet.Range(\"C4:D9\").NumberFormatLocal = \"[$-F800]dddd, mmmm dd, yyyy\" Mysheet.Range(\"F14:F16\").Select Selection.NumberFormatLocal = \"yyyy\"\"年\"\"m\"\"月\"\"d\"\"日\"\";@\" Mysheet.Range(\"H10\").Selection.NumberFormatLocal = \"[DBNum1][$-804]m\"\"月\"\"d\"\"日\"\";@\" Mysheet.Range(\"A17\").NumberFormat = \"General\" Mysheet.Rows(1).NumberFormat = \"hh:mm:ss\" Mysheet.Columns(\"C\"). _ NumberFormat = \"$#,##0.00_);[Red]($#,##0.00)\"
在VB中如何设置EXCEL的某个单元格的“数字”为文本格式？（也就是在设置单元格格式的选项卡中的„数字‟选项的格式为文本） 例如将01-01-01用vb写入Excel的单元格中，如果不设置单元格的格式时它将变成日期的格式，所以要设置单元格的格式为文本，它才不变。 1.在写入Excel时若是文本，在前面增加 \"‟ \" 2.工程-> 引用 中加载 \"Microsoft Word8.0 Object liberary \"对象 Dim Ex As Object 'Excel应用对象
Set Ex = CreateObject( \"Excel.Application \") Ex.Selection.NumberFormatLocal = \"@ \"
因篇幅问题不能全部显示，请点此查看更多更全内容