[發問] 求高手們指教 vba 把資料放入 SUB 或 Function 內 匯出

adrian_9832

請問大大 我希望把 匯出文本這動作  可以變成類似 一個 Function  的動作

*主要想把匯出文本的名字 變成一個參數  

比如圖中 我希望變成 ALEX.TXT 的文本出來

1. Sub test(exchange As String)
   
2. 
   
3. 
   
4. 
   
5.     Path$ = ThisWorkbook.Path & "\"
   
6. 
   
7.    
   
8.    
   
9.     Open (Path$ & exchange & "_01" + ".txt") For Output As #1
   
10. 
    
11.         Print #1, Chr(13)
    
12.         Print #1, Chr(13)
    
13.         Print #1, "//* Delete "
    
14. 
    
15. 
    
16. 
    
17.     Close #1
    
18. 
    
19. End Sub
    
20. 
    
21. 
    
22. 
    
23. Sub action()
    
24. test (alex)
    
25. 
    
26. End Sub

複製代碼

adrian_9832

已解決!
答案如下 謝謝各位


Sub test(exchange As String)



    Path$ = ThisWorkbook.Path & "\"

   
   
    Open (Path$ & exchange & "_01" + ".txt") For Output As #1

        Print #1, Chr(13)
        Print #1, Chr(13)
        Print #1, "//* Delete "



    Close #1

End Sub



Sub action()
test "alex"

End Sub