vb中怎么读取excel文件

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

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

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

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

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

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

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

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

Dim xlapp As ExcelApplication 'Excel对象

Dim xlbook As ExcelWorkbook '工作簿

Dim xlsheet As ExcelWorksheet '工作表

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

Private Sub Excel_Out_Click()

Dimi, j As Integer

Setxlapp = CreateObject("ExcelApplication") '创建EXCEL对象

'Set xlbook = xlappWorkbooksOpen(AppPath& "\testxls")'打开已经存在的testxls工件簿文件

Setxlbook = xlappWorkbooksAdd '新建EXCEL工件簿文件

'xlbookRunAutoMacros (xlAutoOpen) '运行EXCEL启动宏

'xlbookRunAutoMacros (xlAutoClose) '运行EXCEL关闭宏

xlappVisible = True '设置EXCEL对象可见（或不可见）

Setxlsheet = xlbookWorksheets(1) '设置活动工作表''

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

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

Fori = 7 To 15

For j = 1 To 10

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

Next j

Nexti

Withxlsheet '设置边框为是实线

Range(Cells(7, 1), Cells(28, 29))BordersLineStyle = xlContinuous

EndWith

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

Setxlsheet = xlappApplicationWorksheets(2)

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

xlsheetSaveAsAppPath&"\testxls" '按指定文件名存盘

'Setxlbook = xlappApplicationWorkbooksAdd '新建一空白工作簿

xlappQuit '结束EXCEL对象'xlappWorkbooksClose

Setxlapp = Nothing '释放xlApp对象

End Sub

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

1．创建Excel对象

eole=CREATEOBJECT(′Excelapplication′)

2．添加新工作簿

eoleWorkbooksadd

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

eoleWorksheets(〃sheet3〃)Activate

4．打开指定工作簿

eoleWorkbooksOpen(〃c:\temp\llxls〃)

5．显示Excel窗口

eolevisible=t

6．更改Excel标题栏

eoleCaption=〃VB应用程序调用Microsoft Excel〃

7．给单元格赋值

eolecells(1,4)value=XM(XM为数据库字段名)

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

eoleActiveSheetColumns(1)ColumnWidth=5

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

eoleActiveSheetRows(1)RowHeight=1/0035

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

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

eoleWorksheets(〃Sheet1〃)Rows(18)PageBreak=1

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

eoleActiveSheetColumns(4)PageBreak=0

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

oleActiveSheetRange(〃b3:d3〃)Borders(2)Weight=3

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

eoleActiveSheetRange(〃b3:d3〃)Borders(2)LineStyle=1

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

14．设置页眉

eoleActiveSheetPageSetupCenterHeader=〃报表1〃

15．设置页脚

eoleActiveSheetPageSetupCenterFooter=〃第＆P页〃

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

eoleActiveSheetPageSetupHeaderMargin=2/0035

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

eoleActiveSheetPageSetupFooterMargin=3/0035

18．设置顶边距为2厘米

eoleActiveSheetPageSetupTopMargin=2/0035

19．设置底边距为4厘米

eoleActiveSheetPageSetupBottomMargin=4/0035

20．设置左边距为2厘米

veoleActiveSheetPageSetupLeftMargin=2/0035

21．设置右边距为2厘米

eoleActiveSheetPageSetupRightMargin=2/0035

22．设置页面水平居中

eoleActiveSheetPageSetupCenterHorizontally=t

23．设置页面垂直居中

eoleActiveSheetPageSetupCenterVertically=t

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

eoleActiveSheetPageSetupPaperSize=1

25．打印单元格网线

eoleActiveSheetPageSetupPrintGridlines=t

26．拷贝整个工作表

eoleActiveSheetUsedRangeCopy

27．拷贝指定区域

eoleActiveSheetRange(〃A1:E2〃)Copy

28．粘贴

eoleWorkSheet(〃Sheet2〃)Range(〃A1〃)PasteSpecial

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

eoleActiveSheetRows(2)Insert

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

