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

موضوع: ذخیره در فایل Notpad با شروط خاص

  1. #1


    آخرین بازدید
    2013/05/22
    تاریخ عضویت
    February 2013
    نوشته ها
    30
    امتیاز
    1
    سپاس
    0
    سپاس شده
    1 در 1 پست
    تعیین سطح نشده است

    ذخیره در فایل Notpad با شروط خاص

    با سلام و احترام
    میخواهم با اجرای ماکرو اطلاعات موجود در شیت جاری به Notpad فرستاده شود و ذخیره شود.
    [align=center][b]البته با شروط زیر[/align]
    1-ارسال به Notpad به اندازه سطرهایی که شامل داده می باشد -یعنی شامل سطرهای خالی نباشد)
    2- بتوان آدرس ذخیره شدن فایل را در برنامه مشخص کرد.
    3-نامی که برای ذخیره فایل می خواهیم قرار دهیم را از یک سلول مشخص بخواند.

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

  2.  

  3. #2


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

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

    RE: ذخیره در فایل Notpad با شروط خاص

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

    Sub CreateAfile2()
    Set fs = CreateObject("Scripting.FileSystemObject")
    namfile = Range("b1").Value
    Adresfile = "C:\"
    Set a = fs.CreateTextFile(Adresfile & namfile & ".txt", True) 'ايجاد يک فايل تکست در آدرس مشخصبا نام که از سل بي يک گرفته
    For Each c In Range("A1:A100")
    If c <> "" Then
    a.WriteLine (c.Value) 'وارد کردن متن دلخواه به فايل تکس
    End If

    Next
    End Sub

  4. #3


    آخرین بازدید
    2013/05/22
    تاریخ عضویت
    February 2013
    نوشته ها
    30
    امتیاز
    1
    سپاس
    0
    سپاس شده
    1 در 1 پست
    تعیین سطح نشده است

    RE: ذخیره در فایل Notpad با شروط خاص

    سلام
    خیلی گُلی
    متشکرم

  5. #4


    آخرین بازدید
    2013/05/22
    تاریخ عضویت
    February 2013
    نوشته ها
    30
    امتیاز
    1
    سپاس
    0
    سپاس شده
    1 در 1 پست
    تعیین سطح نشده است

    RE: ذخیره در فایل Notpad با شروط خاص 2

    سلام

    میشه در این موردم هم راهنمایی بفرمائید.

    1-وقتی فایل ذخیره میشود میخواهم به تاریخ و ساعت جاری سیستم ذخیره شود در جواب بالا اگر اشتباه نکنم فقط به نوشته ذخیره میشود (در واقع می خواهم در سلول B1 فرمول ()now= را درج کنم)

    2-چه جوری میتونم در این انجمن فایلی را ضمیمه کنم (عکس یا اکسل) تا بتوانم منظورم را بهتر بیان کنم odgy:

    با احترامات فراوان

  6. #5


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

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

    RE: ذخیره در فایل Notpad با شروط خاص

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

    در کد قبلی این تغییر رو بده
    بجای
    namfile = Range("b1").Value
    بنویس
    namfile = Range("b1").Text

    < همچنین سل بی یک که میخوای تاریخ now() رو توش بنویسی
    فرمت سلش رو به این فرمت تغییر بده
    dd-mm-yyyy
    یعنی اینکه بجای اسلش باید خط یا هرچیزی دیگه ای که نام فایل قبول میکنه بگذارید

    برای آپلود هم باید زمان ارسال پاسخ گزینه ای برای آپلود داشته باشه

    موفق باشید

  7. #6


    آخرین بازدید
    2013/05/22
    تاریخ عضویت
    February 2013
    نوشته ها
    30
    امتیاز
    1
    سپاس
    0
    سپاس شده
    1 در 1 پست
    تعیین سطح نشده است

    RE: ذخیره در فایل Notpad با شروط خاص

    متشکرم


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

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

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

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

انجمن اكسل ايران , اكسل , اكسس , سوال و جواب اكسل , سوال اكسس , انجمن اكسل ايران , توابع اكسل, آموزش اكسل, آموزش اكسس, VBA, ويژوال بيسيك

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

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

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