<em>vb.net</em>如何调用<em>打开</em>外部exce

Dim myExcel As New Excel.Application '定义进程
Dim WorkBook As Excel.Workbook '定义工作复簿
Dim Sheet As Excel.Worksheet '定义工作表

'操作
myExcel.Visible = False '不显示制excel 程序
WorkBook = myExcel.Workbooks.Add() '
Sheet = WorkBook.Sheets(1) '获得第1个工作表的控制句知柄

Sheet.Cells(1, 3) = "好人一生幸福" & i '对指定单元格赋值道(读信息当然也没问题了)Sheet.Cells(1, 3)

第一步，新建项目。

• 1

  打开来vb.net，也就是打开Microsoft visual studio 2010，第一次使用的时候设置为basic语言就行。自新建项目--打开excel。

• 2

  新建成功。

  END

第二步，添加引用。

• 1

  “项目”--“添加引用”。

• 2

  添加Microsoft Excel 14.0 Object Library。

  END

第三步，添加打开百文件对话框工具。

• 1

  工具箱--对话框--openfiledialog。

• 2

  添加成功。

  END

第四步，添加命度令按钮控件。

• 1

  工具箱--公共控件--button。

  在控件上右击鼠标，进入属性设置。

• 2

  text属性设置为“打开excel”。

• 3

  name属性也设置为“打开excel”。

  END

第五步，编写程序。

• 1

  鼠标双击命令按钮，进入编程界面，编写程序。

  END

第六步，运行程序。

• 1

  鼠标单击启动调问式图标，程序开始运行。

• 2

  单击打开excel命令按钮，调用打开文件对话框，选择自己要答打开的excel文件。

  END

第七步，保存程序。

• 第一次程序运行完，关闭程序，出现关闭项目提示，选择保存。

• 2

  选好自己要保存的位置。

Dim xlApp As New Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim xlRange As Excel.Range
Dim strTmp As String = ""
xlApp = CreateObject("Excel.Application")
xlBook = xlApp.Workbooks.Open(txtfileName.Text)
xlSheet = xlBook.Worksheets(1)
xlApp.Visible = False
xlRange = xlSheet.Cells(1, 1)
strTmp = xlRange.Value'读取第复一行第一列值制,其它的你自己可知以写
xlApp.Application.Visible = False
xlBook.Close()
xlApp = Nothing'"交还控制道给Excel
xlBook = Nothing
xlSheet = Nothing

我的是2007版本，其它e79fa5e98193e59b9ee7ad94366类似
1.在工程中引用Microsoft Excel 12.0 Object Library

2、在通用对象的声明过程中定义EXCEL对象：
Dim xlApp As Excel.Application
Dim xlBook As Excel.WorkBook
Dim xlSheet As Excel.Worksheet

3、在程序中操作VB.NET 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关闭宏

还有很多，这个要自己慢慢摸索