VBA 输出文件

1. 输出文件函数

Function GenFile(ByVal File As String, ByVal text As String)Open File For Output As #1Print #1, textClose #1
End Function

2. 使用方法

运行下面的代码后会在桌面输出test.txt文件。

Sub GenFileTest()Dim strFile As StringDim strContext As StringstrFile = Environ("USERPROFILE") & Application.PathSeparator & "Desktop" & Application.PathSeparator & "test.txt"strContext = "测试文本"Call GenFile(strFile, strContext)
End Sub

3. 其他

如果要输出UTF-8格式文件请参照

VBA 生成UTF8格式文件_vba转换utf8字符串-CSDN博客