- ©«¤l
- 79
- ¥DÃD
- 19
- ºëµØ
- 0
- ¿n¤À
- 148
- ÂI¦W
- 0
- §@·~¨t²Î
- WINDOW7
- ³nÅ骩¥»
- EXCEL 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2017-5-21
- ³Ì«áµn¿ý
- 2023-3-13
|
¤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 |
|