包含vb.net读取xls的词条

用vb.net如何读取excel单元格内容？

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)

相关问答

Q1: vb.net怎么访问excel表格

我的是2007版本，其它类似

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关闭宏

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

Q2: VB.NET获取Excel单元格内容

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

Q3: vb.net如何与excel建立连接，并从里面查询并读取数据？

1.新建一张表格，在表格中导入学生的成绩表，如图所示，将建立一个按钮，通过它来实现查找。

 2.单击菜单栏中的“开发工具”——插入——表单控件——按钮，在出现的十字箭头上拖住画出一个按钮，如图所示。

3.在弹出的查找红对话框中选择“录制”，在弹出的“录制新宏”对话框中，修改宏名称为“查找”，单击确定。

4. 单击“开发工具”——查看代码，打开VBA编辑器，如图所示。

5.现在输入代码：

Sub 查找()

  Dim jieguo As String, p As String, q As String

  Dim c As Range

  jieguo = Application.InputBox(prompt:="请输入要查找的值：", Title:="查找", Type:=2)

  If jieguo = "False" Or jieguo = "" Then Exit Sub

  Application.ScreenUpdating = False

  Application.DisplayAlerts = False

  With ActiveSheet.Cells

      Set c = .Find(jieguo, , , xlWhole, xlByColumns, xlNext, False)

      If Not c Is Nothing Then

          p = c.Address

          Do

              c.Interior.ColorIndex = 4

              q = q c.Address vbCrLf

              Set c = .FindNext(c)

          Loop While Not c Is Nothing And c.Address p

      End If

End With

MsgBox "查找数据在以下单元格中：" vbCrLf vbCrLf _

      q, vbInformation + vbOKOnly, "查找结果"

    Application.ScreenUpdating = True

    Application.DisplayAlerts = True

End Sub

6.现在回到EXCEL表格，右击按钮，选择“编辑文字”，修改按钮名称为“查找按钮”。

7. 现在单击查找按钮，出现对话框“请输入要查找的值”，在方框中输入“男”，单击确定，出现对话框“查找数据在一下单元格中”，单击确定，对应单元格就变成了亮色。

Q4: 你好，我现在遇到同样的问题，我想通过vb.net程序读取excel中的单元格数据，你实现了吗？教教我啊，，邮箱

1,先添加excel的引用，然后添加如下代码：

Imports Microsoft.Office.Interop.Excel

Imports Microsoft.Office.Interop

Imports Microsoft.Office

2，添加一个button空间，添加如下代码：

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim xlapp As New Excel.Application

Dim xlbook As Excel.Workbook

Dim xlsheet As Excel.Worksheet

xlbook = xlapp.Workbooks.Open("c:\1.xls")

xlsheet = xlbook.Worksheets(0)

Console.WriteLine(xlsheet.Cells(1, 1).text)

xlbook = Nothing

xlapp.Quit()

End Sub

到此，应该就能读取了。

Q5: 关于VB.net中读取Excel数据存入数组后的再读取问题

因为Excel表的左上角的单元格都是以第一行第一列

MsgBox(LBound(arr, 1)) '一维最小下标

MsgBox(LBound(arr, 2)) '二维最小下标

测试：用上面函数（LBound）得到的结果都是1