首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > .NET > VB Dotnet >

急死了,该如何处理

2012-02-09 
急死了Dim objApp As Excel.ApplicationDim objBook As Excel._WorkbookDim table_date As String我想做到

急死了
Dim objApp As Excel.Application
  Dim objBook As Excel._Workbook
  Dim table_date As String

我想做到处Excel的程序,但按上边写,报错,我想问我要引用什么,才行啊?
谢谢

[解决办法]
Imports Microsoft.Office.Core
Imports Microsoft.Office.Interop.Excel
[解决办法]
VB中,如何调用Excel打开xls表?


有两种方法:

第一,可以使用Shell直接调用Excel程序打开xls表。语法: shell ( "程序Path" "xls表路径")

第二,利用Automation来调用Excel,这样可以实现更多地控制。如: 

Dim oleExcel As Object 
Set oleExcel = CreateObject("Excel.Application") 
oleExcel.Visible = True 
' 打开文件 
oleExcel.Workbooks.Open filename:="G:\My Documents\bank.xls" 
' 从xls文件中读内容 
Label1.Caption = oleExcel.Worksheets("Sheet1").Range("A1").Cells(1, 1) 
' 写内容到xls文件中 
oleExcel.Worksheets("Sheet1").Range("A3").Cells(1, 1) = Text1.Text 



[解决办法]
请参见顶级高手写的Excel操作类(VB.NET) 
http://blog.csdn.net/Modest/archive/2007/07/30/1716649.aspx

热点排行