如何通过VBA读写文件

3.2 VBA中与文件读取的相关方法

首先我们来介绍一下使用到的几个方法：

Open方法。氏虚该方法用于打开文件汪核好，打开后可以得到一个特殊的编号，之后再读取文件的数据都需要该编号。

FreeFile函数。

Get方法。使用Open方法打开文件后，该方法可以按字节读取数据。

Seek方法。使用Open方法打开文件后，该方法可以用于定位指定的文件位置（即地址）。

Sub OpenFileTesting()

Dim FS As Integer 'File No.

Dim Val1As Integer

Dim Val2(1) As Byte

Dim Val3(2) As Integer

FS = FreeFile '获困铅取一个文件流

'打开文件

Open ThisWorkbook.Path &"\test.xls" For Binary Access Read As FS

'顺序读取数据至3个变量

Get FS, , Val1

Get FS, , Val2

Get FS, , Val3

Close FS'关闭文件流

Stop

End Sub

如果注释掉strbuf = .readtext，就从文李带件头开始写。如果新文本长度大于原内容长度，相当于实现覆盖的效果。否则会出败陵现新文本原文本混合的情况。如果原文件文本是12345新内容是666，写完就是66645。似乎adodb.stream没有删除文本的功能，所以函数里直接删除文件再创建了。

IPName = "192.168.0.10"

UserName = "user"

Passwd = "password"

Shell "net use * /delete /y", vbHide

Shell "net use \明扰\" &IPName &" " &Passwd &" /user:" &UserName, vbHide

Shell "C:\WINDOWS\explorer.exe \\激州旦" &IPName &"迹老\", vbMaximizedFocus

End Sub