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.
[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!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