返回列表 上一主題 發帖

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

adrian_9832

帖子
79 
主題
19 
精華
0 
積分
148 
點名
0  
作業系統
WINDOW7 
軟體版本
EXCEL 2003 
閱讀權限
20 
性別
男 
註冊時間
2017-5-21 
最後登錄
2023-3-13 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2020-3-15 11:05 | 只看該作者

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

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

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

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

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



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

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

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



  17.     Close #1

  19. End Sub



  23. Sub action()
  24. test (alex)

  26. End Sub
複製代碼

pic_001.PNG (167.38 KB)

pic_001.PNG

test_myval.rar (6.43 KB)

收藏 分享

adrian_9832

帖子
79 
主題
19 
精華
0 
積分
148 
點名
0  
作業系統
WINDOW7 
軟體版本
EXCEL 2003 
閱讀權限
20 
性別
男 
註冊時間
2017-5-21 
最後登錄
2023-3-13 
2#
發表於 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

TOP

        靜思自在 : 人的心地是一畦田，土地沒有播下好種子，也長不出好的果實。 -
返回列表 上一主題