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

最新推荐文章于 2024-10-19 10:02:19 发布

原创最新推荐文章于 2024-10-19 10:02:19 发布 · 345 阅读

3 ·

CC 4.0 BY-SA版权

文章标签：

#VBA #Java

技术-Excel VBA 专栏收录该内容

7 篇文章

订阅专栏

'***
' 生成文件
'*****
 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