VBA读写文件

最新推荐文章于 2022-02-25 23:02:56 发布

q_wong

最新推荐文章于 2022-02-25 23:02:56 发布

阅读量108

点赞数

分类专栏： Default 文章标签： VBA C C++ C#

Default 专栏收录该内容

11 篇文章 0 订阅

订阅专栏

VBA读写文件

Private Sub CommandButton1_Click()
Dim txt As String
Dim myString As String
Dim myNumber

txt = "C:\IDP-CI.Path"

Open txt For Output As #1 '...写文件
strData = "welcome,"
Print #1, strData, 123

Close #1


If Dir(txt) = "" Then
MsgBox "error"
Else
Open txt For Input As #2
Do While Not EOF(2)    ' 循环至文件尾。
    Input #2, myString, myNumber   ' 将数据读入两个变量。
Loop
Close #2
MsgBox myString
End If
End Sub