Could not set RowSource property (1 người xem)

[148btx]

Xin được trợ giúp làm Add-in. Tôi làm một chương trình tính toán điện cho công việc riêng: Chương trình chạy rất tốt trên .xls , trong chương trình của tôi có các UserForm nằm trong VBA và lấy dữ liệu từ các Sheets. Nhưng khi save để làm Add-in (trở thành .xla) và lúc sử dụng Add-in này thì luôn báo lỗi như sau:

Run-time error '360:
Could not set RowSource property. Invalid property value.

Xin được chỉ bảo
Cảm ơn nhiều

 

[Quang_Hải]

Bạn xem phương án của mình làm và tùy biến nha. Nhớ tải file, giải nén ra trước mới chạy được

 

[Hoàng Trọng Nghĩa]

Bạn xem phương án của mình làm và tùy biến nha

Phương án gì vậy bạn? Hình như tác giả gửi cái file rồi bạn gửi lại y chang cái file đó đấy!

 

[Quang_Hải]

Phương án gì vậy bạn? Hình như tác giả gửi cái file rồi bạn gửi lại y chang cái file đó đấy!

Hic, gởi nhầm cái folder tải về. Gởi lại rồi. Bạn xem và góp ý giúp nha. Vì không rõ hết ý định của tác giả nên chỉ làm đến đó thôi

 

[Hoàng Trọng Nghĩa]

em cảm ơn vì đã reply, em add file lên đây

Bài này tôi làm cho bạn bằng ADO để liên kết với file Dich mà không cần mở file này.

Thủ tục liên kết:

Private Sub ExConnect()
    If ExCnn.State = 1 Then ExCnn.Close
    With ExCnn
        .ConnectionString = "Provider= Microsoft.Jet.OLEDB.4.0; data source=" & ThisWorkbook.Path & "/dich.xls" & _
                            ";Extended Properties=Excel 8.0;"
        .CursorLocation = adUseClient
        .Open
    End With
End Sub

Liên kết và nạp List cho ListBox:

Private Sub ListInfo()
    Call ExConnect
    Dim ExSQL As String, RcdSet As New ADODB.Recordset
    ExSQL = "SELECT HOTEN FROM [Sheet1$] "
    RcdSet.Open ExSQL, ExCnn, 3, 1
    
    With Sheet1
        .Range("IQ:IQ").ClearContents
        .Range("IQ1").CopyFromRecordset RcdSet
         ListBox1.List() = Range(.[IQ1], .[IQ65536].End(xlUp)).Value
        .Range("IQ:IQ").ClearContents
    End With
    
    RcdSet.Close
    Set RcdSet = Nothing
    ExCnn.Close
    Set ExCnn = Nothing
End Sub

Khi click hay dùng mũi tên lên xuống sẽ hiện lên mục đang lựa chọn:

(Ở đây tôi không dùng MsgBox vì nó không hiển thị được dấu tiếng Việt, vừa làm mất thời gian bấm nút OK nên tôi cho hiển thị bằng Label, nhưng nếu cần bạn vẫn có thể sử dụng MsgBox)

Private Sub ListBox1_Click()
    LbMsg.Caption = UCase(ListBox1.Value)
   [COLOR=#008000] 'MsgBox ListBox1.Value[/COLOR]
End Sub

Bạn đặt 2 file này ở bất cứ thư mục nào cũng được và phải đảm bảo 2 file này ở cùng thư mục, đồng thời cũng không được đổi tên file dich.xls

Lưu ý, khi chạy bằng ADO, trong cửa sổ VBE bạn chọn Tool, Reference và phải check vào mục:
Microsoft ActiveX Data Objects 2.6 Library