ต้องการให้ข้อมูล Number formatที่แสดงใน text ไฟล์ เหมือน excel ไฟล์หลังจาก Export แล้ว

[apinomon]

ผมต้องการ Export excel ไฟล์ชื่อ DATA.xlsm ให้เป็น text ไฟล์ชื่อ datatext.txt โดยบันทึกด้วยโค้ด VBA ไว้ที่ไดร์ฟ D
แต่ปัญหาคือหลังจาก Export ออกมาแล้ว number format ไม่เหมือนกับ excel ไฟล์ เช่น ที่
เซลล์ A2 แสดงเป็น 01 แต่ในtext ไฟล์ เป็น 1
เซลล์ B1 แสดงเป็น 09 แต่ในtext ไฟล์ เป็น 9
เซลล์ B2 แสดงเป็น 23.00 แต่ในtext ไฟล์ เป็น 23
อันนี้คือโค้ดที่ใช้ ครับ

Code: Select all

    Dim filename As String, lineText As String, mypath As String
    Dim myrng As Range, i, j
    
    mypath = "D:\"
    filename = mypath & "\datatext.txt"
    
    Open filename For Output As #1
    
    Set myrng = Range("data")
    
    For i = 1 To myrng.Rows.Count
        For j = 1 To myrng.Columns.Count
            lineText = IIf(j = 1, "", lineText & "|") & myrng.Cells(i, j)
        Next j
        Print #1, lineText
    Next i
    
    Close #1

รบกวนชี้แนะด้วยครับ

[snasui]

ค่าที่แสดงให้เห็นด้วยตาเป็น 01 หรือ 09 หรือ 23.00 คือค่าที่ถูกจัดรูปแบบมาแล้วครับ

ค่าจริง ๆ คือ 1 คือ 9 คือ 23 วิธีการสังเกตอย่างง่ายคือคลิกในเซลล์แล้วดูที่ Formula bar

ถ้าต้องการจะให้แสดงตามรูปแบบที่เห็น ก็ต้องจัดรูปแบบเสียก่อนที่จะส่งไปยัง Text File ยกตัวอย่างเช่น

format(cells(1,1).value,"00") เพื่อให้แสดง 1 เป็น 01 และ 9 เป็น 09 เช่นนี้เป็นต้น หากแต่ละคอลัมน์มีการจัดรูปแบบแตกต่างกันก็ต้องทำลักษณะนี้ทั้งหมดโดยในส่วนของ "00" ก็จะเปลี่ยนไปเป็นรูปแบบใด ๆ ที่ต้องการ ซึ่งอาจจะต้องใช้ตัวแปรมาช่วยเพื่อให้กระชับครับ

[apinomon]

ขอบคุณครับ
เบื้องต้นแก้ปัญหาโดยใช้วิธีกำหนดรูปแบบเป็น TEXT(เซลล์, "#,##0.00") แล้วคัดลอกไปวางที่ชีทอื่นแล้วค่อย Export ด้วยโค้ด VBA ไปก่อนครับ
ยังไงจะศึกษาเพิ่มเติมการใช้ format cells และกำหนดตัวแปรตามที่แนะนำนะครับ
ขอบคุณสำหรับคำแนะนำนะครับ