返回列表 上一主題 發帖

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

不好意思版大
我文字文件檔的內容不定一樣@@
跑到這裡都會錯誤
裡面嘗試起來 第二樓的語法比較是理想的@@
但是要把第一行有空白格拿掉
再帶入EXCEL裡面

sdf.jpg
2017-9-9 17:48


Option Explicit
Dim xPath As String

Sub Ex()
    xPath = "d:\" 'ThisWorkbook.Path
    Ex_修改最新文字檔
   Workbooks.Open Latest_file(xPath)  '匯入TXT到EXCEL
End Sub
Sub Ex修改文件檔案()
    Dim F As Object, E, AR(), i As Integer, A As Variant, xFile As String
     Dim My() As Integer
    'Set F = CreateObject("Scripting.FileSystemObject").GetFolder(ThisWorkbook.Path).Files
    Set F = CreateObject("Scripting.FileSystemObject").GetFolder("C:\Users\USER\Desktop\data").Files
    '.Files ->這資料夾路徑中的所有的檔案
    ReDim AR(1 To 2, 1 To F.Count)
    For Each E In F
        If E Like "*.mea" 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 (i)
    Next
    F.Close

End Sub
這是自己改的 可能不盡理想-..-
data.rar (57.5 KB)
請詳閱 論壇版規愛惜帳號,一起創造美好的學習討論空間。

TOP

回復 11# vm3503ru8
這裡要改
  1. For i = 0 To UBound(A)
  2.          F.WriteLine A(i)
  3.     Next
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.
請詳閱 論壇版規愛惜帳號,一起創造美好的學習討論空間。

TOP

超感謝版大 已經可以使用^^
請詳閱 論壇版規愛惜帳號,一起創造美好的學習討論空間。

TOP

        靜思自在 : 脾氣嘴巴不好,心地再好也不能算是好人。
返回列表 上一主題