vb中怎么读取excel文件

1、调用Excel对象打开EXCEL文件后，读取文件内容

成都创新互联公司是专业的长泰网站建设公司，长泰接单;提供成都做网站、成都网站建设、成都外贸网站建设,网页设计,网站设计,建网站,PHP网站建设等专业做网站服务;采用PHP框架,可快速的进行长泰网站开发网页制作和功能扩展;专业做搜索引擎喜爱的网站,专业的做网站团队,希望更多企业前来合作!

***************************************

在VB中要想调用Excel，需要打开VB编程环境“工程”菜单中的“引用”项目，并选取项目中的“MicrosoftExcel 11.0 object library”项。由于你的Excel版本不同，所以这个选项的版本号也是不同的。

因为EXCEL是以层次结构组织对象的，其对象模型中含有许多不同的对象元素。

第一层：Application对象，即Excel本身；

第二层：workbooks对象集，指Excel的工作簿文件

第三层：worksheets对象集，表示的是Excel的一个工作表；

第四层：Cells和Range对象，指向Excel工作表中的单元格。

新建立一个VB的工程，先放一个button，名称为Excel_Out。先定义好各层：

Dim xlapp As Excel.Application 'Excel对象

Dim xlbook As Excel.Workbook '工作簿

Dim xlsheet As Excel.Worksheet '工作表

我们打算做的是：打开/新建一个excel，在其中对某工作表的一些单元格修改其值，然后另存为test.xls文件。

Private Sub Excel_Out_Click()

Dimi, j As Integer

Setxlapp = CreateObject("Excel.Application") '创建EXCEL对象

'Set xlbook = xlapp.Workbooks.Open(App.Path "\test.xls")'打开已经存在的test.xls工件簿文件

Setxlbook = xlapp.Workbooks.Add '新建EXCEL工件簿文件

'xlbook.RunAutoMacros (xlAutoOpen) '运行EXCEL启动宏

'xlbook.RunAutoMacros (xlAutoClose) '运行EXCEL关闭宏

xlapp.Visible = True '设置EXCEL对象可见（或不可见）

Setxlsheet = xlbook.Worksheets(1) '设置活动工作表''

''~~~当前工作簿的第一页,这里也可以换成“表名”

'下面就是简单的在一些单元格内写入数字

Fori = 7 To 15

For j = 1 To 10

xlsheet.Cells(i, j) = j '当前工作簿第一页的第I行第J列

Next j

Nexti

Withxlsheet '设置边框为是实线

.Range(.Cells(7, 1), .Cells(28, 29)).Borders.LineStyle = xlContinuous

EndWith

'引用当前工作簿的第二页

Setxlsheet = xlapp.Application.Worksheets(2)

xlsheet.Cells(7, 2) = 2008 '在第二页的第7行第2列写入2008

xlsheet.SaveAsApp.Path"\test.xls" '按指定文件名存盘

'Setxlbook = xlapp.Application.Workbooks.Add '新建一空白工作簿

xlapp.Quit '结束EXCEL对象'xlapp.Workbooks.Close

Setxlapp = Nothing '释放xlApp对象

End Sub

这样，我们就可以简单的对excel文件进行操作了。下面再放一些我从网上查到的资料吧，还挺有用的：

1．创建Excel对象

eole=CREATEOBJECT(′Excel.application′)

2．添加新工作簿

eole.Workbooks.add

3．设置第3个工作表为激活工作表

eole.Worksheets(〃sheet3〃).Activate

4．打开指定工作簿

eole.Workbooks.Open(〃c:\temp\ll.xls〃)

5．显示Excel窗口

eole.visible=.t.

6．更改Excel标题栏

eole.Caption=〃VB应用程序调用Microsoft Excel〃

7．给单元格赋值

eole.cells(1,4).value=XM(XM为数据库字段名)

8．设置指定列的宽度(单位：字符个数)

eole.ActiveSheet.Columns(1).ColumnWidth=5

9．设置指定行的高度(单位：磅)

eole.ActiveSheet.Rows(1).RowHeight=1/0.035

(设定行高为1厘米，1磅=0.035厘米)

10．在第18行之前插入分页符

eole.Worksheets(〃Sheet1〃).Rows(18).PageBreak=1

11．在第4列之前删除分页符

eole.ActiveSheet.Columns(4).PageBreak=0

12．指定边框线宽度(Borders参数如下)

ole.ActiveSheet.Range(〃b3:d3〃).Borders(2).Weight=3

