用VBA获取表格数据生成文件

'***
' 生成文件
'*****
 Sub cTest()
 
    Dim cursheet As Worksheet
    Set cursheet = Worksheets("Sheet1")    
    Dim localPath As String
    Dim outTxt As String
     localPath = ActiveWorkbook.Path
    outTxt = localPath + "/out.txt"  
    Open outTxt For Output As #1     
       
    For i = 2 To cursheet.Rows.Count
    NodeName = Trim(cursheet.Cells(i, 1).Value)   
     Print #1, NodeName    
    Next 
      Close      
      MsgBox "生成文件路径:" + outTxt
 
    
 
 End Sub