ขอ Code Save Notepad ด้วยครับ

[chutchas]

รบกวนตรวจสอบ Code แล้วขอ Code Save Notepad ให้ด้วยครับ
1. Copy ข้อมูลจาก Excel --> ทำได้แล้วครับ
2. เปิด Notepad --> ทำได้แล้วครับ
3. วางค่าที่ Copy จาก Excel ลง Notepad --> ทำได้แล้วครับ
4. Save File Notepad ตั้งชื่อว่า Order.txt --> ยังทำไม่ได้ครับ *****

Code: Select all

Public Sub CreateText()
Dim n As Integer
Dim NoteP As Double
n = Application.WorksheetFunction.CountA(Range("A5:A1000")) + 4
Range(Cells(5, 1), Cells(n, 29)).Copy
NoteP = Shell("Notepad.exe", vbNormalFocus)
AppActivate NoteP
SendKeys "^v"
'Code Save notepad
End Sub

[DhitiBank]

ลองปรับเป็นแบบนี้ดูครับ

Code: Select all

Public Sub CreateText()
    Dim n As Integer
    Dim NoteP As Double
    Dim wb As Workbook
    
    Workbooks.Add
    Set wb = ActiveWorkbook
    ThisWorkbook.Activate
    n = Application.WorksheetFunction.CountA(Range("A5:A1000")) + 4
    Range(Cells(5, 1), Cells(n, 29)).Copy _
        wb.Sheets(1).Range("a1")
    
    wb.SaveAs Filename:=ThisWorkbook.Path & "\" & Format(Now, "yymmdd-hhmm") _
        & ThisWorkbook.Name & "_" & ActiveSheet.Name & ".txt", _
        FileFormat:=xlText, CreateBackup:=False

    'NoteP = Shell("Notepad.exe", vbNormalFocus)
    'AppActivate NoteP
    'SendKeys "^v"
End Sub

text ไฟล์จะไปอยู่ในโฟลเดอร์เดียวกันกับไฟล์ต้นฉบับครับ

[chutchas]

ขอบคุณมากครับพี่

รบกวนสอบถามเพิ่มเติมอีกนิดครับ
1. หากผมต้องการกำหนดชื่อไฟล์ .txt ที่เซฟไป ต้องแก้ code ตรงไหนครับ
2. กำหนดสถานที่เซฟ ต้องแก้ code ตรงไหนครับ

ขอบคุณครับ

[DhitiBank]

Code: Select all

wb.SaveAs Filename:=ThisWorkbook.Path & "\" & Format(Now, "yymmdd-hhmm") _
        & ThisWorkbook.Name & "_" & ActiveSheet.Name & ".txt", _
        FileFormat:=xlText, CreateBackup:=False

หลังคำสั่ง Filename:= คือเริ่มจาก Thisworkbook.Path ไปจนถึง ".txt" นั่นเป็นส่วนที่ใช้ตั้งชื่อไฟล์ครับ ต้องให้มีรูปแบบเป็นข้อความ ลองดูเพิ่มเติมจากลิ้งค์ด้านล่างครับ

https://msdn.microsoft.com/en-us/vba/ex ... thod-excel
https://stackoverflow.com/questions/171 ... th-datesta
https://analysistabs.com/excel-vba/save ... ic-folder/

[chutchas]

ขอบคุณครับ สามารถทำได้แล้วครับ ^^