Hỏi: dòng Workbooks.Open không chạy?

Chia sẻ bởi:hands

★★★★★

‹ Đếm số lần xuất hiện và tính... chỉnh code VBA khi cell được chọn... ›

Quảng cáo

Xin chào các anh chị GPE
Em đang mò mẩm tạo Function.
Mục đích là khi nhập =thunghiem(D11,U12:U13). Thì sẽ mở đến từng files ở ô U12 và U13. Lấy thông số ngay tại ô D11 files U12 sau đó cộng cho thông số ô D11 filse U13, đến khi hết files ạ.
Thì khi chạy đến dòng Workbooks.Open(filepath(i)) thì không thấy động tĩnh gì luôn ạ. Em không rõ bị lỗi gì ngay chỗ này. Kính mong các anh chị giúp đỡ.

Khiếp cái Function này mà kéo kín vùng "D11:R49" thì sẽ là 39RX15C =585 lần chạy Workbooks.Open luôn nhỉ?

vâng em cũng nghĩ vậy anh ạ. Nhưng em không biết lý do sao mà chạy đến dòng workbooks.open là nó lướt đi luôn. Không thấy báo lỗi cũng không thấy có gì ạ.

Bạn thử nghiệm thế này xem:
Tạo file mới nhập vào ô B2: D:hoiA.xlsx

Sau đó copy 2 đoạn code dưới này vào file rồi thử nghiệm

Option Explicit

Sub tes_sub()
    Dim wb As Workbook, rng As Range
    Set rng = Sheet1.Range("B2") '"D:hoiA.xlsx"
    Set wb = Workbooks.Open(rng.Value)
    If Not wb Is Nothing Then
        MsgBox wb.FullName
    Else
        MsgBox "Hong roi!"
    End If
End Sub

Function tes_Fuction(ByVal rng As Range)
    Dim wb As Workbook
    Set wb = Workbooks.Open(rng.Value)
    If Not wb Is Nothing Then
        MsgBox wb.FullName
    Else
        MsgBox "Hong roi!"
    End If
End Function

Có lẽ viết theo thế này thì được:

Option Explicit

Sub test()
    tes_sub Sheet1.Range("B2")
End Sub

Sub test2()
    MsgBox tes_Fuction(Sheet1.Range("B2"))
End Sub

Sub tes_sub(ByVal rng As Range)
    Dim wb As Workbook
    Set wb = Workbooks.Open(rng.Value)
    If Not wb Is Nothing Then
        MsgBox wb.FullName
    Else
        MsgBox "Hong roi!"
    End If
End Sub

Function tes_Fuction(ByVal rng As Range) As String
    Dim wb As Workbook
    Set wb = Workbooks.Open(rng.Value)
    If Not wb Is Nothing Then
        tes_Fuction = wb.FullName
    Else
        tes_Fuction = "Hong roi!"
    End If
End Function

Hoặc viết thế này thì cũng được:

Sub test2()
    test_Fuction Sheet1.Range("B2")
End Sub

Function test_Fuction(ByVal rng As Range) As Workbook
    Set test_Fuction = Workbooks.Open(rng.Value)
    If Not test_Fuction Is Nothing Then
        MsgBox test_Fuction.FullName
    Else
        MsgBox "Hong roi!"
    End If
End Function