نمایش نتایج: از شماره 1 تا 7 , از مجموع 7

موضوع: وارد کردن اطلاعات فایل های txt در یک صفحه کاری با استفاده از مایکرو

  1. #1


    آخرین بازدید
    2012/12/25
    تاریخ عضویت
    July 2012
    نوشته ها
    10
    امتیاز
    0
    سپاس
    0
    سپاس شده
    0 در 0 پست
    تعیین سطح نشده است

    Question وارد کردن اطلاعات فایل های txt در یک صفحه کاری با استفاده از مایکرو

    با سلام
    من با دستگاهی آزمایش میکنم که نتایج آزمایشات را به صورت جدا هر آزمایش را یک ستون 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
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

  2.  

  3. #2


    آخرین بازدید
    2012/08/28
    تاریخ عضویت
    June 2012
    نوشته ها
    20
    امتیاز
    1
    سپاس
    0
    سپاس شده
    0 در 0 پست
    تعیین سطح نشده است

    RE: وارد کردن اطلاعات فایل های txt در یک صفحه کاری با استفاده از مایکرو

    لينك زير ميتونه كمكت كنه ولي اول بايد فايل متني رو به PDF تبديل كني

    http://*****************************/post/45


  4. #3


    آخرین بازدید
    2012/12/25
    تاریخ عضویت
    July 2012
    نوشته ها
    10
    امتیاز
    0
    سپاس
    0
    سپاس شده
    0 در 0 پست
    تعیین سطح نشده است

    RE: وارد کردن اطلاعات فایل های txt در یک صفحه کاری با استفاده از مایکرو

    با تشکر
    راهی نیست که از همین فایل های تکست ورودی بگیریم؟
    فایلی که لینکش را گذاشتین برای دانلود پسورد داره

  5. #4


    آخرین بازدید
    2012/08/28
    تاریخ عضویت
    June 2012
    نوشته ها
    20
    امتیاز
    1
    سپاس
    0
    سپاس شده
    0 در 0 پست
    تعیین سطح نشده است

    RE: وارد کردن اطلاعات فایل های txt در یک صفحه کاری با استفاده از مایکرو

    شايد باشه ولي من مبتديم :-)
    ببخشيد من اپلود سنترم رو عوض كرده بودم نميدونستم اين اپلود سنتر خود بخود واسه فايلها پسورد ميذاره
    پسوردش 3399 هست.

  6. #5


    آخرین بازدید
    2012/12/25
    تاریخ عضویت
    July 2012
    نوشته ها
    10
    امتیاز
    0
    سپاس
    0
    سپاس شده
    0 در 0 پست
    تعیین سطح نشده است

    RE: وارد کردن اطلاعات فایل های txt در یک صفحه کاری با استفاده از مایکرو

    با تشکر
    این فایل هم ایراد بقیه کد ها را داره
    همه را توی یک ستون وارد می کنه
    با اون توضیحی که من بالا دادم خیلی متفاوته

  7. #6


    آخرین بازدید
    2022/12/05
    تاریخ عضویت
    October 2011
    محل سکونت
    مشهد
    نوشته ها
    4,374
    امتیاز
    12614
    سپاس
    4,596
    سپاس شده
    11,990 در 3,203 پست
    سطح اکسل
    70.00 %

    RE: وارد کردن اطلاعات فایل های txt در یک صفحه کاری با استفاده از مایکرو

    سلام

    دوست عزیز در فایل پیوست strpath رو اصلاح کن بعد ماکرو رو اجرا کنم فک کنم درست عمل کنه
    فايل هاي پيوست شده فايل هاي پيوست شده

  8. سپاس ها (1)


  9. #7


    آخرین بازدید
    2012/12/25
    تاریخ عضویت
    July 2012
    نوشته ها
    10
    امتیاز
    0
    سپاس
    0
    سپاس شده
    0 در 0 پست
    تعیین سطح نشده است

    RE: وارد کردن اطلاعات فایل های txt در یک صفحه کاری با استفاده از مایکرو

    آقا جواب داد واقعاً ممنون نمیدونم چه شکلی تشکر کنم.
    واقعاً ممنونننن


اطلاعات موضوع

کاربرانی که در حال مشاهده این موضوع هستند

در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)

بازدید کنندگان با جستجو های زیر این صفحه را پیدا کرده اند

وارد کردن فابل txt در اکسل

وارد کردن اضلاعات در فایل تکست

علاقه مندی ها (Bookmarks)

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •  
  • BB code ها فعال هستند
  • شکلک ها فعال هستند
  • کد [IMG] فعال است
  • کد [VIDEO] فعال است
  • کد HTML غیر فعال است