vb读取已打开的文件

『壹』 用VB调用已经打开的EXCEL文档

Dim oExcel As New Excel.Application
Dim ExlSht As Excel.Worksheet
On Error GoTo 1
Set oExcel = GetObject(, "Excel.Application")'获得当前打开的EXCEL
'若Excel没有启动
1:
If Err = 429 Then
Err = 0
Set oExcel = CreateObject("Excel.Application")
'无法创建Excel对象
If Err = 429 Then
MsgBox Err & ": " & Error, vbExclamation + vbOKOnly
Exit Sub
End If
End If
'oExcel.Workbooks.Add
'检查最新的版本
If Val(oExcel.Application.Version) >= 8 Then
Set ExlSht = oExcel.ActiveSheet
Else
Set ExlSht = oExcel
End If
'OExcel.Visible = True
ExlSht.Cells(1, 1) = "AAA" '操作

『贰』 vb中怎么读取excel文件

1、调用Excel对象打开EXCEL文件后，读取文件内容
***************************************
在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 读取打开的文件名

如果你的文件名是存在filename这个变量中的话，那么可以写：
Me.Caption
=
filename
+
"
-
记事本"
或者如果是用通用对话框获取的文件名，那就是
Me.Caption
=
commdlg.filename
+
"
-
记事本"
当然，如果你用的是VB6，上面的代码没有问题。但如果是VB.net的话，Me.caption要改成me.text才行

『肆』 VB 如何读取 已经打开的一个TXT文件的某特定一行

Private Sub Form_click()
Print ReadSomeLine("z:\1.txt", 3)
End Sub
Function ReadSomeLine(Str1 As String, LineN As Integer)
Dim temp As String
Dim a() As Variant, x As Integer
Open Str1 For Input As #1
Do While Not EOF(1)
Line Input #1, temp
ReDim Preserve a(x)
a(x) = temp
x = x + 1
Loop
Close #1
ReadSomeLine = a(LineN - 1)
End Function

『伍』 VB中如何读写文件 谢谢了

