迹忆客 专注技术分享

当前位置:主页 > 学无止境 > 编程语言 > Vba >

使用 Excel VBA 将数据写入文本文件

作者:迹忆客 最近更新:2023/03/19 浏览次数:

Excel VBA 在处理数据处理任务和清理时是一种流行的解决方案。此外,它可以自动执行需要花费大量时间才能完成的重复性任务。

VBA 的关键功能之一是它能够生成和编辑文本文件,而无需手动打开、命名和保存更改。

本文将演示如何在 VBA 的帮助下生成文本 (.txt) 文件。

在本文中,我们尝试使用 Excel VBA 生成文本文件。在深入研究代码之前,我们需要启用 Excel VBA 与处理文件和文件夹的 FileSystemObject 进行交互。

启用 FileSystemObject 的步骤:

现在一切就绪。

下面的代码块将演示使用 VBA 创建文本文件。

SaveTextToFile 子程序需要两个参数,fileNamefileContentfileName 变量将是要生成的文本文件的所需文件名。fileContent 变量将是文本文件的实际内容。应该编辑 filePath,使其适合输出文件的正确位置。

建议将 FileSystemObject 声明为 fso 以启用 Intellisense 的自动完成功能,这可以避免印刷错误,还有助于发现 FileSystemObject 库中的其他方法。

在代码执行结束之前包含 fso = NothingSet fileStream = Nothing 很重要,因为如果这两个未关闭,运行时将发生错误。

Option Explicit

Public Sub SaveTextToFile(fileName As String, fileContent As String)
    
    Dim filePath, fileAttributes As String
    filePath = "C:\Users\temp\Desktop\Destination"
    fileAttributes = filePath & "" & fileName & ".txt"
   
    Dim fso As FileSystemObject
    Set fso = New FileSystemObject
    Dim fileStream As TextStream

    Set fileStream = fso.CreateTextFile(fileAttributes)
    fileStream.WriteLine fileContent
    fileStream.Close

    If fso.FileExists(fileAttributes) Then
        Debug.Print "File Created Successfully."
    End If

    Set fileStream = Nothing
    Set fso = Nothing

End Sub

Sub testSub()

Call SaveTextToFile("sample1", "Here is the content.")

End Sub

上面的代码块实际上并不与 Excel 交互,只生成一个文件。

下面的代码块将演示根据 Excel 文件中的数据创建文本文件。有关示例值,请参阅 Sheet1

工作表 1

 |     A       |              B                |          C        |
1| File Name   | Content                       | GenerateTextFile? |
2| sample1     | This is the content of sample1|        Yes        |
2| sample2     | This is the content of sample2|        No         |
2| sample3     | This is the content of sample3|        Yes        |
2| sample4     | This is the content of sample4|        No         |
2| sample5     | This is the content of sample5|        Yes        |
2| sample6     | This is the content of sample6|        No         |

在下面的示例中,我们将重用 SaveTextToFile 子例程来创建文本文件。testSub 子程序将根据 Sheet1 的数据循环调用 SaveTextToFile

Option Explicit

Public Sub SaveTextToFile(fileName As String, fileContent As String)
    
    
    Dim filePath, fileAttributes As String
    filePath = "C:\Users\temp\Desktop\Destination"
    fileAttributes = filePath & "" & fileName & ".txt"
   
    Dim fso As FileSystemObject
    Set fso = New FileSystemObject
    Dim fileStream As TextStream

    Set fileStream = fso.CreateTextFile(fileAttributes)

    fileStream.WriteLine fileContent

    fileStream.Close

    If fso.FileExists(fileAttributes) Then
        Debug.Print fileName & " Created Successfully."
    End If

    Set fileStream = Nothing
    Set fso = Nothing

End Sub

Sub testSub()

Dim wb As Workbook
Dim s1 As Worksheet

Set wb = ThisWorkbook
Set s1 = wb.Sheets("Sheet1")

Dim i As Integer

i = 2

Do Until s1.Cells(i, 1) = ""
    
    If s1.Cells(i, 3) = "Yes" Then
    
    Call SaveTextToFile(s1.Cells(i, 1), s1.Cells(i, 2))
    End If
    
i = i + 1

Loop
End Sub

testSub 输出:

sample1 Created Successfully.
sample3 Created Successfully.
sample5 Created Successfully.

Sample1Sample3Sample5 是创建的文本文件,因为它们在 GenerateTextFile 列中有 YesSample2Sample4 未创建,因为它们在 GenerateTextFile 列中为 No

转载请发邮件至 1244347461@qq.com 进行申请,经作者同意之后,转载请以链接形式注明出处

本文地址:

相关文章

在 VBA 中计算列数

发布时间:2023/03/19 浏览次数:103 分类:Vba

本教程演示如何计算 VBA 中的列数。

扫一扫阅读全部技术教程

社交账号
  • https://www.github.com/onmpw
  • qq:1244347461

最新推荐

教程更新

热门标签

扫码一下
查看教程更方便