Excel Forum

Posted: **Sun Feb 09, 2020 12:06 am**

ผมต้องการ 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

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

Posted: **Sun Feb 09, 2020 7:36 am**

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

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

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

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

Posted: **Sun Feb 09, 2020 10:23 am**

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

Excel Forum

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

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

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

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