13．设置四个边框线条的类型

eole.ActiveSheet.Range(〃b3:d3〃).Borders(2).LineStyle=1

(其中Borders参数：1－左、2－右、3－顶、4－底、5－斜、6－斜/；LineStyle值：1与7－细实、2－细虚、4－点虚、9－双细实线)

14．设置页眉

eole.ActiveSheet.PageSetup.CenterHeader=〃报表1〃

15．设置页脚

eole.ActiveSheet.PageSetup.CenterFooter=〃第＆P页〃

16．设置页眉到顶端边距为2厘米

eole.ActiveSheet.PageSetup.HeaderMargin=2/0.035

17．设置页脚到底边距为3厘米

eole.ActiveSheet.PageSetup.FooterMargin=3/0.035

18．设置顶边距为2厘米

eole.ActiveSheet.PageSetup.TopMargin=2/0.035

19．设置底边距为4厘米

eole.ActiveSheet.PageSetup.BottomMargin=4/0.035

20．设置左边距为2厘米

veole.ActiveSheet.PageSetup.LeftMargin=2/0.035

21．设置右边距为2厘米

eole.ActiveSheet.PageSetup.RightMargin=2/0.035

22．设置页面水平居中

eole.ActiveSheet.PageSetup.CenterHorizontally=.t.

23．设置页面垂直居中

eole.ActiveSheet.PageSetup.CenterVertically=.t.

24．设置页面纸张大小(1－窄行8511 39－宽行1411)

eole.ActiveSheet.PageSetup.PaperSize=1

25．打印单元格网线

eole.ActiveSheet.PageSetup.PrintGridlines=.t.

26．拷贝整个工作表

eole.ActiveSheet.UsedRange.Copy

27．拷贝指定区域

eole.ActiveSheet.Range(〃A1:E2〃).Copy

28．粘贴

eole.WorkSheet(〃Sheet2〃).Range(〃A1〃).PasteSpecial

29．在第2行之前插入一行

eole.ActiveSheet.Rows(2).Insert

30．在第2列之前插入一列

eole.ActiveSheet.Columns(2).Insert

31．设置字体

eole.ActiveSheet.Cells(2,1).Font.Name=〃黑体〃

32．设置字体大小

eole.ActiveSheet.Cells(1,1).Font.Size=25

33．设置字体为斜体

eole.ActiveSheet.Cells(1,1).Font.Italic=.t.

34．设置整列字体为粗体

eole.ActiveSheet.Columns(1).Font.Bold=.t.

35．清除单元格公式

eole.ActiveSheet.Cells(1,4).ClearContents

36．打印预览工作表

eole.ActiveSheet.PrintPreview

37．打印输出工作表

eole.ActiveSheet.PrintOut

38．工作表另存为

eole.ActiveWorkbook.SaveAs(〃c:\temp\22.xls〃)

39．放弃存盘

eole.ActiveWorkbook.saved=.t.

40．关闭工作簿

eole.Workbooks.close

41．退出Excel

eole.quit

***************************************

2、调用ADO对象以数据库方式打开EXECL文件后，以SQL语句方式读取文件

***************************************

Dim rs As ADODB.Recordset

Set rs = New ADODB.Recordset

Dim conn As ADODB.Connection

Set conn = New ADODB.Connection

conn.Open "DRIVER={Microsoft Text Driver (*.txt; *.csv)};" DBQ=" App.Path ";", "", ""

rs.Open "select * from [test$]", conn, adOpenStatic, adLockReadOnly, adCmdText

Set Read_Text_File = rs

Set rs = Nothing

Set conn = Nothing

***************************************

用vb读取Excel中某个单元格的数据

单纯的说怎么读取很简单，假设你的控件名称为A，则  A.text = “sheet1.cells(2,2).value”

下面给出VB.NET 的完整代码：

Public Class Form1

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

Dim DataSPath As String

DataSPath = "C:\a.xls"

Dim ExlApp = CreateObject("Excel.Application")

Dim xlbook = ExlApp.Workbooks

Dim xlbk = ExlApp.workbooks.Open(DataSPath)

Dim St1 = xlbk.worksheets(1)

TextBox1.Text = DataSPath  " 表1中 "  St1.cells(2, 2).value

St1 = Nothing

xlbook = Nothing

ExlApp = Nothing

MsgBox("OK", MsgBoxStyle.Exclamation, "Tudy")

End Sub

End Class

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

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

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