写入VBA中的文本文件

我打开一个文件后打开它，我用VBA创build的文件。 我坚持的部分是写入文件。 这是我迄今为止。

Sub test() Dim myFile As String Dim testFile As String Dim intChoice As Integer Dim fs, f myFile = Application.GetSaveAsFilename & "kml" Open myFile For Output As #1 Application.FileDialog(msoFileDialogOpen).AllowMultiSelect = False intChoice = Application.FileDialog(msoFileDialogOpen).Show If intChoice <> 0 Then testFile = Application.FileDialog( _ msoFileDialogOpen).SelectedItems(1) End If Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.OpenTextFile(testFile) Print #1, f Close #1 End Sub 

Answer 1

逐行阅读文本stream并根据需要进行打印。 做一个循环。

 Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.OpenTextFile(testFile) Do While Not f.AtEndOfStream Print #1, f.ReadLine Loop Set f = Nothing Set fs = Nothing 

或者，您可能可以省略循环，只需执行Print #1, f.ReadAll 。

Answer 2

打印文本文件（在Windows中）最简单的方法是使用“/ p”开关将其发送到记事本。 这将把它发送到默认打印机。

 Shell "Notepad /p C:\Users\Andrew\Documents\test.txt" 

看来你是从Excel运行这个代码。 在这种情况下，您也可以在Excel中打开文本文件并从那里打印。