Xuất thành file *.csv với tên file được cho trong ô ? (1 người xem)

[Chuotdong]

Các bạn xem giúp, vì mình không biết VBA:

 

[cadafi]

Các bạn xem giúp, vì mình không biết VBA:

Đây là đoạn code để làm việc này:

Sub ExcelToCSV()
Dim MyPath As String
MyPath = "D:\"
MyFileName = ActiveSheet.Cells(1, 2)
ActiveSheet.Select
ActiveSheet.Copy
ActiveWorkbook.SaveAs _
    Filename:=MyPath & MyFileName & ".csv", _
    FileFormat:=xlCSV, CreateBackup:=False
ActiveWorkbook.Close True
End Sub

Bạn xem thêm file đính kèm. Phím nóng để chạy là Ctrl+Shift+G. File CSV sẽ được lưu vào ổ đĩa D

 

[Kiều Mạnh]

Cảm ơm bạn rất nhiều .... đúng cái mà mình đang tìm mờ cả mắt ... Lang thang lại gặp được .....cảm ơn!!!
**** nếu được bạn cho mình thêm code khi lưu nó sẽ lưu đè lên file .csv cũ dược không ???