用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表格中运行即可，文本内容将被写入到指定的文本文件中。

希望对你有帮助！