صفحه 1 از 2 12 آخرینآخرین
نمایش نتایج: از شماره 1 تا 10 , از مجموع 19

موضوع: انتقال متن یک شیت به فایل تکست

  1. #1


    آخرین بازدید
    2021/12/05
    تاریخ عضویت
    February 2010
    محل سکونت
    بوشهر
    نوشته ها
    940
    امتیاز
    718
    سپاس
    29
    سپاس شده
    863 در 365 پست
    تعیین سطح نشده است

    shamsololama به Yahoo ارسال پیام

    انتقال متن یک شیت به فایل تکست

    با درود فراوان
    برای اینکه وقتی در یک صفحه اکسل اطلاعاتی را وارد کنیم در آدرس مورد نظر ما یک فایل تکس ایجاد شده و
    اطلاعات صفحه اکسل به آن فایل انتقال پیدا کند چگونه عمل می کینم.
    چرا اینکار را می کینم ؟
    برای اینکار ممکن است دلیل خاصی پیدا نکنیم و همچنین در صورت نیاز با یک کپی کردن و پیست کردن در یک فایل تکس
    کار انجام شده و نیاز به ماکرو و کد نویسی نیست (خیلی راحت)
    اما...
    با این وجود ممکن است برای بعضی ها بسته به نوع کارشان نیازهای متفاوتی به این کار داشته باشند
    1 - به فرض اینکه در شرکتی کار می کنیم که در یک صفحه اکسل اطلاعات مختلفی از کار کنان آن شرکت را در آن وارد کرده و روزانه آن را به روز می کنیم .
    یکی از این اطلاعات تاریخ و ساعت پرواز بلیتی است که شرکت برای کارکنان تهیه می کند . نیاز است که اطلاعات را در شبکه قرار
    دهیم تا کارکنان از وضعیت تائید شدن بلیت خود با خبر شوند.
    با این کدی که می نویسیم فقط اطلاعات خاصی از صفحه اکسل که ما مشخص می کنیم در صفحه تکس قرار می گیرد و چنانچه کسی آن
    فایل تکس را حذف کرده باشد بصورت خودکار آن فایل دوباره ایجاد شده و اطلاعات نیز به روز نگه میدارد و همچنین با چنین کاری
    فایلی که در شبکه قرارا داده ایم کم حجم بوده و اطلاعات اضافی نیز در آن قرار ندارد.
    و هربار که ماکرو را اجرا کنید مطالب فایل تکست به روز می شود

    2- اگر با اکسل برنامه نویسی می کنیم و نیاز به ایجاد فایل تکس داریم نیازی نیست کار بر آن را ایجاد کند و بصورت خودکار ایجاد می شود.
    و استفاده ها ی دیگری که دوستان بهتر می دانند.

    * در کد زیر i2 تعداد ستونی از صفحه است که قرار است به فایل تکست انتقال داده شود


    * کد:نام و آدرسی که فایل تکست در آن ایجاد می شود (c:\File man.txt) قرار داده ایم که قایل تغییر است




    Sub FileText()
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set a = fs.CreateTextFile("c:\File man.txt", True)
    n = 0
    n1 = 0
    For Each c In Range("A:A")
    If c <> "" Then
    n = n + 1
    End If
    Next
    For i = 0 To n + n1
    For i2 = 0 To 5
    tex = tex & " " & Sheet1.Range("A1").Offset(i, i2)
    Next i2
    a.WriteLine tex
    tex = ""
    Next i

    End Sub

    بدرود:blush:


    فایل نمونه:
    متاسفانه هرکاری کردم ضمیمه نشد

    بدرود:blush:
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

  2.  

  3. #2


    آخرین بازدید
    2 هفته پیش
    تاریخ عضویت
    February 2010
    محل سکونت
    مشهد
    نوشته ها
    435
    امتیاز
    950
    سپاس
    294
    سپاس شده
    881 در 210 پست
    سطح اکسل
    81.00 %

    mrexcel به Yahoo ارسال پیام

    RE: انتقال متن یک شیت به فایل تکست

    با سلام
    من كد اين كار را تا اكنون در كنابها نديده بودم .
    اميدوارم با مطالعه و كمك شما توانائي از ويژوال را ياد بگيرم

  4. #3


    آخرین بازدید
    2021/12/05
    تاریخ عضویت
    February 2010
    محل سکونت
    بوشهر
    نوشته ها
    940
    امتیاز
    718
    سپاس
    29
    سپاس شده
    863 در 365 پست
    تعیین سطح نشده است

    shamsololama به Yahoo ارسال پیام

    RE: انتقال متن یک شیت به فایل تکست

    در خدمت دوستان هستم

  5. #4


    آخرین بازدید
    2020/08/02
    تاریخ عضویت
    April 2010
    نوشته ها
    105
    امتیاز
    105
    سپاس
    441
    سپاس شده
    114 در 40 پست
    تعیین سطح نشده است

    RE: انتقال متن یک شیت به فایل تکست

    با سلام
    بسيار عالي و كاربردي بود.
    كمتر كسي مي تواند اين كد نويسي را انجام دهد.
    باسپاس

  6. #5


    آخرین بازدید
    2019/08/08
    تاریخ عضویت
    June 2010
    محل سکونت
    تهران
    نوشته ها
    120
    امتیاز
    14
    سپاس
    11
    سپاس شده
    3 در 3 پست
    تعیین سطح نشده است

    runmohsen به Yahoo ارسال پیام

    RE: انتقال متن یک شیت به فایل تکست

    سلام این کد رو برای استفاده کجا و چطوری فعال کنبم
    باتشکر
    [size=medium]موفق باشيد[/size]

  7. #6


    آخرین بازدید
    2021/12/05
    تاریخ عضویت
    February 2010
    محل سکونت
    بوشهر
    نوشته ها
    940
    امتیاز
    718
    سپاس
    29
    سپاس شده
    863 در 365 پست
    تعیین سطح نشده است

    shamsololama به Yahoo ارسال پیام

    RE: انتقال متن یک شیت به فایل تکست

    با درود فراوان
    این کد بسته به استفاده ای که از آن می کنیم می توان در جاهای مختلفی استفاده کرد
    یکی از جاهای که می تونیم استفاده کنیم در ماکرو است که زمان اجرای ماکرو بصورت دستی اجرا شده و عمل می کند
    و جاهای مختلفی دیگر مثل قرار دادن این کد در رویداد OPen و یا Close است که هنگام باز شدن ورک بوک و یا بسته شدن عمل می کند که من یک مثال از این نوع در اینجا قرار داده ام
    در این مثال که هر بار که این فایل را باز و بسته میکنید آخرین ورود و خروج در یک فایل متنی کنار همین فایل (در هرکجای کامپیوتر که قرار داده باشید) ثبت می کند
    با کارهایی شبیه به این می توان برای برنامه های که با اکسل می نویسیم مشخصات فایلو یا فایل کمکی که توضیحاتی در باره فایل در آن قرار می گیرد را در فایل متنی ساخت
    و همچنین برای کارهای امنیتی فایلی که برنامه نویسی کرده ایم که با شرط خاصی این فایل متنی را بسازد و در هر کامپویتری که این فایل متنی وجود نداشته باشد برنامه اجرا نشود و یا تاریخ انقضا را برای فایلی طراحی کنیم که بعد از اولین باری که فایل باز می شود مدت خاصی برنامه کار کند و پس از آن دیگر قابل اجرا نباشد و خیلی از کارهایی دیگه که بسته به نیازی که داریم میتوان از آن استفاده کرد


    کد بالا هم در ماکرو فایل نمونه قرار داده ام که با اجرای ماکرو در درایو C یک فایل متنی می سازد که متن شیت یک را به فایل متنی انتقال می دهد
    اگر مشکلی بود در خدمتم

    لینک دانلود فایل نمونه

    File #1: http://www.lon.ir/up/uploads/1276602125.zip

  8. #7


    آخرین بازدید
    2019/08/08
    تاریخ عضویت
    June 2010
    محل سکونت
    تهران
    نوشته ها
    120
    امتیاز
    14
    سپاس
    11
    سپاس شده
    3 در 3 پست
    تعیین سطح نشده است

    runmohsen به Yahoo ارسال پیام

    RE: انتقال متن یک شیت به فایل تکست

    سلام
    باتشکر
    اما این کد فقط تاریخ آخرین ورود و خروج رو گفته و سیو میکنه
    وآخرین دیتای وارد شده رو به شکل تکست سیو نکرد
    [size=medium]موفق باشيد[/size]

  9. #8


    آخرین بازدید
    2021/12/05
    تاریخ عضویت
    February 2010
    محل سکونت
    بوشهر
    نوشته ها
    940
    امتیاز
    718
    سپاس
    29
    سپاس شده
    863 در 365 پست
    تعیین سطح نشده است

    shamsololama به Yahoo ارسال پیام

    RE: انتقال متن یک شیت به فایل تکست

    با درود فراوان
    کدی که برای ورود و خروج فایل گذاشته ام فقط ورود و خروج را ثبت می کند
    ولی اگر ماکرو را اجرا کنید مطالب شیت یک را به یک فایل متنی انتقال می دهد
    که اگر آن ماکر این کار را انجام نداد بواسطه آدرسی است که در آن ماکرو است و اگر آدرسی از کامپیوترت را در آن قسمت بنویسی فایل را انتقال می دهد

  10. #9


    آخرین بازدید
    2019/08/08
    تاریخ عضویت
    June 2010
    محل سکونت
    تهران
    نوشته ها
    120
    امتیاز
    14
    سپاس
    11
    سپاس شده
    3 در 3 پست
    تعیین سطح نشده است

    runmohsen به Yahoo ارسال پیام

    RE: انتقال متن یک شیت به فایل تکست

    سلام
    جناب شمس العلما ء چطور میتوان با وارد کردن یک کد در یک سلول محدوده مور نظر یا همان اطلاعات مربوط به کد مورد نظر را فیلتر کرد و نیازی به گشودن زبانه فیلتر وانتخاب کد یا شماره مورد نظر نداشته باشیم
    [size=medium]موفق باشيد[/size]

  11. #10


    آخرین بازدید
    2021/12/05
    تاریخ عضویت
    February 2010
    محل سکونت
    بوشهر
    نوشته ها
    940
    امتیاز
    718
    سپاس
    29
    سپاس شده
    863 در 365 پست
    تعیین سطح نشده است

    shamsololama به Yahoo ارسال پیام

    RE: انتقال متن یک شیت به فایل تکست

    با درود فراوان

    اگر درست متوجه شده باشم منظور شما این است که بجای فیلتر کرد از زبانه فیلتر وقتی در یک سل دیگر آیتمی را بنویسیم آن ایتم بصورت خودکار در ستون مورد نظر فیلتر شود

    که در این مورد نمونه ای را حاضر کرده ام که کد و یا کلمه هایی که در ستون A1 وجود دارد در سل B1 بنویسیم بصورت خودکار فیلتر را انجام میدهد

    نمونه فایل:

    [attachment=155]
    فايل هاي پيوست شده فايل هاي پيوست شده


صفحه 1 از 2 12 آخرینآخرین

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

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

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

موضوعات مشابه

  1. چگونه بدست اوردن حجم هر شیت در یک WORKBOOK ؟
    توسط Nima در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 2
    آخرين نوشته: 2012/12/27, 09:20
  2. درخواست کمک برای ساختن یک فرمول جستجو در شیت های اکسل
    توسط vahiddb در انجمن توابع اکسل - Excel Functions
    پاسخ ها: 1
    آخرين نوشته: 2012/12/22, 14:12
  3. بدست آوردن نهایت امنیت در اکسل ؟؟!!
    توسط dez.fuli در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 3
    آخرين نوشته: 2012/05/05, 11:32
  4. پاسخ ها: 3
    آخرين نوشته: 2012/04/11, 20:03

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

ماکرو برای انتقال داده از اکسس به اکسل

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

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

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