eoleActiveSheetColumns(2)Insert

31．设置字体

eoleActiveSheetCells(2,1)FontName=〃黑体〃

32．设置字体大小

eoleActiveSheetCells(1,1)FontSize=25

33．设置字体为斜体

eoleActiveSheetCells(1,1)FontItalic=t

34．设置整列字体为粗体

eoleActiveSheetColumns(1)FontBold=t

35．清除单元格公式

eoleActiveSheetCells(1,4)ClearContents

36．打印预览工作表

eoleActiveSheetPrintPreview

37．打印输出工作表

eoleActiveSheetPrintOut

38．工作表另存为

eoleActiveWorkbookSaveAs(〃c:\temp\22xls〃)

39．放弃存盘

eoleActiveWorkbooksaved=t

40．关闭工作簿

eoleWorkbooksclose

41．退出Excel

eolequit

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

Dim rs As ADODBRecordset

Set rs = New ADODBRecordset

Dim conn As ADODBConnection

Set conn = New ADODBConnection

connOpen "DRIVER={Microsoft Text Driver (txt; csv)};" DBQ=" & AppPath & ";", "", ""

rsOpen "select from [test$]", conn, adOpenStatic, adLockReadOnly, adCmdText

Set Read_Text_File = rs

Set rs = Nothing

Set conn = Nothing

给你一段VBnet读取csv文件的代码把。

Imports SystemIO

Imports SystemCollectionsGeneric

Module Module1

    Public CSV数据 As List(Of List(Of String))

    ''' <summary>

    ''' 从指定路径的文件读取内容，并分析出其中每行含有分隔符的数据，存到CSV数据中。

    ''' <para>调用的时候使用CSV数据(5)(0)表示第6条记录的第1个数据</para>

    ''' </summary>

    ''' <param name="文件路径">必需。一个[String]表达式。要读取的文件路径。</param>

    ''' <returns>返回是否读取成功</returns>

    ''' <remarks></remarks>

    Public Function 读取(ByVal 文件路径 As String) As Boolean

        Dim 文件读取器 As StreamReader = New StreamReader(文件路径)

        Dim 语句 As String

        Dim t成功 As Boolean = True

        Dim 分隔符 As Char = ";"

        CSV数据 = New List(Of List(Of String))

        While Not 文件读取器EndOfStream

            Try

                语句 = 文件读取器ReadLine

                '分析语句后判断类型

                If 语句Contains(分隔符) Then

                    Dim array = 语句Split(分隔符)

                    If array IsNot Nothing Then

                        CSV数据Add(arrayToList())

                    End If

                End If

            Catch ex As Exception

                t成功 = False

            End Try

        End While

        Return t成功

    End Function

End Module

你上面的数据执行后，将会保存到一个List嵌套List的String组中。

自己转化为数字再进行 *** 作把。

Dim 数字 = ConvertToDecimal(CSV数据(5)(0))

文件通用读、写、追加函数

Sub Appdoc(ByVal docpath As String, ByVal txt As String)'追加记录函数

Open docpath For Append As #1

Print #1, txt

Close #1

End Sub

Public Function openfile(ByVal filepath As String) As String'读入文件函数

Dim s As String

Open filepath For Input As #1

While Not EOF(1)

Line Input #1, sline

s = s & sline & vbCrLf

Wend

Close #1

openfile = s

End Function

Public Function savefile(ByVal filepath As String, ByVal txt As String)'保存文件函数

Open filepath For Output As #1

Print #1, txt

Close #1

End Function

'首先你的建立个atxt的文件 然后随便写些什么 然后放到C盘根目录下 示例代码如下：

Private Sub Form_Click()

Open "c:\atxt" For Input As #1

Do While Not EOF(1)

Input #1, b

Text1Text = Text1Text & b

Loop

End Sub

以上就是关于vb中怎么读取excel文件全部的内容，包括:vb中怎么读取excel文件、vb如何实时读取csv文件、vb读取文件等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！