Tùy chọn
Mỗi ngày copy 1 file khác tên, khác nội dung vào 1 đích
- Mỗi ngày copy 1 file khác tên, khác nội dung vào 1 đích
-
Mỗi ngày copy 1 file khác tên, khác nội dung vào 1 đích
xuatquanvosau > 06-04-17, 03:45 PM
Chào các bạn. Tôi có tạo 1 button với code tại event click on như sau:
Mã:Private Sub Command41_Click()
FileCopy "C:\Users\Administrator\Desktop\sln 06-T04-17.xlsx", "F:\New Folder\sln 06-T04-17.xlsx"
End Sub
Như vậy hôm nay là ngày 06 tháng 04 năm 2017 thì nếu tôi nhấn vào nút đó, nó sẽ copy file sln 06-T04-17.xlsx vào đích F cho tôi. Vậy là được. Nhưng chưa ổn
Mong các bạn chỉ cách sửa code thế nào để sang ngày 07 tháng 04 năm 2017, nếu ta nhấn vào nút ấy, nó tự hiểu và tự động copy file sln 07-T04-17.xlsx vào đích?
Mong các bạn giúp đỡ, chân thành cám ơn -
RE: Mỗi ngày copy 1 file khác tên, khác nội dung vào 1 đích
hieuvn > 06-04-17, 04:31 PM
(06-04-17, 03:45 PM)xuatquanvosau Đã viết: Chào các bạn. Tôi có tạo 1 button với code tại event click on như sau:
Mã:Private Sub Command41_Click()
FileCopy "C:\Users\Administrator\Desktop\sln 06-T04-17.xlsx", "F:\New Folder\sln 06-T04-17.xlsx"
End Sub
Như vậy hôm nay là ngày 06 tháng 04 năm 2017 thì nếu tôi nhấn vào nút đó, nó sẽ copy file sln 06-T04-17.xlsx vào đích F cho tôi. Vậy là được. Nhưng chưa ổn
Mong các bạn chỉ cách sửa code thế nào để sang ngày 07 tháng 04 năm 2017, nếu ta nhấn vào nút ấy, nó tự hiểu và tự động copy file sln 07-T04-17.xlsx vào đích?
Mong các bạn giúp đỡ, chân thành cám ơn
ban sửa lại chút xíu thôi là ok:
dim tenfile as string
tenfile="sln" & " " & Format(Now(), "dd-Tmm-yy") & ".xlsx"
Mã:FileCopy "C:\Users\Administrator\Desktop\& tenfile, "F:\New Folder\& tenfile
mình chưa test, bạn thử xem có được không nhé
Have fun -
RE: Mỗi ngày copy 1 file khác tên, khác nội dung vào 1 đích
xuatquanvosau > 06-04-17, 08:36 PM
Cám ơn bạn đã ra tay. Tuy nhiên khi code thế này thì có lỗi cú pháp:
Mã:Private Sub Command41_Click()
Dim tenfile As String
tenfile = "sln" & " " & Format(Now(), "dd-Tmm-yy") & ".xlsx"
FileCopy "C:\Users\Administrator\Desktop\& tenfile, "F:\New Folder\& tenfile
End Sub
Tôi sửa lại như vầy thì xảy ra lỗi Run-time error (53): file not found mặc dù chắc chắn là có file đang nằm ở đó
Mã:Private Sub Command41_Click()
Dim tenfile As String
tenfile = "sln" & " " & Format(Now(), "dd-Tmm-yy") & ".xlsx"
FileCopy "C:\Users\Administrator\Desktop\& tenfile", "F:\New Folder\& tenfile"
End Sub
Không rõ vấn đề có phải chỗ hàm format hay không hay ở chỗ nào đó, mong các bạn tiếp tục giúp đỡ
. Thành thật biết ơn và xin kính chúc các Vua Hùng một ngày giỗ thật nhiều ơn phước với những đứa cháu ngoan hiền giỏi lập trình access 2016 và sẵn sàng ra tay hỗ trợ đồng bào hơn mức quy định. Xin cám ơn
-
RE: Mỗi ngày copy 1 file khác tên, khác nội dung vào 1 đích
hieuvn > 06-04-17, 09:37 PM
Ẹc, đang cài lại win không có Office để test
Lỗi này là lỗi cú pháp, lâu ngày quá quên bài hết, bạn thử chỉnh lại như sau:
FileCopy "C:\Users\Administrator\Desktop\" & tenfile, "F:\New Folder\" & tenfile
Have fun -
RE: Mỗi ngày copy 1 file khác tên, khác nội dung vào 1 đích
xuatquanvosau > 07-04-17, 04:52 PM
Cảm giác nhấn nút và nó làm công việc trong chớp mắt, thật hào hứng! Vô tình cú pháp ở trên cũng giúp giải quyết luôn 1 nút khác có nhiệm vụ mỗi ngày save as 1 file gốc thành 1 file ngày mới để chuẩn bị cho 1 phiên làm việc lấy thông số ngày mai. Vậy mà biết bao lâu nay người ta cứ làm cái việc thủ công nhàm chán, thậm chí nhiều cơ quan khi cài office họ còn cắt luôn không cài access
Một lần nữa xin trân trọng cảm ơn hieuvn vị hiệp sĩ tài ba xứ Mancha ! -
RE: Mỗi ngày copy 1 file khác tên, khác nội dung vào 1 đích
hieuvn > 07-04-17, 10:05 PM
Rất vui khi đoạn code đó có ích cho công việc của bạn. Công ty mình cũng không mua MS Access trong gói Office, mình buộc phải chuyen các project sang .Net