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

موضوع: اجرای شدن فایل اکسل ، در صورت وجود داشتن فایل دیگری در جای دیگر

  1. #1


    آخرین بازدید
    2024/02/08
    تاریخ عضویت
    April 2011
    نوشته ها
    384
    امتیاز
    245
    سپاس
    415
    سپاس شده
    225 در 123 پست
    سطح اکسل
    67.00 %

    اجرای شدن فایل اکسل ، در صورت وجود داشتن فایل دیگری در جای دیگر

    با سلام خدمت اساتید

    من میخوام فایل اکسلم در صورتی اجرا بشه که فایل test.txt در مسیر زیر موجود باشه
    c:\windows\system32\test.txt


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

  2.  

  3. #2


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

    با سلام


    فایل پیوست زا ملاحظه کنید
    فايل هاي پيوست شده فايل هاي پيوست شده

  4. سپاس ها (2)


  5. #3


    آخرین بازدید
    2024/02/08
    تاریخ عضویت
    April 2011
    نوشته ها
    384
    امتیاز
    245
    سپاس
    415
    سپاس شده
    225 در 123 پست
    سطح اکسل
    67.00 %

    ممنون
    میشه بجای اینکه بگیم

    کد:
    c:\windows\system32\

    به این صورت ادرس بدیم :
    کد PHP:
    %systemroot%\system32 
    کد:
    Private Sub Workbook_Open()
    Application.ActiveWorkbook.Application.Visible = False
    Dim objFSO As Object
             Dim objFolder As Object
             Dim objFile As Object
             
             Set objFSO = CreateObject("******ing.FileSystemObject")
             Set objFolder = objFSO.GetFolder("c:\windows\system32\" & "")
             For Each objFile In objFolder.Files
               If LCase(objFile.Name) = LCase("test.txt") Then
               t = 1
               Exit For
               End If
              
             Next objFile
             
             If t = 0 Then
             
             UserForm1.Show
             Application.DisplayAlerts = False
        ActiveWorkbook.Close savechanges:=False
        Application.DisplayAlerts = True
        
             End If
             Application.ActiveWorkbook.Application.Visible = True
    End Sub

  6. سپاس ها (3)


  7. #4


    آخرین بازدید
    2024/02/08
    تاریخ عضویت
    April 2011
    نوشته ها
    384
    امتیاز
    245
    سپاس
    415
    سپاس شده
    225 در 123 پست
    سطح اکسل
    67.00 %

    کد:
    Private Sub Workbook_Open()
    Application.ActiveWorkbook.Application.Visible = False
    Dim objFSO As Object
             Dim objFolder As Object
             Dim objFile As Object
             
                Set objFolder = objFSO.GetFolder(Environ("SystemRoot") & "")
      
             For Each objFile In objFolder.Files
               If LCase(objFile.Name) = LCase("test.txt") Then
               t = 1
               Exit For
               End If
              
             Next objFile
             
             If t = 0 Then
             
             UserForm1.Show
             Application.DisplayAlerts = False
        ActiveWorkbook.Close savechanges:=False
        Application.DisplayAlerts = True
        
             End If
             Application.ActiveWorkbook.Application.Visible = True
    End Sub

  8. سپاس ها (1)



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

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

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

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

  1. [حل شده] اضافه نمودن نام کالا درصورت تکراری بودن کد کالا به صورت اتومات
    توسط سودابه69 در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 1
    آخرين نوشته: 2015/11/04, 12:57

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

اجرای اکسل به صورت userform

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

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

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