Xin hỏi cách copy dữ liệu từ Excel sang Notepad (1 người xem)

[hiepnh1985]

Mình muốn thực hiện các bước công việc sau, sử dụng VBA:
1. Copy dữ liệu từ ô A1 đến A10 (giá trị 1-10)
2. Mở Notepad lên
3. Paste dữ liệu vừa copy trong excel (ô A1 đến A10) và trong Notepad
4. Save file này lại và đặt tên là 1.txt ngoài desktop

Trong 4 bước trên thì đến bước thứ 4 mình không làm được. Đây là file đính kèm. Mọi người ai biết thì xem giúp mình với. Mình xin chân thành cảm ơn!

 

[doveandrose]

save xong có tắt file 1.txt không ta ?

 

[hiepnh1985]

Dạ có tắt đi chứ ạ. Tức là sau khi save xong thì tắt file 1.txt đi ạ.

 

[doveandrose]

Sub hello()
Application.ScreenUpdating = False
Dim wb As Workbook, filename As String
filename = "C:\Users\FPT\Desktop\1.txt"
'filename = ThisWorkbook.Path & "\1.txt"
Sheet1.Range("A1:A10").Copy
Set wb = Workbooks.Add
wb.Worksheets(1).Cells(1, 1).PasteSpecial xlPasteValues
Application.CutCopyMode = False
Application.DisplayAlerts = False
'Kill filename
wb.SaveAs filename, xlTextWindows
wb.Close SaveChanges:=True
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

 

[Kiều Mạnh]

Mình muốn thực hiện các bước công việc sau, sử dụng VBA:
1. Copy dữ liệu từ ô A1 đến A10 (giá trị 1-10)
2. Mở Notepad lên
3. Paste dữ liệu vừa copy trong excel (ô A1 đến A10) và trong Notepad
4. Save file này lại và đặt tên là 1.txt ngoài desktop

Trong 4 bước trên thì đến bước thứ 4 mình không làm được. Đây là file đính kèm. Mọi người ai biết thì xem giúp mình với. Mình xin chân thành cảm ơn!

Bạn tìm hiểu FileSystemObject link chữ ký của mình đó mần được tuốt

 

[hiepnh1985]

Xin cảm ơn mọi người nhiều. Mình sẽ tìm hiểu luôn

 

[kuldokk]

Mình muốn thực hiện các bước công việc sau, sử dụng VBA:
1. Copy dữ liệu từ ô A1 đến A10 (giá trị 1-10)
2. Mở Notepad lên
3. Paste dữ liệu vừa copy trong excel (ô A1 đến A10) và trong Notepad
4. Save file này lại và đặt tên là 1.txt ngoài desktop

Trong 4 bước trên thì đến bước thứ 4 mình không làm được. Đây là file đính kèm. Mọi người ai biết thì xem giúp mình với. Mình xin chân thành cảm ơn!

Không biết anh có phải làm nhiều file như vậy không hay chỉ phải lưu 1 file này ra text file thôi.
Cách đơn giản nhất anh có thể lưu dữ liệu từ ô A1 đến A10 dưới dạng file CSV hoặc TSV đều mở được bằng Notepad ...

 

[hiepnh1985]

Sub hello()
Application.ScreenUpdating = False
Dim wb As Workbook, filename As String
filename = "C:\Users\FPT\Desktop\1.txt"
'filename = ThisWorkbook.Path & "\1.txt"
Sheet1.Range("A1:A10").Copy
Set wb = Workbooks.Add
wb.Worksheets(1).Cells(1, 1).PasteSpecial xlPasteValues
Application.CutCopyMode = False
Application.DisplayAlerts = False
'Kill filename
wb.SaveAs filename, xlTextWindows
wb.Close SaveChanges:=True
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

Cảm ơn bạn nhiều nhé. Mình làm được rồi

 

[hiepnh1985]

Không biết anh có phải làm nhiều file như vậy không hay chỉ phải lưu 1 file này ra text file thôi.
Cách đơn giản nhất anh có thể lưu dữ liệu từ ô A1 đến A10 dưới dạng file CSV hoặc TSV đều mở được bằng Notepad ...

Mình phải chia nhỏ một danh sách thành nhiều danh sách nhỏ bạn nhé. Cảm ơn bạn nhiều

 

[kuldokk]

Mình phải chia nhỏ một danh sách thành nhiều danh sách nhỏ bạn nhé. Cảm ơn bạn nhiều

Không biết bạn đã giải quyết được phần "chia nhỏ danh sách" chưa. Nếu chưa hoặc bạn có thể bỏ chút thời gian để xem qua addin này nhé . Vì nếu bạn đã hỏi thì hẳn sẽ phải dùng đến nhiều và addin này cũng có thể sửa lại để ghi dữ liệu ra notepad cho bạn

https://www.youtube.com/watch?v=55wNfRAFqXE