Lỗi khi copy file bằng VBA

Liên hệ QC

trunghtpco

Thành viên chính thức
Tham gia
24/1/08
Bài viết
68
Được thích
23
Mình có viết 1 sub dùng copy file từ nguồn sang thư mục đích và gọi chạy từ buttton trên form, nhưng cứ nhận được lỗi ByRef argument Type Mismatch. Mình đã xem kỹ nhưng không thấy lỗi kiểu dữ liệu chỗ nào, mọi người xem thử giúp mình với.
 

File đính kèm

Mình có viết 1 sub dùng copy file từ nguồn sang thư mục đích và gọi chạy từ buttton trên form, nhưng cứ nhận được lỗi ByRef argument Type Mismatch. Mình đã xem kỹ nhưng không thấy lỗi kiểu dữ liệu chỗ nào, mọi người xem thử giúp mình với.

Bạn thử chỉnh lại như sau nhé

Mã:
[COLOR=Green]'Da khai bao la File thi sao set no la file1[/COLOR]
Private Sub CommandButton1_Click()
    Dim file, path As String
    file = "C:\file1.xls" [COLOR=Green]' Ban chac rang ten file Excel file1.xls do no co nam trong thu muc la C:\file1.xls ?[/COLOR], [COLOR=Green]Sua lai file1 thanh file[/COLOR]
    path = "D:\DATA\" [COLOR=Green]' Them dau \ vao sau ten folder[/COLOR]
    Call CopyFile(file, path) [COLOR=Green]' Sua lai file1 thanh file[/COLOR]
End Sub
 
Upvote 0
Bạn thử chỉnh lại như sau nhé

Mã:
[COLOR=Green]'Da khai bao la File thi sao set no la file1[/COLOR]
Private Sub CommandButton1_Click()
    Dim file, path As String
    file = "C:\file1.xls" [COLOR=Green]' Ban chac rang ten file Excel file1.xls do no co nam trong thu muc la C:\file1.xls ?[/COLOR], [COLOR=Green]Sua lai file1 thanh file[/COLOR]
    path = "D:\DATA\" [COLOR=Green]' Them dau \ vao sau ten folder[/COLOR]
    Call CopyFile(file, path) [COLOR=Green]' Sua lai file1 thanh file[/COLOR]
End Sub
Vẫn lỗi như vậy bác Domfootwear ạ, mọi người xem giúp xem!
Thân và chờ.
 
Upvote 0
Web KT

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

Back
Top Bottom