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

موضوع: امکان باز کردن فایل در تمام کامپیوترها

  1. #1


    آخرین بازدید
    2017/08/02
    تاریخ عضویت
    June 2014
    نوشته ها
    11
    امتیاز
    12
    سپاس
    2
    سپاس شده
    2 در 2 پست
    تعیین سطح نشده است

    امکان باز کردن فایل در تمام کامپیوترها

    با سلام
    من یه برنامه نوشتم که اطلاعات رو از فایل های اکسل داخل همون پوشه داخل فایل اصلی میریزه
    برای ریختن اطلاعات کد workbook.open رو قرار دادم
    منتها به خاطر اینکه مسیر باز شدن از کامپیوتر خودم داخل فایل هست وقتی این فایل رو داخل کامپیوتر دیگه میخوام اجرا کنم انجام نمیشه
    آیا روشی هست که من کل پوشه فایل هامو اگه به کامپیوتری دیگه بردم بازم کدم قابل اجرا باشه؟ منظورم دادن مسیر باز شدنه فایل هاست
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

  2.  

  3. #2


    آخرین بازدید
    2023/08/17
    تاریخ عضویت
    March 2015
    محل سکونت
    آمل
    نوشته ها
    3,343
    امتیاز
    11575
    سپاس
    1,885
    سپاس شده
    8,165 در 3,011 پست
    تعیین سطح نشده است

    با سلام

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

    کد PHP:
    zz ActiveWorkbook.Path

    MsgBox zz 

  4. سپاس ها (1)


  5. #3


    آخرین بازدید
    2017/08/02
    تاریخ عضویت
    June 2014
    نوشته ها
    11
    امتیاز
    12
    سپاس
    2
    سپاس شده
    2 در 2 پست
    تعیین سطح نشده است

    ممنون من توی کد این مسیر رو برای باز شدن فایل مربوطه قرار دادم
    چون مسیر فایل مربوط به کامپیوتر خودم هست توی کامپیوتر دیگه اجرا نمیکنه. میخوام جوری باشه که مسیر باز شدن رو همون پوشه فعال قرار بده
    کد PHP:
    ChDir "G:\fotouhi\Dastresi\dailyreport95"
        
    Workbooks.Open Filename:="G:\fotouhi\Dastresi\dailyreport95\sard.xlsx" 

  6. #4


    آخرین بازدید
    2023/08/17
    تاریخ عضویت
    March 2015
    محل سکونت
    آمل
    نوشته ها
    3,343
    امتیاز
    11575
    سپاس
    1,885
    سپاس شده
    8,165 در 3,011 پست
    تعیین سطح نشده است

    این کد را تست کنید.( در صورتیکه فایل اصلی شما هم در این مسیر قرار داشته باشد)

    کد PHP:
    Sub TEST()

    Dim ZZ As String

    ZZ 
    ActiveWorkbook.Path

    Workbooks
    .Open Filename:=ZZ "\sard.xlsx"


    End Sub 

  7. سپاس ها (2)



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

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

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

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

  1. پاسخ ها: 4
    آخرين نوشته: 2016/11/26, 16:47
  2. [حل شده] ساخت یک پایگاه داده برای فایل های کامپیوتری
    توسط taher1 در انجمن سوالات اكسس - Access Questions
    پاسخ ها: 0
    آخرين نوشته: 2016/09/29, 23:16
  3. پرسش امکان اجرای برنامه اکسل در کامپیوترهای مشحص
    توسط Arya_Love60 در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 4
    آخرين نوشته: 2016/09/25, 15:02
  4. [حل شده] خاموشی کامپیوتر
    توسط sunstar در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 4
    آخرين نوشته: 2016/04/18, 22:39
  5. اجرای برنامه vba در کامپیوتر دیگر
    توسط mmazad در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 3
    آخرين نوشته: 2016/04/06, 09:59

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

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

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

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

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