cho em hỏi cách save mỗi sheet thành 1 file txt

[angelbach]

cho em hỏi cách save mỗi sheet thành 1 file txt
em cảm ơn ạ

 

[ndu96081631]

cho em hỏi cách save mỗi sheet thành 1 file txt
em cảm ơn ạ

Dùng chức năng Move or Copy để tạo ra 1 workbook mới. Xong, Save As workbook mới theo kiểu Unicode Text

 

[angelbach]

dạ mình có thể dùng macro hay cách nào đó tiết kiệm thời gian hơn được không ạ, vì thao tác đó mà hàng chục file thì hơi lâu ạ

 

[ndu96081631]

dạ mình có thể dùng macro hay cách nào đó tiết kiệm thời gian hơn được không ạ, vì thao tác đó mà hàng chục file thì hơi lâu ạ

Dùng VBA chắc được! Với điều kiện phải có file mới test là được hay không

 

[angelbach]

dạ em xin gửi file mẫu ạ, thực tế nó có thể nhiều sheet hơn, và không cần cho sheet 1, 2 chỉ cần cho từ sheet 3 trờ đi, xuất ra file theo định đạng txt
em có tham khảo tìm được cái này nhưng chưa xử lý được trọn vẹn ạ : ( nó chỉ mới lưu được 1 sheet đang thao tác thôi ạ )

Sub ExcelToTxt()
Dim MyPath As String
MyPath = "D:"
MyFileName = InputBox("Nhap ten file can luu:", "Export from excel to text")
ActiveSheet.Select
ActiveSheet.Copy
ActiveWorkbook.SaveAs _
Filename:=MyPath & MyFileName & ".txt", _
FileFormat:=xlUnicodeText, CreateBackup:=False
ActiveWorkbook.Close True
End Sub

 

[giaiphap]

dạ em xin gửi file mẫu ạ, thực tế nó có thể nhiều sheet hơn, và không cần cho sheet 1, 2 chỉ cần cho từ sheet 3 trờ đi, xuất ra file theo định đạng txt
em có tham khảo tìm được cái này nhưng chưa xử lý được trọn vẹn ạ : ( nó chỉ mới lưu được 1 sheet đang thao tác thôi ạ )

Sub ExcelToTxt()
Dim MyPath As String
MyPath = "D:"
MyFileName = InputBox("Nhap ten file can luu:", "Export from excel to text")
ActiveSheet.Select
ActiveSheet.Copy
ActiveWorkbook.SaveAs _
Filename:=MyPath & MyFileName & ".txt", _
FileFormat:=xlUnicodeText, CreateBackup:=False
ActiveWorkbook.Close True
End Sub

Bạn thử code này nhé

[COLOR=#0000ff][FONT=monospace][I]Sub ExcelToTxt[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]()
[/I][/FONT][/COLOR]Dim MyPath As String
MyPath = "D:\"
MyFileName = InputBox("Nhap ten file can luu:", "Export from excel to text")
[COLOR=#b22222]Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.DisplayAlerts = False[/COLOR]
For i = 1 To Sheets.Count
Sheets(i).Copy
ActiveWorkbook.SaveAs _
Filename:=MyPath & MyFileName & i & ".txt", _
FileFormat:=xlUnicodeText, CreateBackup:=False
ActiveWorkbook.Close True
Next i
[COLOR=#b22222]Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Application.DisplayAlerts = True[/COLOR]
[COLOR=#0000ff][FONT=monospace][I]End Sub [/I][/FONT][/COLOR]

 

[angelbach]

dạ em chân thành cảm ơn thầy ạ, file đã chạy được rồi thầy ơi !