用EXCEL VBA程序写一个写文本文件的程序

好的，我了解了你的要求，关于你的问题，你可以按照以下步骤进行编写：

1.打开Excel VBA编辑器，在新的模块中编写下面的程序：

Sub writeFile()
Dim strFilePath As String
Dim strText As String
Dim fileNo As Integer

strFilePath = "C:\Users\John\Desktop\MyText.txt" '文件路径
strText = "Hello World!" '写入文本内容

fileNo = FreeFile '获取可用的文件句柄

Open strFilePath For Output As #fileNo '打开文件
Write #fileNo, strText '写入文本内容
Close #fileNo '关闭文件
End Sub

2.在上面的程序中，你需要修改两个变量值，即strFilePath和strText，分别表示文件路径和写入文本内容，可以根据你的实际需求进行修改。

3.保存该VBA程序，然后在Excel表格中运行即可，文本内容将被写入到指定的文本文件中。

希望对你有帮助！

相关问题

excel vba输出文本

在Excel VBA中，如果你想从程序中输出文本到工作表或消息框，有几种常见的方法：

1. **直接在工作表单元格中显示文本**：通过`ActiveCell.Value`或`Cells(row, col).Value`设置单元格的值，例如：

   ActiveCell.Value = "这是你要输出的文本"

或

   Cells(i, j).Value = "自定义文本"

2. **使用Debug.Print**：这是一个即时查看输出的好方法，适用于调试过程：

   Debug.Print "这是一段输出的文本"

3. **弹出消息框**：使用`MsgBox`函数，显示包含文本的消息：

   MsgBox "这是一条提示信息"

4. **写入日志文件**：如果需要持久记录，可以使用VBA的`FileSystemObject`来创建文本文件：

   Dim fso As Object
   Set fso = CreateObject("Scripting.FileSystemObject")
   Dim logFile As TextStream
   Set logFile = fso.CreateTextFile("log.txt", True)
   logFile.WriteLine "这是日志中的文本"
   logFile.Close