پرسش بستن فایل در صورتی كه باز باشد

[ظهور 313]

سلام و عرض ادب
میخواستم ببینم چه جوری میشه تشخیص داد كه اگر فایلی با نام خاص باز باشه، بسته بشه
نام این فایل، با توجه به یك تكس باكس تعیین میشه
ممنون میشم راهنمایی بفرمایید

[iranweld]

سلام و عرض ادب
میخواستم ببینم چه جوری میشه تشخیص داد كه اگر فایلی با نام خاص باز باشه، بسته بشه
نام این فایل، با توجه به یك تكس باكس تعیین میشه
ممنون میشم راهنمایی بفرمایید

با سلام

نام فایل book2.xlsx را به نام مورد نظر خودتان تغییر بدید

Sub closefile()

If WorkbookIsOpen("Book2.xlsx") Then

Workbooks("Book2.xlsx").Close False

End If

End Sub

Function WorkbookIsOpen(WorkbookName As String) As Boolean
On Error Resume Next
WorkbookIsOpen = Workbooks(WorkbookName).Name = WorkbookName
End Function 

[ظهور 313]

ممنون بابت وقتی كه گذاشتید، اما به نظرم اینجا نام فایل ثابت هست، اما نام فایل من متغیره و بر اساس مقدار یك تكس باكس تعیین میشه

[iranweld]

ممنون بابت وقتی كه گذاشتید، اما به نظرم اینجا نام فایل ثابت هست، اما نام فایل من متغیره و بر اساس مقدار یك تكس باكس تعیین میشه

Private Sub CommandButton1_Click()

Dim wb As Workbook

    For Each wb In Workbooks 

       If LCase(wb.Name) = LCase(TextBox1) Then   

         MsgBox "Found it"   

         wb.Close False  

          Exit Sub  
      End If  
  Next
End Sub 

[ظهور 313]

Private Sub CommandButton1_Click()

Dim wb As Workbook

    For Each wb In Workbooks 

       If LCase(wb.Name) = LCase(TextBox1) Then   

         MsgBox "Found it"   

         wb.Close False  

          Exit Sub  
      End If  
  Next
End Sub 

میشه در مورد فرمولتون یه مقدار توضیح بفرمایید، با اون اولیه خیلی تفاوت داره برای من اصلا جواب نمیده

[iranweld]

فایل پیوست را بررسی کنید