在VBA中使用ADO读取TXT文件

Const ForReading = 1, ForWriting = 2, ForAppending = 8

Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0

Dim fileObj, fileInfo, retObj, strInfo, strPath As String

Dim i, s As Integer

Dim temp_jb As String

Worksheets("仿衡sheet1").Activate

Set fileObj = CreateObject("Scripting.FileSystemObject")

strPath = "d:\java\aa1.txt"'文本文件存放的位置

Set fileInfo = fileObj.GetFile(strPath)

Set retObj = fileInfo.OpenAsTextStream(ForReading, TristateUseDefault)

For i = 1 To 4'文本文件的行数

strInfo = retObj.ReadLine

Range("a" &i) = Mid(strInfo, 2, 14) '取每一行的第2个位置御大尘开始的14个字符

Next i

retObj.Close

End Sub

程序是以前自己用的，修改了一下。应该镇禅可以直接用的。有问题再联系。

dofile：或曰do文档，适合记录复杂的分析过程，Stata的程序ado文件也是在dofile编辑器中编写的。便于保存和重复 *** 作，便于分享2.管理dofile：新建、保存和打开2.1新建和保存Do-file在Stata命令窗口中输入doedit即可新建一个空白的Do-file。我们可以把d出的空白dofile中默认名称Untitled.do视为一个文本文件，可以在里面编写Stata命令。随后点击「保存」按钮就可以像保存普通的txt或Word文档那样把这份工作记录存在知没电脑硬盘上了。

txt即文本文件，在桌面或文件夹右键即可建立。TXT格式是一种文本文档，TXT即扩展名。txt是微搭袜纳软在 *** 作系统上附带的一种文本格式，是最常好瞎见的一种文件格式，早在DOS时代应用就很多，主要存文本信息，即为文字信息，现在的 *** 作系统大多使用记事本等程序保存，大多数软件可以查看，如记事本，浏览器等等。

<%

Set conn=Server.CreateObject("Adodb.Connection")

connstr="provider=Microsoft.JET.OLEDB.4.0Data Source="&Server.MapPath("images.mdb")

conn.open connstr

on error resume next

sql="update ccc set name='dwcli' where id=1"

conn.Execute sql

conn.close

set conn=nothing

response.write "更新成功"毕毁世

%>

添加

<%

Set conn=Server.CreateObject("Adodb.Connection")

connstr="provider=Microsoft.JET.OLEDB.4.0Data Source="&Server.MapPath("images.mdb")

conn.open connstr

on error resume next

sql="insert into ccc(id,name) values(1,'dwcli')"余简

conn.Execute sql

conn.close

set conn=nothing

response.write "添加手肢成功"

%>