VBA 開起最新文字文件檔並修改 - Excel程式區

[發問] VBA 開起最新文字文件檔並修改

4^# 跳轉到 »

發表於 2017-9-7 12:00 | 只看該作者

報告版主問題解決@@

但是現在也是遇到一個問題
我要匯入TXT到EXCEL 他也要知道最新存檔日期的那一個在匯入@@

3^#

發表於 2017-9-7 11:49 | 只看該作者

謝謝版主沒錯是最新時間
因為我們做完一件事他會自動儲存在一格資料夾內
因為我是用錄製巨集來放入 EXCEL 可是我是用空白格來分割
所以需要前面都要有空白@@

版大可是我錄製後我匯入TXT檔跑到 .CommandType = 0
他都說呼叫不正確

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2017-9-7 08:17 | 只看該作者

回復 1# vm3503ru8
是最新存檔的日期時間嗎?

Option Explicit
Sub Ex修改文件檔案()
Dim F As Object, E, AR(), i As Integer, A As Variant, xFile As String
'Set F = CreateObject("Scripting.FileSystemObject").GetFolder(ThisWorkbook.Path).Files
Set F = CreateObject("Scripting.FileSystemObject").GetFolder("你的資料夾路徑??").Files
'.Files ->這資料夾路徑中的所有的檔案
ReDim AR(1 To 2, 1 To F.Count)
For Each E In F
If E Like "*.txt" Then '檔案副檔名為txt
i = i + 1
AR(1, i) = E '陣列第一維置入檔案名稱
AR(2, i) = CDbl(E.DateLastModified) '陣列第二維置入存檔的日期時間
End If
Next
A = Application.WorksheetFunction.Index(AR, 2)
xFile = AR(Application.Match(Application.Max(A), A, 0), 1) '最新存檔的檔案名稱
Set F = CreateObject("Scripting.FileSystemObject").OPENTextFile(xFile, 1) '開啟文件檔,讀取模式
A = Split(F.readall, vbLf) '讀取檔案內容
F.Close '關閉文件檔案
Set F = CreateObject("Scripting.FileSystemObject").CreateTextFile(xFile, True) '開啟文件檔,可覆蓋原文件檔模式
For i = 0 To UBound(A)
F.WriteLine IIf(i > 1 And A(i) <> "", Space(1), "") & A(i)
Next
F.Close
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

靜思自在 : 君子如水，隨方就圓，無處不自在。