ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¨D°ª¤â­Ì«ü±Ð vba §â¸ê®Æ©ñ¤J SUB ©Î Function ¤º ¶×¥X

[µo°Ý] ¨D°ª¤â­Ì«ü±Ð vba §â¸ê®Æ©ñ¤J SUB ©Î Function ¤º ¶×¥X

¥»©«³Ì«á¥Ñ adrian_9832 ©ó 2020-3-15 11:14 ½s¿è

½Ð°Ý¤j¤j §Ú§Æ±æ§â ¶×¥X¤å¥»³o°Ê§@  ¥i¥HÅܦ¨Ãþ¦ü ¤@­Ó Function  ªº°Ê§@

*¥D­n·Q§â¶×¥X¤å¥»ªº¦W¦r Åܦ¨¤@­Ó°Ñ¼Æ  

¤ñ¦p¹Ï¤¤ §Ú§Æ±æÅܦ¨ ALEX.TXT ªº¤å¥»¥X¨Ó
  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
½Æ»s¥N½X

pic_001.PNG (167.38 KB)

pic_001.PNG

test_myval.rar (6.43 KB)

¤w¸Ñ¨M!
µª®×¦p¤U ÁÂÁ¦U¦ì


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

        ÀR«ä¦Û¦b : ­n¤ñ½Ö§ó¨ü½Ö¡D¤£­n¤ñ½Ö§ó©È½Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD