Thảo luận mở rộng về "Useful functions - Các hàm hữu ích" của Lê Văn Duyệt (8 người xem)

Liên hệ QC

Người dùng đang xem chủ đề này

Đang trực tuyến: 1 (Thành viên: 0, Khách: 1)
ndu96081631 đã viết:
Duyệt ơi!
Việc kiểm tra 1 file có đang mở hay không hoàn toàn khác với kiểm tra 1 workbook đang mở
Với 1 file, ta cần đường dẩn đầy đủ đến file, còn người dùng khi cần kiểm tra 1 Workbook có đang mở hay không, họ đâu quan tâm đến đường dẩn ---> Chỉ cần tên của Workbook có tồn tại trong cửa sổ Task Manager thì hàm phải trả về giá trị TRUE và ngược lại thì FALSE
Minh nghĩ 2 chuyện này hoàn toàn khác nhau ---> Nói chung là KHÓ (đã tìm khắp nơi nhưng chưa thấy code nào khả thi)
Nhấp chuột vào đây để mở rộng...
Hi Anh,
Em chưa hiểu ý anh lắm+-+-+-+

Lê Văn Duyệt
 
levanduyet đã viết:
Hi Anh,
Em chưa hiểu ý anh lắm+-+-+-+

Lê Văn Duyệt
Nhấp chuột vào đây để mở rộng...
Tức là thế này:
- Tôi có Workbook mang tên A.xls
- Tôi cần 1 hàm theo cú pháp =WbIsOpen("A")
- Hàm này sẽ trả về giá trị = TRUE nếu Workbook A.xls đang mở và ngược lại
Thế thôi, không quan tâm đến đường dẩn (file ấy nằm ở đâu trên đĩa cứng tùy ý)
---------------
Còn vụ kiểm tra file đang mở lại hoàn toàn khác, nó cần 1 đường dẩn đầy đủ, và đây là điều mà người dùng không quan tâm!
 
levanduyet đã viết:
Anh ơi,

Em đã giới thiệu rồi (nhưng tại vì em chưa kiểm tra theo ý anh nói thôi.) Anh xem ở đây nha.

Chúc anh nghỉ lễ vui vẻ nha.

Lê Văn Duyệt
Nhấp chuột vào đây để mở rộng...

Anh Duyệt ơi, nếu workbook đặt thuộc tính share (menu: Tools\Share Workbook...) thì hàm trả về giá trị không đúng. Bất kỳ một file nào, không cứ là Excel, nếu OpenFile với thuộc tính Share thì việc kiển tra như cách đã nêu là không đúng.

Vấn đề này có thể tìm một giải pháp tối ưu là: tìm trong Registry hay ở đâu đó, Microsoft Excel lưu thông tin về những file đang mở. Em cũng đang tìm nhưng chưa ra.
 
Nói tóm lại câu trả lời mình cần tìm là: Viết một hàm với tham số là tên của workbook, và kiểm tra xem workbook này có đang mở hay không? (kiểm tra trong tất cả các session Excel đang mở)

Lê Văn Duyệt
 
Lần chỉnh sửa cuối:
Đây là một ý tưởng từ ZVI

Mã: 
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
Dim hwnd As Long, IsOpen As Boolean, WbName As String
' Testing subrotine
Sub Test()
    Const Wb = "Book1.xls"
    MsgBox "IsWorkbookOpen = " & IsWorkbookOpen(Wb) & vbLf & WbName, , Wb
End Sub
' IsFileOpen= True if WorkbookName is found in text of any Excel window
Function IsWorkbookOpen(WorkbookName As String) As Boolean
    hwnd = 0: IsOpen = False: WbName = UCase(WorkbookName)
    EnumChildWindows hwnd, AddressOf EnumChildProc, ByVal 0&
    If IsOpen Then IsWorkbookOpen = True Else WbName = ""
