Đình Phán
Thành viên thường trực
- Tham gia
- 23/11/10
- Bài viết
- 232
- Được thích
- 68
- Giới tính
- Nam
- Nghề nghiệp
- kt
Chào các ACE GPE
Em có file dữ liệu cần copy sang file dạng *txt
Nếu chuyển bằng cách SAVE AS sheets sang đuôi *txt thì em làm được, nhưng để kích hoạt NotePad và dán dữ liệu sang sau đó đóng file NotePad và lưu tên thì em không có cách nào xử lý được.
Khi chuyển từ Sheet sang file mới rồi lưu dạng *txt thì import vào phần mềm báo lỗi số cột, vì vậy bắt buộc phải copy sang Notepad. Về việc này em có sưu tầm trên mạng 1 đoạn code, nhưng để lưu tên file *txt và đóng lại thì vẫn không đáp ứng được.
Mong các ACE giúp đỡ.
Em cảm ơn!
Em có file dữ liệu cần copy sang file dạng *txt
Nếu chuyển bằng cách SAVE AS sheets sang đuôi *txt thì em làm được, nhưng để kích hoạt NotePad và dán dữ liệu sang sau đó đóng file NotePad và lưu tên thì em không có cách nào xử lý được.
Khi chuyển từ Sheet sang file mới rồi lưu dạng *txt thì import vào phần mềm báo lỗi số cột, vì vậy bắt buộc phải copy sang Notepad. Về việc này em có sưu tầm trên mạng 1 đoạn code, nhưng để lưu tên file *txt và đóng lại thì vẫn không đáp ứng được.
Mong các ACE giúp đỡ.
Em cảm ơn!
PHP:
Sub ExportToNotePad()
Dim WB As Workbook
Dim FileName As String
Dim WS As Worksheet
Dim LR As Integer
Set WB = ThisWorkbook
FileName = WB.Sheets("Ventas").Range("A2").Value
Application.ScreenUpdating = False
WB.Sheets("Ventas").Activate
Range("A12").Select
LR = WB.Sheets("Ventas").Range(Selection, Selection.End(xlDown)).Count + 1
WB.Sheets("Sheet1").Activate
WB.Sheets("Sheet1").Range("A3:AD1048576").ClearContents
WB.Sheets("Sheet1").Range("A2:AD2").Select
Selection.Copy
WB.Sheets("Sheet1").Range(Cells(3, 1), Cells(LR, 30)).PasteSpecial
For Each WS In WB.Worksheets
If WS.Name = "Sheet1" Then
WS.Activate
Range([AD2], [AD2].End(xlDown)).Select
Selection.Copy
Shell "notepad.exe", vbNormalFocus
With Application
SendKeys "^V"
SendKeys "^S"
SendKeys "{ENTER}"
SendKeys "LE20543254798" & FileName
SendKeys "%fx"
VBA.AppActivate .Caption
End With
'With NWB
'.Sheets(1).Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'.Application.CutCopyMode = False
'.SaveAs Filename:="C:\Users\phannd3\Desktop\LE20543254798.txt", _
FileFormat:=xlUnicodeText, CreateBackup:=False
'.Close savechanges:=True
'End With
End If
Next WS
WB.Sheets("Ventas").Activate
Application.ScreenUpdating = True
MsgBox "Export Successful!"
End Sub