VBA 读文件和写文件方法

guoxin_0724

于 2011-02-12 15:17:00 发布

阅读量1.2k

点赞数

CC 4.0 BY-SA版权

分类专栏： VBA 文章标签： vba function string input path csv

本文链接：https://blog.youkuaiyun.com/guoxin_0724/article/details/6181011

VBA 专栏收录该内容

8 篇文章

订阅专栏

本文介绍使用VBA实现从TXT文件读取数据到Excel，并将Excel数据写回TXT文件的方法。提供了完整的VBA函数示例，包括读取TXT文件到Excel单元格以及从Excel单元格写入TXT文件的过程。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

读文件：

Function readTextIntoExcel(path As String)
RowIndex = 11
Open path For Input As #1 '
Do While Not EOF(1) '
    Line Input #1, currLine
    rowDataArr = Split(currLine, Chr(9))’各数据之前以TAB隔开的CSV文件
    For i = 0 To UBound(rowDataArr)
      Cells(RowIndex, i + 3) = rowDataArr(i)
    Next i
    RowIndex = RowIndex + 1
Loop
Close #1
Exit Function
End Function

------------------------------------------------------------------------------------------------

写文件：

Function writeInfoIntoTxtFile(fullpath As String)
RowIndex = 11
Open fullpath For Output As #1
    Do While Sheet1.Cells(RowIndex, 3) <> ""
      Print #1, Sheet1.Cells(RowIndex, 3) & Chr(9) & _
                Sheet1.Cells(RowIndex, 4) & Chr(9) & _
                Sheet1.Cells(RowIndex, 5) & Chr(9) & _
                Sheet1.Cells(RowIndex, 6) & Chr(9) & _
                Sheet1.Cells(RowIndex, 7) & Chr(9) & _
                Sheet1.Cells(RowIndex, 8)
      RowIndex = RowIndex + 1
    Loop
Close #1
End Function