如何将VBA Do循环的Node查询结果直接导出至文本文件？

Got it, let's adjust your VBA code to export the results directly to a text file instead of writing to column E. I've kept your original search logic intact, just added the file-handling parts you need:

Sub Find_Nodes_ExportToText()
    Dim CompId As Range
    Dim i As Byte
    Dim FirstMatch As Variant
    Dim TXT As String
    Dim outputPath As String
    Dim fileNum As Integer
    
    ' Set your desired text file path - adjust this to your actual folder location
    outputPath = "C:\Your\Target\Folder\nodes_results.txt"
    
    ' Get an available file number and open the file for writing
    fileNum = FreeFile()
    Open outputPath For Output As #fileNum
    
    Set CompId = Range("A1:C13").Find(what:="Node", LookIn:=xlValues, lookat:=xlPart)
    If Not CompId Is Nothing Then
        TXT = CompId.Value & " = " & CompId.Offset(1, 0).Value
        ' Write the first matched line to the text file
        Print #fileNum, TXT
        
        FirstMatch = CompId.Address
        Do
            Set CompId = Range("A1:C13").FindNext(CompId)
            If CompId.Address = FirstMatch Then Exit Do
            
            TXT = CompId.Value & " = " & CompId.Offset(1, 0).Value
            ' Write each subsequent match to the file
            Print #fileNum, TXT
        Loop
        MsgBox "Success! Results saved to:" & vbCrLf & outputPath
    Else
        MsgBox "No Nodes Found!"
        ' Clean up the empty file handle if no matches exist
        Close #fileNum
        ' Optional: Uncomment below to delete the empty file if you don't want it
        ' Kill outputPath
    End If
    
    ' Always ensure the file is closed properly
    Close #fileNum
End Sub

Key Changes Explained: #

• Custom File Path: Replace C:\Your\Target\Folder\nodes_results.txt with your actual preferred save location (make sure the folder already exists, otherwise you’ll get an error).
• File Handling Basics:
  • FreeFile() grabs the next unused file number to avoid conflicts with other open files.
  • Open ... For Output As #fileNum creates a new text file (or overwrites an existing one with the same name).
  • Print #fileNum, TXT writes each formatted line directly to the text file.
  • Close #fileNum guarantees the file is properly closed after processing, even if no matches are found.
• Optional Tweak: If you want to add new results to an existing file instead of overwriting it, change For Output to For Append in the Open statement.

内容的提问来源于stack exchange，提问作者WarEagleCivil