End Function
' Aux function for API callback
Private Function EnumChildProc(ByVal hwnd As Long, ByVal lParam As Long) As Long

    Dim s$
    s = Space$(GetWindowTextLength(hwnd) + 1)
    GetWindowText hwnd, s, Len(s)
    s = Left$(s, Len(s) - 1)
    Debug.Print s
    If UCase(s) Like "*MICROSOFT EXCEL *" & WbName & "*" Then
        WbName = s
        IsOpen = True
        Exit Function
    End If
    EnumChildProc = 1
End Function

(Em chưa kiểm tra)
 
levanduyet đã viết:
Đây là một ý tưởng từ ZVI

Mã: 
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
Dim hwnd As Long, IsOpen As Boolean, WbName As String
' Testing subrotine
Sub Test()
    Const Wb = "Book1.xls"
    MsgBox "IsWorkbookOpen = " & IsWorkbookOpen(Wb) & vbLf & WbName, , Wb
End Sub
' IsFileOpen= True if WorkbookName is found in text of any Excel window
Function IsWorkbookOpen(WorkbookName As String) As Boolean
    hwnd = 0: IsOpen = False: WbName = UCase(WorkbookName)
    EnumChildWindows hwnd, AddressOf EnumChildProc, ByVal 0&
    If IsOpen Then IsWorkbookOpen = True Else WbName = ""
End Function
' Aux function for API callback
Private Function EnumChildProc(ByVal hwnd As Long, ByVal lParam As Long) As Long

    Dim s$
    s = Space$(GetWindowTextLength(hwnd) + 1)
    GetWindowText hwnd, s, Len(s)
    s = Left$(s, Len(s) - 1)
    Debug.Print s
    If UCase(s) Like "*MICROSOFT EXCEL *" & WbName & "*" Then
        WbName = s
        IsOpen = True
        Exit Function
    End If
    EnumChildProc = 1