用open
open <文件名>[for 打开方式] as [#]<文件号>
打开方式有三种
（1）input：向计算机输入数据，即从所打开的文件中读取数据。
(2)output:向文件写数据，即从计算机向所打开的文件写数据。如果文件中原来已有数据，则原有数据被抹去，即新写上的数据覆盖已有的数据。
（3）append:向文件添加数据，即从计算机向所打开的文件写数据。不同于output方式的是，append方式把新的数据添加到文件尾部原有数据的后边，文件中保留原有数据。
AS是一个关键字，as引导的短语为打开的文件指定一个文件号。#号是可选项。文件号是一个1~511之间的整数。文件号用来代表所打开的文件。

例如：打开c:\a.txt文件
open "c:\a.txt" for output as #1

向文件写数据用print和write语句：
print #<文件号>[,输出表列]
write #<文件号>〔，输出表列]
例如向上面打开的文件写数据
print #1,"a";"b";"c"
close #1
文件里显示为：
abc

『陆』 请问VB中如何读取txt文件的数据

1、新建一个标准的VB EXE工程，只有一个Form，Form上有两个按钮：Command1和Command2。

『柒』 用VB调用已经打开的EXCEL文档

一、 VB读写EXCEL表：
VB本身提自动化功能可以读写EXCEL表，其方法如下：
1、在工程中引用Microsoft Excel类型库：
从"工程"菜单中选择"引用"栏；选择Microsoft Excel 9.0 Object Library（EXCEL2000），然后选择"确定"。表示在工程中要引用EXCEL类型库。
2、在通用对象的声明过程中定义EXCEL对象：
Dim xlApp As Excel.Application
Dim xlBook As Excel.WorkBook
Dim xlSheet As Excel.Worksheet
3、在程序中操作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关闭宏
4、在运用以上VB命令操作EXCEL表时，除非设置EXCEL对象不可见，否则VB程序可继续执行其它操作，也能够关闭EXCEL，同时也可对EXCEL进行操作。但在EXCEL操作过程中关闭EXCEL对象时，VB程序无法知道，如果此时使用EXCEL对象，则VB程序会产生自动化错误。形成VB程序无法完全控制EXCEL的状况，使得VB与EXCEL脱节。
二、 EXCEL的宏功能：
EXCEL提供一个Visual Basic编辑器，打开Visual Basic编辑器，其中有一工程属性窗口，点击右键菜单的"插入模块"，则增加一个"模块1"，在此模块中可以运用Visual Basic语言编写函数和过程并称之为宏。其中，EXCEL有两个自动宏：一个是启动宏（Sub Auto_Open()），另一个是关闭宏（Sub Auto_Close()）。它们的特性是：当用EXCEL打含有启动宏的工簿时，就会自动运行启动宏，同理，当关闭含有关闭宏的工作簿时就会自动运行关闭宏。但是通过VB的自动化功能来调用EXCEL工作表时，启动宏和关闭宏不会自动运行，而需要在VB中通过命令xlBook.RunAutoMacros (xlAutoOpen)和xlBook.RunAutoMacros (xlAutoClose) 来运行启动宏和关闭宏。
三、 VB与EXCEL的相互勾通：
充分利用EXCEL的启动宏和关闭宏，可以实现VB与EXCEL的相互勾通，其方法如下：
在EXCEL的启动宏中加入一段程序，其功能是在磁盘中写入一个标志文件，同时在关闭宏中加入一段删除此标志文件的程序。VB程序在执行时通过判断此标志文件存在与否来判断EXCEL是否打开，如果此标志文件存在，表明EXCEL对象正在运行，应该禁止其它程序的运行。如果此标志文件不存在，表明EXCEL对象已被用户关闭，此时如果要使用EXCEL对象运行，必须重新创建EXCEL对象。
四、举例：
1、在VB中，建立一个FORM，在其上放置两个命令按钮，将Command1的Caption属性改为EXCEL，Command2的Caption属性改为End。然后在其中输入如下程序：
Dim xlApp As Excel.Application '定义EXCEL类
Dim xlBook As Excel.Workbook '定义工件簿类
Dim xlsheet As Excel.Worksheet '定义工作表类
Private Sub Command1_Click() '打开EXCEL过程
If Dir("D:\temp\excel.bz") = "" Then '判断EXCEL是否打开
Set xlApp = CreateObject("Excel.Application") '创建EXCEL应用类
xlApp.Visible = True '设置EXCEL可见
Set xlBook = xlApp.Workbooks.Open("D:\temp\bb.xls") '打开EXCEL工作簿
Set xlsheet = xlBook.Worksheets(1) '打开EXCEL工作表
xlsheet.Activate '激活工作表
xlsheet.Cells(1, 1) = "abc" '给单元格1行驶列赋值
xlBook.RunAutoMacros (xlAutoOpen) '运行EXCEL中的启动宏
Else
MsgBox ("EXCEL已打开")
End If
End Sub

Private Sub Command2_Click()
If Dir("D:\temp\excel.bz") <> "" Then '由VB关闭EXCEL
xlBook.RunAutoMacros (xlAutoClose) '执行EXCEL关闭宏
xlBook.Close (True) '关闭EXCEL工作簿
xlApp.Quit '关闭EXCEL
End If
Set xlApp = Nothing '释放EXCEL对象
End
End Sub

2、在D盘根目录上建立一个名为Temp的子目录，在Temp目录下建立一个名为"bb.xls"的EXCEL文件。
3、在"bb.xls"中打开Visual Basic编辑器，在工程窗口中点鼠标键选择插入模块，在模块中输入入下程序存盘：
Sub auto_open()
Open "d:\temp\excel.bz" For Output As #1 '写标志文件
Close #1
End Sub

Sub auto_close()
Kill "d:\temp\excel.bz" '删除标志文件
End Sub
4、运行VB程序，点击EXCEL按钮可以打开EXCEL系统，打开EXCEL系统后，VB程序和EXCEL分别属两个不同的应用系统，均可同时进行操作，由于系统加了判断，因此在VB程序中重复点击EXCEL按钮时会提示EXCEL已打开。如果在EXCEL中关闭EXCEL后再点EXCEL按钮，则会重新打开EXCEL。而无论EXCEL打开与否，通过VB程序均可关闭EXCEL。这样就实现了VB与EXCEL的无缝连接。

『捌』 vb中怎么读取excel文件

1、调用Excel对象打开EXCEL文件后，读取文件内容x0dx0a***************************************x0dx0a在VB中要想调用Excel，需要打开VB编程环境“工程”菜单中的“引用”项目，并选取项目中的“MicrosoftExcel 11.0 object library”项。由于你的Excel版本不同，所以这个选项的版本号也是不同的。x0dx0a x0dx0a因为EXCEL是以层次结构组织对象的，其对象模型中含有许多不同的对象元素。x0dx0a第一层：Application对象，即Excel本身；x0dx0a第二层：workbooks对象集，指Excel的工作簿文件x0dx0a第三层：worksheets对象集，表示的是Excel的一个工作表；x0dx0a第四层：Cells和Range对象，指向Excel工作表中的单元格。x0dx0a新建立一个VB的工程，先放一个button，名称为Excel_Out。先定义好各层：x0dx0aDim xlapp As Excel.Application 'Excel对象x0dx0aDim xlbook As Excel.Workbook '工作簿x0dx0aDim xlsheet As Excel.Worksheet '工作表x0dx0a我们打算做的是：打开/新建一个excel，在其中对某工作表的一些单元格修改其值，然后另存为test.xls文件。x0dx0aPrivate Sub Excel_Out_Click()x0dx0a Dimi, j As Integerx0dx0a Setxlapp = CreateObject("Excel.Application") '创建EXCEL对象x0dx0a 'Set xlbook = xlapp.Workbooks.Open(App.Path& "\test.xls")'打开已经存在的test.xls工件簿文件x0dx0a Setxlbook = xlapp.Workbooks.Add '新建EXCEL工件簿文件x0dx0a 'xlbook.RunAutoMacros (xlAutoOpen) '运行EXCEL启动宏x0dx0a 'xlbook.RunAutoMacros (xlAutoClose) '运行EXCEL关闭宏x0dx0axlapp.Visible = True '设置EXCEL对象可见（或不可见）x0dx0a Setxlsheet = xlbook.Worksheets(1) '设置活动工作表'
''~~~当前工作簿的第一页,这里也可以换成“表名”x0dx0a x0dx0a'下面就是简单的在一些单元格内写入数字x0dx0a Fori = 7 To 15x0dx0a For j = 1 To 10x0dx0axlsheet.Cells(i, j) = j '当前工作簿第一页的第I行第J列x0dx0a Next jx0dx0a Nextix0dx0a Withxlsheet '设置边框为是实线x0dx0a .Range(.Cells(7, 1), .Cells(28, 29)).Borders.LineStyle = xlContinuousx0dx0a EndWithx0dx0a '引用当前工作簿的第二页x0dx0a Setxlsheet = xlapp.Application.Worksheets(2)x0dx0axlsheet.Cells(7, 2) = 2008 '在第二页的第7行第2列写入2008x0dx0axlsheet.SaveAsApp.Path&"\test.xls" '按指定文件名存盘x0dx0a 'Setxlbook = xlapp.Application.Workbooks.Add '新建一空白工作簿x0dx0axlapp.Quit '结束EXCEL对象'xlapp.Workbooks.Closex0dx0a Setxlapp = Nothing '释放xlApp对象x0dx0aEnd Subx0dx0a这样，我们就可以简单的对excel文件进行操作了。下面再放一些我从网上查到的资料吧，还挺有用的：x0dx0a 1．创建Excel对象x0dx0aeole=CREATEOBJECT(′Excel.application′) x0dx0a 2．添加新工作簿x0dx0aeole.Workbooks.addx0dx0a 3．设置第3个工作表为激活工作表x0dx0aeole.Worksheets(〃sheet3〃).Activate x0dx0a 4．打开指定工作簿x0dx0aeole.Workbooks.Open(〃c:\temp\ll.xls〃) x0dx0a 5．显示Excel窗口x0dx0aeole.visible=.t. x0dx0a 6．更改Excel标题栏x0dx0aeole.Caption=〃VB应用程序调用Microsoft Excel〃x0dx0a 7．给单元格赋值x0dx0aeole.cells(1,4).value=XM(XM为数据库字段名) x0dx0a 8．设置指定列的宽度(单位：字符个数) x0dx0aeole.ActiveSheet.Columns(1).ColumnWidth=5 x0dx0a 9．设置指定行的高度(单位：磅) x0dx0aeole.ActiveSheet.Rows(1).RowHeight=1/0.035 x0dx0a (设定行高为1厘米，1磅=0.035厘米) x0dx0a 10．在第18行之前插入分页符x0dx0aeole.Worksheets(〃Sheet1〃).Rows(18).PageBreak=1 x0dx0a 11．在第4列之前删除分页符x0dx0aeole.ActiveSheet.Columns(4).PageBreak=0 x0dx0a 12．指定边框线宽度(Borders参数如下) x0dx0aole.ActiveSheet.Range(〃b3:d3〃).Borders(2).Weight=3 x0dx0a 13．设置四个边框线条的类型x0dx0aeole.ActiveSheet.Range(〃b3:d3〃).Borders(2).LineStyle=1 x0dx0a (其中Borders参数：1－左、2－右、3－顶、4－底、5－斜、6－斜/；LineStyle值：1与7－细实、2－细虚、4－点虚、9－双细实线) x0dx0a 14．设置页眉x0dx0aeole.ActiveSheet.PageSetup.CenterHeader=〃报表1〃x0dx0a 15．设置页脚x0dx0aeole.ActiveSheet.PageSetup.CenterFooter=〃第＆P页〃x0dx0a 16．设置页眉到顶端边距为2厘米x0dx0aeole.ActiveSheet.PageSetup.HeaderMargin=2/0.035 x0dx0a 17．设置页脚到底边距为3厘米x0dx0aeole.ActiveSheet.PageSetup.FooterMargin=3/0.035 x0dx0a 18．设置顶边距为2厘米x0dx0aeole.ActiveSheet.PageSetup.TopMargin=2/0.035 x0dx0a 19．设置底边距为4厘米x0dx0aeole.ActiveSheet.PageSetup.BottomMargin=4/0.035 x0dx0a 20．设置左边距为2厘米x0dx0aveole.ActiveSheet.PageSetup.LeftMargin=2/0.035 x0dx0a 21．设置右边距为2厘米x0dx0aeole.ActiveSheet.PageSetup.RightMargin=2/0.035 x0dx0a 22．设置页面水平居中x0dx0aeole.ActiveSheet.PageSetup.CenterHorizontally=.t. x0dx0a 23．设置页面垂直居中x0dx0aeole.ActiveSheet.PageSetup.CenterVertically=.t. x0dx0a 24．设置页面纸张大小(1－窄行8511 39－宽行1411) x0dx0aeole.ActiveSheet.PageSetup.PaperSize=1 x0dx0a 25．打印单元格网线x0dx0aeole.ActiveSheet.PageSetup.PrintGridlines=.t. x0dx0a 26．拷贝整个工作表x0dx0aeole.ActiveSheet.UsedRange.Copyx0dx0a 27．拷贝指定区域x0dx0aeole.ActiveSheet.Range(〃A1:E2〃).Copy x0dx0a 28．粘贴x0dx0aeole.WorkSheet(〃Sheet2〃).Range(〃A1〃).PasteSpecialx0dx0a 29．在第2行之前插入一行x0dx0aeole.ActiveSheet.Rows(2).Insert x0dx0a 30．在第2列之前插入一列x0dx0aeole.ActiveSheet.Columns(2).Insert x0dx0a 31．设置字体x0dx0aeole.ActiveSheet.Cells(2,1).Font.Name=〃黑体〃x0dx0a 32．设置字体大小x0dx0aeole.ActiveSheet.Cells(1,1).Font.Size=25 x0dx0a 33．设置字体为斜体x0dx0aeole.ActiveSheet.Cells(1,1).Font.Italic=.t. x0dx0a 34．设置整列字体为粗体x0dx0aeole.ActiveSheet.Columns(1).Font.Bold=.t. x0dx0a 35．清除单元格公式x0dx0aeole.ActiveSheet.Cells(1,4).ClearContentsx0dx0a 36．打印预览工作表x0dx0aeole.ActiveSheet.PrintPreviewx0dx0a 37．打印输出工作表x0dx0aeole.ActiveSheet.PrintOutx0dx0a 38．工作表另存为x0dx0aeole.ActiveWorkbook.SaveAs(〃c:\temp\22.xls〃) x0dx0a 39．放弃存盘x0dx0aeole.ActiveWorkbook.saved=.t. x0dx0a 40．关闭工作簿x0dx0aeole.Workbooks.closex0dx0a 41．退出Excel x0dx0aeole.quitx0dx0a***************************************x0dx0ax0dx0a2、调用ADO对象以数据库方式打开EXECL文件后，以SQL语句方式读取文件x0dx0a***************************************x0dx0a Dim rs As ADODB.Recordsetx0dx0a Set rs = New ADODB.Recordsetx0dx0a Dim conn As ADODB.Connectionx0dx0a Set conn = New ADODB.Connectionx0dx0a conn.Open "DRIVER={Microsoft Text Driver (*.txt; *.csv)};" DBQ=" & App.Path & ";", "", ""x0dx0a rs.Open "select * from [test$]", conn, adOpenStatic, adLockReadOnly, adCmdTextx0dx0a Set Read_Text_File = rsx0dx0a Set rs = Nothingx0dx0a Set conn = Nothingx0dx0a***************************************