[轉貼] 請問VBA於EXCEL新增文字檔案+日期

Andy2483

各位前輩早安
後學有新同學發問,請各位前輩指導!謝謝

各位大大好
請問VBA於EXCEL 2019寫出新增文字檔案+日期的按鈕，比如今天日期是2022/11/19，設計一個按鈕，於目前EXCEL檔案所在的檔案夾裡面產生一個20221119.TXT,
要怎樣做，謝謝

准提部林

Sub 產生文字檔()
xT = "文字檔內容"
xFile = thisworkbook.path & "\" & format(date,"yyyymmdd") & ".txt"
Open xFile For Output As #1  'Output覆蓋舊資料
Print #1, xT
Close #1
End Sub

准提部林

Sub 產生文字檔_2()
xT = "文字檔內容"
xFile = thisworkbook.path & "\" & format(date,"yyyymmdd") & ".txt"
Open xFile For Append As #1  'Append-寫在檔案的尾端...累增
Print #1, xT
Close #1
End Sub

准提部林

另外, 可搜下面兩種方法//
CreateObject("Scripting.FileSystemObject") + OpenTextFile
CreateObject("ADODB.Stream")

Andy2483

回復 2# 准提部林


    謝謝前輩指導
學習心得如下,請前輩再指正指導!

產生檔案:

下載 (16.56 KB)

2022-11-22 07:41

開啟檔案檢視內容:

下載 (21.5 KB)

2022-11-22 07:42

Option Explicit
'↑要求變數宣告
Sub 產生文字檔_Output覆蓋舊資料()
Dim xT$, xFile$
'↑宣告變數:xT$ = xT As String(字串)
'https://learn.microsoft.com/zh-tw/dotnet/visual-basic/language-reference/statements/dim-statement
xT = "文字檔內容"
'↑令xT 是想要輸入在文字檔中的文字字串
xFile = ThisWorkbook.Path & "\" & Format(Date, "yyyymmdd") & ".txt"
'↑令xFile 是活頁簿的完整路徑與檔名副檔名的字串
'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 陳述式:
'https://learn.microsoft.com/zh-tw/office/vba/language/reference/user-interface-help/open-statement
Print #1, xT
'↑Print # 陳述式
'https://learn.microsoft.com/zh-tw/office/vba/language/reference/user-interface-help/printstatement
Close #1
End Sub

Andy2483

回復 3# 准提部林


    謝謝前輩指導
機會教育是最佳的學習機會
凡走過必留下痕跡
Append-寫在檔案的尾端...累增結果:

下載 (22.01 KB)

2022-11-22 08:00

Option Explicit
Sub 產生文字檔_Append_寫在檔案的尾端_累增()
Dim xT$, xFile$
xT = "歡迎一起來學習!論壇其實沒什麼門檻!潛規則就是虛心學習!"
xFile = ThisWorkbook.Path & "\" & Format(Date, "yyyymmdd") & ".txt"
Open xFile For Append As #1 'Append-寫在檔案的尾端...累增
'https://learn.microsoft.com/zh-tw/office/vba/language/reference/user-interface-help/open-statement
Print #1, xT
Close #1
End Sub

Andy2483

回復 4# 准提部林

謝謝前輩指導
謝謝論壇
Option Explicit
Sub CreateObject_Scripting_FileSystemObject_AND_OpenTextFile()
Dim fs, a
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile(ThisWorkbook.Path & "\" & Format(Date, "yyyymmdd") & ".txt", True)
a.WriteLine ("This is a test.")
a.Close
'https://learn.microsoft.com/zh-tw/office/vba/language/reference/user-interface-help/filesystemobject-object
End Sub
Sub CreateObject_ADODB_Stream()
'https://club.excelhome.net/thread-868093-1-1.html
End Sub

善用說明:

下載 (113.34 KB)

2022-11-22 08:35