返回列表 上一主題 發帖

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

准提部林

帖子
2805 
主題
10 
精華
0 
積分
2861 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-5-4 
1# 跳轉到 »
發表於 2022-11-21 18:44 | 顯示全部帖子
Sub 產生文字檔()
xT = "文字檔內容"
xFile = thisworkbook.path & "\" & format(date,"yyyymmdd") & ".txt"
Open xFile For Output As #1  'Output覆蓋舊資料
Print #1, xT
Close #1
End Sub

TOP

准提部林

帖子
2805 
主題
10 
精華
0 
積分
2861 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-5-4 
2#
發表於 2022-11-21 18:50 | 顯示全部帖子
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

准提部林

帖子
2805 
主題
10 
精華
0 
積分
2861 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-5-4 
3#
發表於 2022-11-21 18:53 | 顯示全部帖子
另外, 可搜下面兩種方法//
CreateObject("Scripting.FileSystemObject") + OpenTextFile
CreateObject("ADODB.Stream")

TOP

        靜思自在 : 心中常存善解、包容、感思、知足、惜福。
返回列表 上一主題