chuyển code từ vba trong excel qua vb6 báo lỗi...

thothongcong · 27/8/12

em chỉ mới chập chững viết code bên vb6.....
khi đọc tài liệu trên internet thì chỉ cần mình viết chuẩn bên vba thì qua bên vb6 cũng với code đó có thể sử dụng được nhưng mình làm chỉ toàn thấy báo lỗi.
mong các pác nào có kinh nghiệm xin chỉ giáo thêm
em có tải file hình báo thông tin lỗi kèm với file mà em viết....

levanduyet · 27/8/12

Chào bạn,
Bạn phải cụ thể hơn, đưa đoạn code thì hy vọng mới có người giúp bạn được.
Nên nhớ rằng VBA và VB6 khác nhau, không phải code nào trong VBA được thì VB6 cũng được.

Lê Văn Duyệt

thothongcong · 27/8/12

Mã:

Sub lamthu()Dim loc As TN.thunghiem
Set loc = New TN.thunghiem
[COLOR=#ff0000]    loc.loc_bh[/COLOR]
Set loc = Nothing
End Sub

đây chỉ là đoạn code đơn giản mà em đang làm thử chuyển qua DLL nhưng khi viết code trong excel thì lại bị lỗi như hình mà em có đưa file đính kèm
debug tại vị trí này ( loc.loc_bh)
trong khi đó cũng với code đó chạy trên excel thì lại rất okie.......
em có gởi kèm file vb6 + flie DLL em đã xuất ra|+flie excel
thank các pác!!!

siwtom · 27/8/12

thothongcong đã viết:
Mã:

Sub lamthu()Dim loc As TN.thunghiem Set loc = New TN.thunghiem [COLOR=#ff0000] loc.loc_bh[/COLOR] Set loc = Nothing End Sub

đây chỉ là đoạn code đơn giản mà em đang làm thử chuyển qua DLL nhưng khi viết code trong excel thì lại bị lỗi như hình mà em có đưa file đính kèm
debug tại vị trí này ( loc.loc_bh)
trong khi đó cũng với code đó chạy trên excel thì lại rất okie.......
em có gởi kèm file vb6 + flie DLL em đã xuất ra|+flie excel
thank các pác!!!

Bạn làm thế không được rồi.
Đối tượng Cells - Range là thuộc tính của Application. Thực ra viết đầy đủ thì là vd.:
Application.Cells(...)
Application.ActiveSheet.Cells(...)
v...v
Tóm lại muốn truy cập "tới cái gì đó" trong Excel thì bạn phải có đối tượng Application. Khi bạn "chạy" code trong Excel thì bạn có ngay Application vì nó được tạo khi khởi động Excel. Tất nhiên bạn có thể truy cập đối tượng Application này tại bất cứ đâu trong code Excel.

Bây giờ trong code VB bạn có: mHangCuoi = Cells(65000, 15).End(xlUp).Row
VB đâu có biết Cells là cái gì??? Nó không tạo đối tượng Application, không được "biếu", "tặng", "truyền" ... thì làm sao nó có để mà truy cập tới các thuộc tính, gọi các method của "vị" Application này???
Vậy bạn phải truyền cho VB "vị" Application kia. Vd. code là

Bên VB

Mã:

Option Explicit
' biến dùng để nhớ "vị" Application ma Excel truyền cho
Private FExcelApp As Excel.Application

Public Property Set ExcelApp(ByRef excel_App As Excel.Application)
    ' nhớ "vị" Application mà Excel truyền cho vào biến
    Set FExcelApp = excel_App
End Property

Private Sub Class_Terminate()
    Set FExcelApp = Nothing
End Sub

Sub loc_bh()
    Dim mHangCuoi As Long
    Dim i As Integer
    ' trong Excel bạn có thể viết tắt Cells thì Excel hiểu là bạn muốn truy cập tới
    ' Cells của ActiveSheet. VB không biết Cells này là gì nên bạn phải truy cập tới
    ' nó thông qua Application đã ghi nhớ
    
    With FExcelApp.ActiveSheet
        mHangCuoi = .Cells(65000, 15).End(xlUp).Row
        .Range(.Cells(1, 23), .Cells(65000, 25)).ClearContents
        For i = 2 To mHangCuoi
        
                .Cells(i, 23) = .Cells(i, 16) & "_" & .Cells(i, 15)
                .Cells(i, 24) = Mid(.Cells(i, 22), 2, 2) * 10
                .Cells(i, 25) = Mid(.Cells(i, 22), 4, 2) * 10
          
        Next i
    End With
End Sub

Bên Excel

Mã:

Sub code_chay_goi_vb6()
Dim loc As TN.thunghiem
    ' Tạo đối tượng (object)
    Set loc = New TN.thunghiem
    ' "truyền" Application (Pointer) sang cho VB
    Set loc.ExcelApp = Application
    ' gọi Method
    loc.loc_bh
    Set loc = Nothing
End Sub

Hiện bên Excel bạn có tham chiếu tới DLL là Missing. Bạn xóa nó đi rồi thêm lại

sinhvienvn2005 · 29/8/12

Câu trúc dòng lệnh trong VBA đâu phải y chang như trong VB đâu nên ko đc là phải rồi!

Thái Phúc · 20/12/18

siwtom đã viết:
Bạn làm thế không được rồi.
Đối tượng Cells - Range là thuộc tính của Application. Thực ra viết đầy đủ thì là vd.:
Application.Cells(...)
Application.ActiveSheet.Cells(...)
v...v
Tóm lại muốn truy cập "tới cái gì đó" trong Excel thì bạn phải có đối tượng Application. Khi bạn "chạy" code trong Excel thì bạn có ngay Application vì nó được tạo khi khởi động Excel. Tất nhiên bạn có thể truy cập đối tượng Application này tại bất cứ đâu trong code Excel.

Bây giờ trong code VB bạn có: mHangCuoi = Cells(65000, 15).End(xlUp).Row
VB đâu có biết Cells là cái gì??? Nó không tạo đối tượng Application, không được "biếu", "tặng", "truyền" ... thì làm sao nó có để mà truy cập tới các thuộc tính, gọi các method của "vị" Application này???
Vậy bạn phải truyền cho VB "vị" Application kia. Vd. code là

Bên VB

Mã:

Option Explicit ' biến dùng để nhớ "vị" Application ma Excel truyền cho Private FExcelApp As Excel.Application Public Property Set ExcelApp(ByRef excel_App As Excel.Application) ' nhớ "vị" Application mà Excel truyền cho vào biến Set FExcelApp = excel_App End Property Private Sub Class_Terminate() Set FExcelApp = Nothing End Sub Sub loc_bh() Dim mHangCuoi As Long Dim i As Integer ' trong Excel bạn có thể viết tắt Cells thì Excel hiểu là bạn muốn truy cập tới ' Cells của ActiveSheet. VB không biết Cells này là gì nên bạn phải truy cập tới ' nó thông qua Application đã ghi nhớ With FExcelApp.ActiveSheet mHangCuoi = .Cells(65000, 15).End(xlUp).Row .Range(.Cells(1, 23), .Cells(65000, 25)).ClearContents For i = 2 To mHangCuoi .Cells(i, 23) = .Cells(i, 16) & "_" & .Cells(i, 15) .Cells(i, 24) = Mid(.Cells(i, 22), 2, 2) * 10 .Cells(i, 25) = Mid(.Cells(i, 22), 4, 2) * 10 Next i End With End Sub

Bên Excel

Mã:

Sub code_chay_goi_vb6() Dim loc As TN.thunghiem ' Tạo đối tượng (object) Set loc = New TN.thunghiem ' "truyền" Application (Pointer) sang cho VB Set loc.ExcelApp = Application ' gọi Method loc.loc_bh Set loc = Nothing End Sub

Hiện bên Excel bạn có tham chiếu tới DLL là Missing. Bạn xóa nó đi rồi thêm lại

Em chạy code như anh hướng dẫn thì báo lỗi này:

tam888 · 20/12/18

Thái Phúc đã viết:
Em chạy code như anh hướng dẫn thì báo lỗi này:
View attachment 209741

siwtom theo tôi biết bị đình chỉ từ lâu rồi
Bạn trích bài như thế chỉ làm ban quản trị họ đau thôi, vì tôi thấy GPE này có nhiều bài đề cập chuyện này rồi (cứ google sẽ thấy)

Phuocam · 20/12/18

tam888 đã viết:
. (cứ google sẽ thấy)

Bạn google chưa?

tam888 · 20/12/18

phuocam đã viết:
Bạn google chưa?

tạm đây
https://www.giaiphapexcel.com/diendan/search/278410/?q=nick+siwtom+kỷ+luật&o=date

Phuocam · 20/12/18

tam888 đã viết:
tạm đây

Tại đây https://www.giaiphapexcel.com/diendan/threads/thông-báo-gở-bỏ-việc-dừng-truy-cập-nick-siwtom.135739/

tam888 · 20/12/18

phuocam đã viết:
Tại đây https://www.giaiphapexcel.com/diendan/threads/thông-báo-gở-bỏ-việc-dừng-truy-cập-nick-siwtom.135739/

Thì cứ đọc hết đi sẽ rõ, chứ nói ít hiểu nhiều, khỏi trích đi trích lại; kết thúc ý tại đây

Phuocam · 20/12/18

. ...

batman1 · 20/12/18

Thái Phúc đã viết:
Em chạy code như anh hướng dẫn thì báo lỗi này:
View attachment 209741

Bạn mở lại project VB rồi Make DLL lại (tên là TN.dll)
Mở tập tin Excel -> Alt + F11 -> Tools -> references -> bỏ chọn TN -> duyệt tới TN.dll và chọn -> OK -> chạy code

Thái Phúc · 20/12/18

Cho em hỏi thêm 1 câu nữa là có cách nào làm thủ tục:

batman1 đã viết:
Alt + F11 -> Tools -> references -> bỏ chọn TN -> duyệt tới TN.dll và chọn -> OK

này 1 cách tự động thay vì thủ công như trên không ạ?

chuyển code từ vba trong excel qua vb6 báo lỗi...

thothongcong

Thành viên mới

File đính kèm

levanduyet

Hãy để gió cuốn đi.

thothongcong

Thành viên mới

File đính kèm

siwtom

Thành viên gắn bó

sinhvienvn2005

Thành viên mới

Thái Phúc

Thành viên mới

File đính kèm

tam888

Thành viên tích cực

Phuocam

Thành viên mới

tam888

Thành viên tích cực

Phuocam

Thành viên mới

tam888

Thành viên tích cực

Phuocam

Thành viên mới

batman1

Thành viên gạo cội

Thái Phúc

Thành viên mới

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

Facebook

Group

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