Chuyển đổi từ Exel sang file .txt (1 người xem)

[duocvt]

Dear các Bro,
Mình có một dải lệnh, bao gồm scripts của nhiều phần tử (File exel)
Ví dụ:
Lệnh từ cell (1,1) đến cell (70,1) --> Cho phần tử 1
Lệnh từ Cell (81,1) đến cell (150,1) --> Cho phần tử 2
Lệnh từ Cell (161,1) đến cell (230,1) --> Cho phần tử 3
.........

Bây giờ mình muốn:
- Tách nội dung của phần tử 1 --> File1.txt
- Tách nội dung của phần tử 1 --> File2.txt
- Tách nội dung của phần tử 1 --> File3.txt

Lưu tại 1 đường dẫn nào đó trong Computer.

Đây là đoạn code mà mình đã sử dụng --> Nhưng chỉ làm được cho tất cả scripts chứ không làm được cho Scripts nhỏ trong nó.


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

Nhờ các Bro giúp với.

Thanks alot!