- ©«¤l
- 1447
- ¥DÃD
- 40
- ºëµØ
- 0
- ¿n¤À
- 1471
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Excel 2010 & 2016
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW
- µù¥U®É¶¡
- 2020-7-15
- ³Ì«áµn¿ý
- 2025-1-23
|
¥»©«³Ì«á¥Ñ Andy2483 ©ó 2022-11-22 07:46 ½s¿è
¦^´_ 2# ã´£³¡ªL
ÁÂÁ«e½ú«ü¾É
¾Ç²ß¤ß±o¦p¤U,½Ð«e½ú¦A«ü¥¿«ü¾É!
²£¥ÍÀÉ®×:
¶}±ÒÀÉ®×À˵ø¤º®e:
Option Explicit
'¡ôn¨DÅܼƫŧi
Sub ²£¥Í¤å¦rÀÉ_OutputÂл\¸ê®Æ()
Dim xT$, xFile$
'¡ô«Å§iÅܼÆ:xT$ = xT As String(¦r¦ê)
'https://learn.microsoft.com/zh-tw/dotnet/visual-basic/language-reference/statements/dim-statement
xT = "¤å¦rÀɤº®e"
'¡ô¥OxT ¬O·Qn¿é¤J¦b¤å¦rÀɤ¤ªº¤å¦r¦r¦ê
xFile = ThisWorkbook.Path & "\" & Format(Date, "yyyymmdd") & ".txt"
'¡ô¥OxFile ¬O¬¡¶Ã¯ªº§¹¾ã¸ô®|»PÀɦW°ÆÀɦWªº¦r¦ê
'ThisWorkbook.Path:
'https://learn.microsoft.com/zh-tw/office/vba/api/excel.workbook.path
'Format():
'https://learn.microsoft.com/zh-tw/office/vba/language/reference/user-interface-help/format-function-visual-basic-for-applications
Open xFile For Output As #1 'OutputÂл\¸ê®Æ
'¡ôOpen ³¯z¦¡:
'https://learn.microsoft.com/zh-tw/office/vba/language/reference/user-interface-help/open-statement
Print #1, xT
'¡ôPrint # ³¯z¦¡
'https://learn.microsoft.com/zh-tw/office/vba/language/reference/user-interface-help/printstatement
Close #1
End Sub |
|