End Function
(Em chưa kiểm tra)
Nhấp chuột vào đây để mở rộng...
Đang test... Duyệt đưa thiếu 1 hàm API
PHP: 
Declare Function EnumChildWindows Lib "user32" (ByVal hWndParent As Long, ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long
Kết quả chính xác nhưng còn.. thiếu tí nữa thôi, đó là:
- Kiểm tra workbook trên 1 session khác ---> Kết quả CHÍNH XÁC
- Kiểm tra workbook trên cùng 1 session ---> Kết quả SAI
Hic... Mình nghĩ trục trặc này Duyệt thừa sức khắc phục!
---------------------------------------------
TuanVNUNI đã viết:
Anh Duyệt ơi, nếu workbook đặt thuộc tính share (menu: Tools\Share Workbook...) thì hàm trả về giá trị không đúng. Bất kỳ một file nào, không cứ là Excel, nếu OpenFile với thuộc tính Share thì việc kiển tra như cách đã nêu là không đúng.
.
Nhấp chuột vào đây để mở rộng...
Đã thử với share workbook ---> Kết quả chính xác luôn
 
Lần chỉnh sửa cuối:
levanduyet đã viết:
Đây là một ý tưởng từ ZVI

Mã: 
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
Declare Function EnumChildWindows Lib "user32" (ByVal hWndParent As Long, ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long
Dim hwnd As Long, IsOpen As Boolean, WbName As String
' Testing subrotine
Sub Test()
    Const Wb = "Book1.xls"
    MsgBox "IsWorkbookOpen = " & IsWorkbookOpen(Wb) & vbLf & WbName, , Wb
End Sub
' IsFileOpen= True if WorkbookName is found in text of any Excel window
Function IsWorkbookOpen(WorkbookName As String) As Boolean
    hwnd = 0: IsOpen = False: WbName = UCase(WorkbookName)
    EnumChildWindows hwnd, AddressOf EnumChildProc, ByVal 0&
    If IsOpen Then IsWorkbookOpen = True Else WbName = ""
End Function
' Aux function for API callback
Private Function EnumChildProc(ByVal hwnd As Long, ByVal lParam As Long) As Long

    Dim s$
    s = Space$(GetWindowTextLength(hwnd) + 1)
    GetWindowText hwnd, s, Len(s)
    s = Left$(s, Len(s) - 1)
    Debug.Print s
    If UCase(s) Like "*MICROSOFT EXCEL *" & WbName & "*" Then
        WbName = s
        IsOpen = True
        Exit Function
    End If
    EnumChildProc = 1
End Function

(Em chưa kiểm tra)
Nhấp chuột vào đây để mở rộng...

Kết quả không đúng anh ạ. Như em đã nói bài trên là dùng các hàm API để kiển tra text/caption của các window đang mở với tên một workbook rồi kết luận nó mở hay không là không chuẩn.

Hàm trên sẽ bị sai khi xảy ra một trong 3 trường hợp dưới đây,
+ Excel đang mở ít nhất 2 file (thực tế người dùng Excel ít khi chỉ mở một file). Giả sử ta cần kiểm tra file book1.xls, nhưng ta đang làm viẹc với book2.xls (ActiveWorkbook) thì kêys quả không đúng.
Việc trả kết quả không đúng vì khi ta đa làm với một workbook thì Window của chương trình sẽ luôn hiện tên của workbook đó, còn các workbooks khác đang mở vẫn chạy âm thầm nhưng không có tên trên window của chương trình.
+ Người dùng khi viết một ứng dụng VBA, thường thay đổi caption/text của window chương trình bằng cách Application.Caption = "Chương trình kiểm kho", khi đó đương nhiên hàm kiểm tra trên là sai.
+ Nếu tên workbook là tên có dấu, ví dụ "kế toán nhập xuất tồn.xls" thì hàm trên đương nhiên sai, vì chúng không hõ trợ Unicode. Tuy nhiên vấn đề này là chuyện nhỏ vì ta có thể unicode được.

Việc sai của hàm IsWorkbookOpen trên là vì ta chỉ dựa vòa một manh mối mong manh là WindowText, mà giá trị này thường bị thay đổi bởi ứng dụng, của người dùng. Việc đặt workbook share hay không không liên quan tời hàm này.

Hy vọng chúng ta sẽ tìm được giải pháp chuẩn cho hàm IsWorkbookOpen.
 
Lần chỉnh sửa cuối:
Theo tôi thì việc kiểm tra trạng thái 1 workbook có đang được mở hay không thì kiểm tra trên 1 Session của Excel là đủ rồi, tôi chưa thấy có nhu cầu nào cần phải kiểm tra trên tất cả các session Excel đang chạy cả. Không rõ có bác nào gặp phải tình huống cần phải kiểm tra trên toàn bộ các session của Excel hay chưa???
 
rollover79 đã viết:
Theo tôi thì việc kiểm tra trạng thái 1 workbook có đang được mở hay không thì kiểm tra trên 1 Session của Excel là đủ rồi, tôi chưa thấy có nhu cầu nào cần phải kiểm tra trên tất cả các session Excel đang chạy cả. Không rõ có bác nào gặp phải tình huống cần phải kiểm tra trên toàn bộ các session của Excel hay chưa???
Nhấp chuột vào đây để mở rộng...

Với các loại database khác thì có lẽ không thực sự cần thiết vì nếu là file có thể share cho nhiều người dùng thì nó luôn được mở ở trạng thái share, khi đó nhiều người đều có thể ghi vào file này khi nó đang mở. Nhưng với Excel, khi file đã mở ở một session, nếu mở một lần nữa trên session khác thì nó luôn là trạng thái ReadOnly - Chỉ đọc mà không ghi được, khi đó các lệnh ghi dữ liệu trên file này sẽ xảy ra lỗi. Trừ khi file này người dùng đặt thuộc tính "Share Workbook".
 
TuanVNUNI đã viết:
Với các loại database khác thì có lẽ không thực sự cần thiết vì nếu là file có thể share cho nhiều người dùng thì nó luôn được mở ở trạng thái share, khi đó nhiều người đều có thể ghi vào file này khi nó đang mở. Nhưng với Excel, khi file đã mở ở một session, nếu mở một lần nữa trên session khác thì nó luôn là trạng thái ReadOnly - Chỉ đọc mà không ghi được, khi đó các lệnh ghi dữ liệu trên file này sẽ xảy ra lỗi. Trừ khi file này người dùng đặt thuộc tính "Share Workbook".
Nhấp chuột vào đây để mở rộng...
Nếu để phục vụ yêu cầu này theo tôi không không phải kiểm tra tên Workbook đang mở mà phải kiểm tra Tên file đầy đủ mới đúng. Vì nếu tôi có 2 file cùng tên nhưng đặt ở 2 thư mục khác nhau, như vậy khi mở ra nó sẽ có cùng tên Workbook(mở trên 2 session của excel), việc kiểm tra để phục vụ yêu cầu này sẽ không chính xác. Mặt khác việc mở cùng 1 file thì về mặt người dùng sẽ nhận được cảnh báo file in use. Còn về mặt người xử lý dưới code thì cần quan tâm tới trạng thái ReadOnly của file đang xử lý.
 
rollover79 đã viết:
Nếu để phục vụ yêu cầu này theo tôi không không phải kiểm tra tên Workbook đang mở mà phải kiểm tra Tên file đầy đủ mới đúng. Vì nếu tôi có 2 file cùng tên nhưng đặt ở 2 thư mục khác nhau, như vậy khi mở ra nó sẽ có cùng tên Workbook(mở trên 2 session của excel), việc kiểm tra để phục vụ yêu cầu này sẽ không chính xác. Mặt khác việc mở cùng 1 file thì về mặt người dùng sẽ nhận được cảnh báo file in use. Còn về mặt người xử lý dưới code thì cần quan tâm tới trạng thái ReadOnly của file đang xử lý.
Nhấp chuột vào đây để mở rộng...

Trước khi open file thì kiểm tra xem tên của Workbook đã tồn tại hay chưa. Nếu đã có thì không mở nữa hoặc làm gì đấy...
Vấn đề kiểm tra trạng thái đã mở hay chưa mới là khó. Khi viết ứng dụng, người ta kiểm tra file trước khi mở nó ra, chứ mở rồi mới kiểm tra thì không ổn.
 
TuanVNUNI đã viết:
Trước khi open file thì kiểm tra xem tên của Workbook đã tồn tại hay chưa. Nếu đã có thì không mở nữa hoặc làm gì đấy...
Vấn đề kiểm tra trạng thái đã mở hay chưa mới là khó. Khi viết ứng dụng, người ta kiểm tra file trước khi mở nó ra, chứ mở rồi mới kiểm tra thì không ổn.
Nhấp chuột vào đây để mở rộng...
Thế thì vấn đề chuyển sang là kiểm tra 1 file đã được mở hay chưa(in use), chứ không phải kiểm tra Workbook có tên cụ thể có đang được mở hay không. Tên Workbook có thể đang mở nhưng chắc gì đã phải là cái file mà ta đang định mở??? Để kiểm tra file hiện có được mở hay không thì phải kiểm tra Fullname của file đó mới xác định được. Bạn thử dùng hàm này kiểm tra tình trạng file đang được mở hay không xem có vấn đề gì không nhé
Mã: 
Function IsOpen(strFullname As String) As Boolean
    Dim iFile As Integer
    iFile = FreeFile
    On Error Resume Next
    Open strFullname For Binary Access Read Write Lock Read Write As #iFile
    Close #iFile
    If Err.Number <> 0 Then
        IsOpen = True
        Err.Clear
    Else
        IsOpen = False
    End If
End Function
 
rollover79 đã viết:
Thế thì vấn đề chuyển sang là kiểm tra 1 file đã được mở hay chưa(in use), chứ không phải kiểm tra Workbook có tên cụ thể có đang được mở hay không. Tên Workbook có thể đang mở nhưng chắc gì đã phải là cái file mà ta đang định mở??? Để kiểm tra file hiện có được mở hay không thì phải kiểm tra Fullname của file đó mới xác định được. Bạn thử dùng hàm này kiểm tra tình trạng file đang được mở hay không xem có vấn đề gì không nhé
Nhấp chuột vào đây để mở rộng...
Có tính huống thế này:
- Người dùng có file A.xls nằm đâu đó trên đĩa cứng
- File A.xls này đôi lúc bị thay đổi vị trí (tức thay đổi đường dẩn)
- Khi làm việc gì đó, người ta chỉ muốn biết file A.xls này đã mở hay chưa (chỉ cần biết tên file)
Thế thì không thể xác định file đã mở bằng vào đường dẩn được (Mà thực chất người dùng cũng không quan tâm đến đường dẩn luôn)
Vói người dùng Excel có kinh nghiệm sẽ luôn "tránh né" vấn đề này, nhưng trên thực tế nhu cầu trên là có thật
(Thế mới khoai... chứ để xác định 1 file có đường dẩn cụ thể đã mở hay chưa thì ta đã không bàn luận gì nữa rồi)
 
ndu96081631 đã viết:
Có tính huống thế này:
- Người dùng có file A.xls nằm đâu đó trên đĩa cứng
- File A.xls này đôi lúc bị thay đổi vị trí (tức thay đổi đường dẩn)
- Khi làm việc gì đó, người ta chỉ muốn biết file A.xls này đã mở hay chưa (chỉ cần biết tên file)
Thế thì không thể xác định file đã mở bằng vào đường dẩn được (Mà thực chất người dùng cũng không quan tâm đến đường dẩn luôn)
Vói người dùng Excel có kinh nghiệm sẽ luôn "tránh né" vấn đề này, nhưng trên thực tế nhu cầu trên là có thật
(Thế mới khoai... chứ để xác định 1 file có đường dẩn cụ thể đã mở hay chưa thì ta đã không bàn luận gì nữa rồi)
Nhấp chuột vào đây để mở rộng...
Tôi thấy đây vẫn chỉ là giả thuyết để rồi lại dẫn dắt tới việc thực hiện cái yêu cầu ban đâu chứ chưa phải là 1 trường hợp cụ thể cần cái nhu cầu này(vẫn ở đâu đó với làm việc gì đó), còn nhu cầu thực tế tôi thấy nó vẫn không cần thiết, bản thân excel cũng không hề quan tâm tới việc 1 Workbook có tên cụ thể đã được mở trên session khác hay chưa. Còn nếu bác nào thực sự có nhu cầu này thật thì có thể can thiệp để khi mở 1 workbook bất kỳ thì lưu tạm tên workbook vào đâu đó(có thể là regitry), khi close workbook thì lại xóa nó đi, như vậy khi cần kiểm tra có thể kiểm tra tại đó. Còn tôi thì thực sự chưa thấy có nhu cầu nào để thực hiện yêu cầu này cả.
 
rollover79 đã viết:
Thế thì vấn đề chuyển sang là kiểm tra 1 file đã được mở hay chưa(in use), chứ không phải kiểm tra Workbook có tên cụ thể có đang được mở hay không. Tên Workbook có thể đang mở nhưng chắc gì đã phải là cái file mà ta đang định mở??? Để kiểm tra file hiện có được mở hay không thì phải kiểm tra Fullname của file đó mới xác định được. Bạn thử dùng hàm này kiểm tra tình trạng file đang được mở hay không xem có vấn đề gì không nhé
Mã: 
Function IsOpen(strFullname As String) As Boolean
    Dim iFile As Integer
    iFile = FreeFile
    On Error Resume Next
    Open strFullname For Binary Access Read Write Lock Read Write As #iFile
    Close #iFile
    If Err.Number <> 0 Then
        IsOpen = True
        Err.Clear
    Else
        IsOpen = False
    End If
End Function
Nhấp chuột vào đây để mở rộng...

Cái hàm này cũng như cái hàm bác Duyệt đã giới thiệu thôi. Nó sai khi workbook đặt thuộc tính share (Tools\Share Workbook...).
Vấn đề tôi quan tâm thực sự là file đó đã được mở hay chưa mà thôi (kiểm tra fullname), chứ tên workbook là một chuyện khác.

Về ý tưởng lưu file mở vào registry để lấy chỗ để kiểm tra thì không được đâu. Một file Excel thuần túy (không có VBA) người ta có thể mở một cách thông thường là nhấp đúp chuột từ "My Computer"

Vấn của tôi là thực tế. Tôi quan tâm tới kết quả trả về của hàm phải đúng.
 
Lần chỉnh sửa cuối:
TuanVNUNI đã viết:
Cái hàm này cũng như cái hàm bác Duyệt đã giới thiệu thôi. Nó sai khi workbook đặt thuộc tính share (Tools\Share Workbook...).
Vấn đề tôi quan tâm thực sự là file đó đã được mở hay chưa mà thôi (kiểm tra fullname), chứ tên workbook là một chuyện khác.

Về ý tưởng lưu file mở vào registry để lấy chỗ để kiểm tra thì không được đâu. Một file Excel thuần túy (không có VBA) người ta có thể mở một cách thông thường là nhấp đúp chuột từ "My Computer"

Vấn của tôi là thực tế. Tôi quan tâm tới kết quả trả về của hàm phải đúng.
Nhấp chuột vào đây để mở rộng...
Có bị lộn gì ở đây không? Tôi thấy mọi người đang bàn đến chuyện kiểm tra tên 1 Workbook có được mở trên bất kỳ 1 session nào hay không, và tôi thấy chỉ cần check trên 1 session hiện tại mà code chạy là đủ. Còn code kiểm tra file có đang mở hay không thì hàm đó trả về kết quả đúng. Riêng trường hợp Share Workbook thì khi 1 Workbook đã được share thì cơ chế làm việc của nó khác hoàn toàn, nếu ai đã dùng các phần mềm quản lý SourceSafe sẽ hiểu là khi đó thì file đó sẽ không được mở thực sự, khi 1 người dùng mở file đó thì thực chất nó tạo ra 1 bản sao của file đó trên local và làm việc trên bản đó, chỉ khi nào thực sự ghi lại thì nó mới làm việc với file thực sự đó. Như vậy tôi thấy yêu cầu mà bạn đang quan tâm có vẻ đang không giống như yêu cầu mà bác NDU đang quan tâm thì phải. Còn nhu cầu bạn muốn kiểm tra 1 file đã share workbook rồi có thực sự được mở hay không thì tôi đang không rõ trường hợp cụ thể nào dẫn đến nhu cầu này???
 
rollover79 đã viết:
Có bị lộn gì ở đây không? Tôi thấy mọi người đang bàn đến chuyện kiểm tra tên 1 Workbook có được mở trên bất kỳ 1 session nào hay không, và tôi thấy chỉ cần check trên 1 session hiện tại mà code chạy là đủ. Còn code kiểm tra file có đang mở hay không thì hàm đó trả về kết quả đúng. Riêng trường hợp Share Workbook thì khi 1 Workbook đã được share thì cơ chế làm việc của nó khác hoàn toàn, nếu ai đã dùng các phần mềm quản lý SourceSafe sẽ hiểu là khi đó thì file đó sẽ không được mở thực sự, khi 1 người dùng mở file đó thì thực chất nó tạo ra 1 bản sao của file đó trên local và làm việc trên bản đó, chỉ khi nào thực sự ghi lại thì nó mới làm việc với file thực sự đó. Như vậy tôi thấy yêu cầu mà bạn đang quan tâm có vẻ đang không giống như yêu cầu mà bác NDU đang quan tâm thì phải. Còn nhu cầu bạn muốn kiểm tra 1 file đã share workbook rồi có thực sự được mở hay không thì tôi đang không rõ trường hợp cụ thể nào dẫn đến nhu cầu này???
Nhấp chuột vào đây để mở rộng...

Vấn đề bác NDU quan tâm là tên workbook, còn tôi quan tâm tới file (fullname). Tôi quan tâm tới IsOpen() phải trả về đúng, dù file đó đặt thuộc tính gì, cơ chế gì. Còn nếu chúng ta không làm được thì thôi tạm bỏ qua hàm này. Vấn đề này trên mạng hình như cũng chưa có ai làm được thì phải?

Còn nhu cầu bạn muốn kiểm tra 1 file đã share workbook rồi có thực sự được mở hay không thì tôi đang không rõ trường hợp cụ thể nào dẫn đến nhu cầu này???
Nhấp chuột vào đây để mở rộng...

Một file, do tính chất công việc phải hợp tác, chia sẻ dữ liệu với nhiều người, người ta share nó trong mạng LAN (đương nhiên phải đặt Share Workbook). Từ một chương trình người ta có hàm IsOpen(...) để kiểm tra.
 
Lần chỉnh sửa cuối:
TuanVNUNI đã viết:
Vấn đề bác NDU quan tâm là tên workbook, còn tôi quan tâm tới file (fullname). Tôi quan tâm tới IsOpen() phải trả về đúng, dù file đó đặt thuộc tính gì, cơ chế gì. Còn nếu chúng ta không làm được thì thôi tạm bỏ qua hàm này. Vấn đề này trên mạng hình như cũng chưa có ai làm được thì phải?



Một file, do tính chất công việc phải hợp tác, chia sẻ dữ liệu với nhiều người, người ta share nó trong mạng LAN (đương nhiên phải đặt Share Workbook). Từ một chương trình người ta có hàm IsOpen(...) để kiểm tra.
Nhấp chuột vào đây để mở rộng...
Sở dĩ tôi hỏi trường hợp cụ thể nhu cầu vì đôi khi có thể không dùng cách này thì dùng cách khác. Còn hàm IsOpen nếu đối với 1 file không share thì chắc không còn vấn đề gì phải bàn. Trường hợp Share thì tôi không rõ code từ 1 nơi khác(không phải file cần kiểm tra) có kiểm tra được file đó có phải share hay không? do đó việc kiểm tra IsOpen khó mà thực hiện được, tuy nhiên nếu code tại file đó ta hoàn toàn có thể kiểm tra file đó có được share hay không, nếu được share thì hiện tại có bao nhiêu người đang mở file đó. Từ đây tôi nghĩ chắc cũng đủ dùng cho 1 số trường hợp rồi, tuy nhiên tôi không rõ trường hợp cụ thể của bạn là gì nên không rõ nó có đáp ứng được yêu cầu của bạn hay không.
 
rollover79 đã viết:
Sở dĩ tôi hỏi trường hợp cụ thể nhu cầu vì đôi khi có thể không dùng cách này thì dùng cách khác. Còn hàm IsOpen nếu đối với 1 file không share thì chắc không còn vấn đề gì phải bàn. Trường hợp Share thì tôi không rõ code từ 1 nơi khác(không phải file cần kiểm tra) có kiểm tra được file đó có phải share hay không? do đó việc kiểm tra IsOpen khó mà thực hiện được, tuy nhiên nếu code tại file đó ta hoàn toàn có thể kiểm tra file đó có được share hay không, nếu được share thì hiện tại có bao nhiêu người đang mở file đó. Từ đây tôi nghĩ chắc cũng đủ dùng cho 1 số trường hợp rồi, tuy nhiên tôi không rõ trường hợp cụ thể của bạn là gì nên không rõ nó có đáp ứng được yêu cầu của bạn hay không.
Nhấp chuột vào đây để mở rộng...
Hi rollover79,

Vậy theo bạn có cách nào, hàm nào để kiểm tra việc workbook trong tình trạng shared và đang mở hay đóng không?

Lê Văn Duyệt
 
levanduyet đã viết:
Hi rollover79,

Vậy theo bạn có cách nào, hàm nào để kiểm tra việc workbook trong tình trạng shared và đang mở hay đóng không?

Lê Văn Duyệt
Nhấp chuột vào đây để mở rộng...
Nếu ở tại workbook đó thì ta có thể dùng thuộc tính MultiUserEditing hoặc UserStatus của workbook để kiểm tra, ví dụ sau sẽ liệt kê danh sách User đang mở workbook và tình trạng share
Mã: 
Sub ShowUsers()
    On Error Resume Next
    Dim arrUsers()
    Dim strMsg As String
    Dim i As Integer
    arrUsers = ThisWorkbook.UserStatus
    For i = 1 To UBound(arrUsers)
        strMsg = strMsg & arrUsers(i, 1) & " Opened: " & arrUsers(i, 2) & ", " & IIf(arrUsers(i, 3) = 2, "Shared", "Not Shared") & vbNewLine
    Next
    MsgBox strMsg
End Sub
 
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.
Web KT

Bài viết mới nhất

D
  • Đã giải quyết
Quản lý email outlook qua VBA cần giúp đỡ (5 người xem)
2
Trả lời
22
Đọc
411
nguyendang95
N
G
Xin Code xóa Module.
Trả lời
7
Đọc
199
VetMini
V
S
Mở 2 cửa sổ riêng biệt (1 người xem)
2
Trả lời
30
Đọc
23K
sakuraluu
S
F
Nhập dấu . (chấm) ở bàn phím phụ không tự chuyển thành dấu , (phẩy)
Trả lời
16
Đọc
57K
tubaodn21
tubaodn21
PhanTuHuong
Sách Lập trình VBA trong AutoCAD đã có mặt
    • Thích
    • Yêu thích
2
Trả lời
21
Đọc
1K
PhanTuHuong
PhanTuHuong
L
Lỗi font khi convert từ pdf
Trả lời
3
Đọc
133
lamvu0677
L
N
Khắc phục lỗi "The picture is too large and will be truncated" (3 người xem)
Trả lời
9
Đọc
5K
SonBDND
S
GPE-Trợ Lý
[GPE] TALKSHOW: PHÂN TÍCH BÁO CÁO ĐỘ NHẠY SỬ DỤNG EXCEL SOLVER (1 người xem)
    • Thích
Trả lời
0
Đọc
812
GPE-Trợ Lý
GPE-Trợ Lý
K
  • Question Question
nhờ ace giúp đỡ tự động filter và In hàng loạt từng mục trong piviot table
Trả lời
1
Đọc
108
khkkh
K
K
Xin dax tính tỷ trọng doanh thu
Trả lời
18
Đọc
780
SteveNguyen1991
S
F
  • Question Question
Tự động Merge Mail bằng VBA
Trả lời
6
Đọc
208
Hoàng Tuấn 868
H
N
Một ví dụ về XLL add-in: Tương tác với Google Gemini dưới dạng công thức bảng tính (1 người xem)
    • Thích
Trả lời
0
Đọc
132
nguyendang95
N
H
Nhờ anh/chị giúp đỡ em viết công thức trừ dữ liệu theo FiFo
Trả lời
1
Đọc
116
HieuCD
H
BNTT
LockXLS - Chương trình bảo vệ an toàn cho các file bảng tính Excel
    • Thích
4 5 6
Trả lời
118
Đọc
73K
YêuCN
Y
vsitcnh
Hỗ trợ công thức tính điểm dựa theo điều kiện. (1 người xem)
Trả lời
14
Đọc
209
thuytrangbp28
T
micam111
  • Question Question
Cách chạy nhiều đồng hồ đếm giờ trong VBA
Trả lời
4
Đọc
704
thuytrangbp28
T
B
Xin giải pháp chống sửa, xóa dữ liệu đã nhập vào từ ngày hôm trước.
    • Thích
2
Trả lời
26
Đọc
7K
Tuấn Bụng Bự
Tuấn Bụng Bự
Emyeuexcel
  • Question Question
In tất cả các file trong cùng 1 thư mục (1 người xem)
Trả lời
3
Đọc
216
Hoàng Tuấn 868
H
1
Hỏi về đánh dấu hàng ngang hàng dọc bằng màu khi kích chuột vào 1 ô
Trả lời
7
Đọc
213
Gà Công Nghệ
Gà Công Nghệ
P
Excell code vba : Tìm Cell để sửa dữ liệu
    • Buồn
2
Trả lời
26
Đọc
592
Phạm Trường 80
P
Xem thêm…

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Đếm ngược thời gian

000
Ngày
00
Giờ
00
phút
00
giây
TALK SHOW: CÙNG NHẢY LAM BA ĐA VỚI HÀM LAMBDA (λ) EXCEL 365
Back
Top Bottom