wps宏读取txt文件

以下是一个使用WPS宏读取txt文件的例子[^2]：

Sub ReadTxtFile()
    Dim filePath As String
    Dim fileNumber As Integer
    Dim fileContent As String
    
    filePath = "D:\temp\a.txt"
    fileNumber = FreeFile()
    
    Open filePath For Input As fileNumber
    fileContent = Input$(LOF(fileNumber), fileNumber)
    Close fileNumber
    
    MsgBox fileContent
End Sub

这个宏会打开指定的txt文件，并将文件内容读取到一个字符串变量中，然后通过消息框显示出来。你可以根据需要修改文件路径和显示方式。