Có thể gọi được UDFunction của Excel từ trên VBA của Word không? (1 người xem)

[sadboy309]

ví dụ trên file Book.xlsm>Module1>hello()

Function Hello(str as String)
Hello = "Xin chao " & str
End Function

trên Word1.docm>Module1>Test()

Sub Test()
Dim wApp As Object, wb As Object
Set wApp = CreateObject("Excel.Application")
Set wb = wApp.workbooks.Open("E:\Truyen\Book.xlsm", ReadOnly:=True)
Msgbox (wApp.Run ("Hello", "GPE"))
End Sub

Mình thấy nó báo lỗi ở Run nhưng mình không biết phải làm sao để gọi Function của Excel trên. Mình phải làm sao đây? Hay là mình phải viết lại toàn bộ code trên Excel vào Word. Quả thật chúng rất nhiều nên mình không thể trong vài ngày mà có thể chuyển hết được các hàm qua Word để thay đổi vị trí đường dẫn được. Mong các bạn giúp mình với. huhu

 

[viehoai]

ví dụ trên file Book.xlsm>Module1>hello()

Function Hello(str as String)
Hello = "Xin chao " & str
End Function

trên Word1.docm>Module1>Test()

Sub Test()
Dim wApp As Object, wb As Object
Set wApp = CreateObject("Excel.Application")
Set wb = wApp.workbooks.Open("E:\Truyen\Book.xlsm", ReadOnly:=True)
Msgbox (wApp.Run ("Hello", "GPE"))
End Sub

Mình thấy nó báo lỗi ở Run nhưng mình không biết phải làm sao để gọi Function của Excel trên. Mình phải làm sao đây? Hay là mình phải viết lại toàn bộ code trên Excel vào Word. Quả thật chúng rất nhiều nên mình không thể trong vài ngày mà có thể chuyển hết được các hàm qua Word để thay đổi vị trí đường dẫn được. Mong các bạn giúp mình với. huhu

Mình test trên excel 2003 chạy bình thường bạn a

 

[sadboy309]

Mình chạy trên Office 2013 bạn ơi. Nó chỉ chạy được với Public Sub thui, chứ function thì nó không hoạt động bạn à!?

 

[ndu96081631]

Mình chạy trên Office 2013 bạn ơi. Nó chỉ chạy được với Public Sub thui, chứ function thì nó không hoạt động bạn à!?

Sửa MsgBox thành vầy xem:

MsgBox (wApp.Run("[COLOR=#ff0000]Book.xlsm![/COLOR]Hello", "GPE"))