返回列表 上一主題 發帖

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

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

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

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

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

比如圖中 我希望變成 ALEX.TXT 的文本出來
  1. Sub test(exchange As String)



  2.     Path$ = ThisWorkbook.Path & "\"

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

  6.         Print #1, Chr(13)
  7.         Print #1, Chr(13)
  8.         Print #1, "//* Delete "



  9.     Close #1

  10. End Sub



  11. Sub action()
  12. test (alex)

  13. End Sub
複製代碼
pic_001.PNG

test_myval.rar (6.43 KB)

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


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

TOP

        靜思自在 : 道德是提昇自我的明燈,不該是呵斥別人的鞭子。
返回列表 上一主題