با سلام
من با دستگاهی آزمایش میکنم که نتایج آزمایشات را به صورت جدا هر آزمایش را یک ستون 5000 آرایه ای در یک فایل جداگانه تکست ذخیره میکند.
من نیاز به مایکرو داشتم تا فایل های تکست ایجاد شده را بازخوانی و به صورت خودکار اسم هر فایل را در اولین خانه ستون و آرایه ها را در زیر آن وارد کند و سپس فایل بعدی را به همین صورت در ستون بعدی درج کند.
در این رابطه یک مایکرو پیدا کردم ولی متاسفانه فقط تا مرحله وارد کردن اسم فایل در اولین خانه ستون پیش میرود و محتویات فایل را در زیر آن وارد نمی کند.
لطفاً دوستان برای رفع عیب کمک کنند.
با تشکر.
:
کد:
Sub test() 
    Dim myDir As String, fn As String, ff As Integer, txt As String 
    Dim delim As String, n As Long, b(), flg As Boolean, x, t As Integer 
    myDir = "c:\test" '<- change to actual folder path
    delim = vbTab '<- delimiter (assuming Tab delimited)
    fn = Dir(myDir & "\*.txt") 
    Do While fn <> "" 
        Redim b(1 To Rows.Count, 1 To 1) 
        ff = FreeFile 
        Open myDir & "\" & fn For Input As #ff 
        Do While Not EOF(ff) 
            Line Input #ff, txt 
            x = Split(txt, delim) 
            If Not flg Then 
                n = n + 1 : b(n,1) = fn 
            End If 
            If UBound(x) > 0 Then 
                n = n + 1 
                b(n,1) = x(1) 
            End If 
            flg = True 
        Loop 
        Close #ff 
        flg = False 
        t = t + 1 
        ThisWorkbook.Sheets(1).Cells(1,t).Resize(n).Value = b 
        n = 0 
        fn = Dir() 
    Loop 
End Sub
اخطار: این یک موضوع قدیمی است
به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.