การ Covert Excel ไฟล์ให้อยู่ในรูปแบบ CSV

[niwat2811]

รบกวนสอบถามท่านผู้รู้เรื่องการ Covert Excel ไฟล์ให้อยู่ในรูปแบบ CSV ตามคำสั่งด้านล่าง
แต่ผลลัพธ์ที่ออกมาไม่ถูกต้องเช่น CID ต้นทางเป็น 700000301062 หลังจากรันมาโครแล้ว
CID ผลลัพธ์ออกมาเป็น 700000000000 ไม่ทราบว่าควรแก้ไข Code อย่างไรดีครับ
Code อยู่ที่ Module1

Code: Select all

Sub saveSheetToCSV()

    Dim myCSVFileName As String
    Dim tempWB As Workbook
    Dim lr As Long

    Application.DisplayAlerts = False
    On Error GoTo err

    myCSVFileName = ThisWorkbook.Path & "\" & "CSV-Exported-File-" & ".csv"

    ThisWorkbook.Sheets("Sheet1").Activate
    ActiveSheet.Copy
    Set tempWB = ActiveWorkbook

    With tempWB
        .SaveAs Filename:=myCSVFileName, FileFormat:=xlCSV, CreateBackup:=False
        .Close
    End With
err:
    Application.DisplayAlerts = True
End Sub

[snasui]

ตัวอย่างการปรับ Code ครับ

Code: Select all

'Other code
With tempWB
    With Sheets("Sheet1")
        .Range("b2", .Range("b" & .Rows.Count).End(xlUp)).NumberFormat = "0"
    End With
    .SaveAs Filename:=myCSVFileName, FileFormat:=xlCSV, CreateBackup:=False
    .Close
End With
'Other code

[niwat2811]

Code ที่ให้มาสามารถใช้ได้ตรงตามต้องการครับ ขอบคุณมากครับ