標題: [發問] 求高手們指教 vba 把資料放入 SUB 或 Function 內 匯出 [打印本頁]

---

作者: adrian_9832    時間: 2020-3-15 11:05     標題: 求高手們指教 vba 把資料放入 SUB 或 Function 內 匯出

本帖最後由 adrian_9832 於 2020-3-15 11:14 編輯

請問大大 我希望把 匯出文本這動作  可以變成類似 一個 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    時間: 2020-3-16 10:35

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


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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)