返回列表 上一主題 發帖

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

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

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

各位大大好
請問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

TOP

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

TOP

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

TOP

本帖最後由 Andy2483 於 2022-11-22 07:46 編輯

回復 2# 准提部林


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

產生檔案:
1.jpg
6 天前 07:41


開啟檔案檢視內容:
2.jpg
6 天前 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

TOP

回復 3# 准提部林


    謝謝前輩指導
機會教育是最佳的學習機會
凡走過必留下痕跡
Append-寫在檔案的尾端...累增結果:
3.jpg
6 天前 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

TOP

本帖最後由 Andy2483 於 2022-11-22 08:36 編輯

回復 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

善用說明:
4.jpg
6 天前 08:35

TOP

        靜思自在 : 屋寬不如心寬。
返回列表 上一主題