Excel Forum

apinomon wrote: Sun Mar 04, 2018 10:18 am สวัสดีครับ

คือว่าผมต้องการจะทราบว่ามีไฟล์ BBB.XLSX (ชื่อสมมติ) เปิดอยู่หรือไม่ โดยเขียดโค้ดในการค้นหาที่ ไฟล์ AAA.XLSM (ชื่อสมมติ) ครับ

ถ้าเปิดอยู่ให้แสดงกล่องข้อความว่า TRUE
ถ้าไม่ใช่ให้แสดงกล่องข้อความว่า False

ผมลองใช้โค้ด

Code: Select all

If ActiveWorkbook.Name = "BBB.xlsx" Then
MsgBox "True"
Else: MsgBox "False"
End If

ก็ไม่ได้ครับ

และลองใช้

Code: Select all

If OpenWorkbook.Name = "BBB.xlsx" Then
MsgBox "True"
Else: MsgBox "False"
End If

ก็ Error ครับ

รบกวนแนะนำด้วยครับ

Function IsWorkBookOpen(Name As String) As Boolean
    Dim xWb As Workbook
    On Error Resume Next
    Set xWb = Application.Workbooks.Item(Name)
    IsWorkBookOpen = (Not xWb Is Nothing)
End Function
 Sub CheckStatus()
    Dim xRet As Boolean
    xRet = IsWorkBookOpen("BBB.xlsx")
    If xRet Then
        MsgBox "True"
    Else
        MsgBox "False"
    End If
End Sub

apinomon wrote: Sun Mar 04, 2018 10:18 am คือว่าผมต้องการจะทราบว่ามีไฟล์ BBB.XLSX (ชื่อสมมติ) เปิดอยู่หรือไม่ โดยเขียดโค้ดในการค้นหาที่ ไฟล์ AAA.XLSM (ชื่อสมมติ) ครับ

ถ้าเปิดอยู่ให้แสดงกล่องข้อความว่า TRUE
ถ้าไม่ใช่ให้แสดงกล่องข้อความว่า False

Dim wb As Workbook
For Each wb In Workbooks
    If wb.Name = "BBB.xlsx" Then
        MsgBox "True"
        Exit Sub
    End If
Next wb
MsgBox "False""