Xin giúp về thẻ nhân sự bằng Excel không chạy được! (1 người xem)

[MQ64191]

Không hiểu sao sai chổ nào mà file này có máy chạy được bình thường và có máy lại không chạy báo lỗi. Mong được các bạn xem và giúp đỡ khắc phục. Mình xin cảm ơn!

http://www.mediafire.com/view/r6e96uufev14v24/THE_NHAN_SU.xls

 

[sealand]

Bạn phải cho biết lỗi như thế nào để khắc phục chứ. Nói chung, form của bạn chưa bẫy lỗi nên còn dính chưởng nhiều.

 

[jack nt]

thay khai báo như trong file của bạn

Private Declare Function URLDownloadToFile Lib "urlmon" _
  Alias "URLDownloadToFileA" (ByVal pCaller As Long, _
  ByVal szURL As String, ByVal szFileName As String, _
  ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

bằng

#If VBA7 Then
    Private Declare PtrSafe Function URLDownloadToFile Lib "urlmon" Alias _
    "URLDownloadToFileA" (ByVal pCaller As LongPtr, _
    ByVal szURL As String, ByVal szFileName As String, _
    ByVal dwReserved As Long, ByVal lpfnCB As LongPtr) As LongPtr
#Else
    Private Declare Function URLDownloadToFile Lib "urlmon" Alias _
    "URLDownloadToFileA" (ByVal pCaller As Long, _
    ByVal szURL As String, ByVal szFileName As String, _
    ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
#End If

P/S: Nhiều hàm API phải khai báo lại mới chạy được trên máy 64bits

 

[MQ64191]

Sao mình thay vào thì nó hiện màu đỏ như thế này:
#If VBA7 Then
Private Declare PtrSafe Function URLDownloadToFile Lib "urlmon" Alias _
"URLDownloadToFileA" (ByVal pCaller As LongPtr, _
ByVal szURL As String, ByVal szFileName As String, _
ByVal dwReserved As Long, ByVal lpfnCB As LongPtr) As LongPtr
#Else
Private Declare Function URLDownloadToFile Lib "urlmon" Alias _
"URLDownloadToFileA" (ByVal pCaller As Long, _
ByVal szURL As String, ByVal szFileName As String, _
ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
#End If

Và khi chạy máy khác vẫn báo lỗi đoạn Code này (lỗi ngay chữ màu đỏ:

Private Sub hovaten_Change()
On Error Resume Next
Dim rFind As Range
Dim Url As String, PicName As String
Set rFind = NHANSU.Range("D5200").Find(hovaten.Text, , xlValues, xlWhole)
If Not rFind Is Nothing Then
Url = rFind.Offset(, 54).Value
PicName = Mid$(Url, InStrRev(Url, "/") + 1)
Call URLDownloadToFile(0, Url, "C:\Windows\Temp\" & PicName, 0, 0)
Image3.Picture = LoadPicture()
Image3.Picture = LoadPicture("C:\Windows\Temp\" & PicName)
End If
End Sub

Mình chẳng biết xử lý tại sao lại vậy? Mong được khắc phục, xin cảm ơn!

 

[MQ64191]

Bạn phải cho biết lỗi như thế nào để khắc phục chứ. Nói chung, form của bạn chưa bẫy lỗi nên còn dính chưởng nhiều.

Mong được bạn hướng dẫn thêm, xin cảm ơn bạn!

 

[jack nt]

Sao mình thay vào thì nó hiện màu đỏ như thế này:
#If VBA7 Then
Private Declare PtrSafe Function URLDownloadToFile Lib "urlmon" Alias _
"URLDownloadToFileA" (ByVal pCaller As LongPtr, _
ByVal szURL As String, ByVal szFileName As String, _
ByVal dwReserved As Long, ByVal lpfnCB As LongPtr) As LongPtr
#Else
Private Declare Function URLDownloadToFile Lib "urlmon" Alias _
"URLDownloadToFileA" (ByVal pCaller As Long, _
ByVal szURL As String, ByVal szFileName As String, _
ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
#End If

Mình chẳng biết xử lý tại sao lại vậy? Mong được khắc phục, xin cảm ơn!

tui vẫn khai báo vậy không sao (với một vài hàm khác). để kiểm tra kỹ lại.

 

[MQ64191]

Một tuần trôi qua, có chuyên gia nào phát hiện ra lỗi gì không? Mong được hướng dẫn khắc phục! Xin chân thành cảm ơn các bạn nhiều.

 

[doveandrose]

Một tuần trôi qua, có chuyên gia nào phát hiện ra lỗi gì không? Mong được hướng dẫn khắc phục! Xin chân thành cảm ơn các bạn nhiều.

lỗi từ khâu đọc thư viện

bây giờ mở cửa số VBA lên vào Tool -> reference
nhìn thấy cái missing lib -> bỏ check đi

hoặc là tìm cái thư viện MSCAL.ocx trên mạng tải về bỏ vào đúng vị trí mà nó yêu cầu

cuối cùng

 

[MQ64191]

Cho mình hỏi thêm, mình làm thêm 1 nút Print nhưng in ra nó không tự động tóm gọn thành trang A4. Mà đứt khúc dữ liệu hết, các bạn chỉ dẫn mình thêm được không, xin chân thành cảm ơn nhiều!