Nhờ sửa lỗi khi save file bằng VBA (1 người xem)

[babyheomoi]

Em có seach và tự làm 1 đoạn code nhằm mục đích save as thành file text để mail merge!
Đoạn code vẫn hoạt động, nhưng có 1 vấn đề đó là, ở trên file excel thì không bị lỗi ngày tháng, tuy nhiên,khi chạy code save as thì file text lại bị lỗi ngày tháng (cụ thể là nó định dạng theo kỉu mm/dd/yyy, trong khi file excel la dd/mm/yyy)
Em gửi mọi người đoạn code và file em làm bị lổi!
Mọi người giúp em cách chỉnh sửa với nha!
Thanks
Đoạn code

On Error GoTo ErrHandler
Savetext = "C:\Heo\DATA HEO\Heo\data\bidv\PGD BTX\SOURCE\SOURCE_BTX - chung cu.txt"
If Dir(Savetext) <> "" Then
ans = MsgBox("File " & Savetext & " da ton tai, Save lan nua?", vbYesNo + vbExclamation)
If ans <> vbYes Then
Exit Sub
Else
Kill Savetext
End If
End If
Sheets("Chung Cu").Copy
ActiveWorkbook.SaveAs Savetext, xlUnicodeText
If ActiveWorkbook.Name <> ThisWorkbook.Name Then
ActiveWorkbook.Close False
End If
My_exit:
Exit Sub
ErrHandler:
MsgBox Err.Description
Resume My_exit
End Sub

Rất mong được sự giúp đở của mọi người!

 

[ndu96081631]

Em có seach và tự làm 1 đoạn code nhằm mục đích save as thành file text để mail merge!
Đoạn code vẫn hoạt động, nhưng có 1 vấn đề đó là, ở trên file excel thì không bị lỗi ngày tháng, tuy nhiên,khi chạy code save as thì file text lại bị lỗi ngày tháng (cụ thể là nó định dạng theo kỉu mm/dd/yyy, trong khi file excel la dd/mm/yyy)
Em gửi mọi người đoạn code và file em làm bị lổi!
Mọi người giúp em cách chỉnh sửa với nha!
Thanks
Đoạn code

Rất mong được sự giúp đở của mọi người!

Bạn thử format các cột ngày tháng (cột D và F) thành định dạng "dd/mm/yyyy" hoặc "dd-MMM-yyyy" rồi chạy lại code xem thế nào

 

[babyheomoi]

Bạn thử format các cột ngày tháng (cột D và F) thành định dạng "dd/mm/yyyy" hoặc "dd-MMM-yyyy" rồi chạy lại code xem thế nào

Code chạy ok rồi bác!
Dữ liệu giờ thì lại đúng!
Tuy nhiên em vẫn thắc mắc là nguyên nhân ra sao???
Vì e bấm save as thủ công thì file text vẫn đúng!
Cám ơn bác ndu nhìu!