วิธีแปลงสเปรดชีต Excel เป็น CSV โดยใช้มาโคร

ผู้เขียน: Mark Sanchez
วันที่สร้าง: 6 มกราคม 2021
วันที่อัปเดต: 19 พฤษภาคม 2024
Anonim
แปลงไฟล์ Excel เป็น CSV  วิธีการแปลงไฟล์ Excel เป็น CSV แบบรวดเร็ว
วิดีโอ: แปลงไฟล์ Excel เป็น CSV วิธีการแปลงไฟล์ Excel เป็น CSV แบบรวดเร็ว

เนื้อหา

ใน Microsoft Excel คุณสามารถแปลงเอกสารเป็น CSV ได้อย่างง่ายดายโดยเลือกประเภทไฟล์ที่ต้องการในกล่องโต้ตอบ "บันทึกเป็น" ด้วยวิธีนี้เฉพาะแผ่นงานที่ใช้งานเท่านั้นที่จะถูกแปลง นี่เป็นเพราะไฟล์ CSV สามารถมีเพียงหนึ่งแผ่น ในการแปลงสเปรดชีต CSV หลายรายการคุณต้องส่งออกทีละรายการและสิ่งนี้เกี่ยวข้องกับการเปิดใช้งานแต่ละรายการย้ายไปยังเอกสารเปล่าแล้วบันทึกเป็น CSV เพื่อให้งานนี้ง่ายขึ้นและสะดวกยิ่งขึ้นให้ใช้มาโคร


คำสั่ง

การแปลงสเปรดชีตเป็น CSV จะใช้สูตรและสไตล์ของคุณ (Stockbyte / Stockbyte รูปภาพ / Getty)
  1. เริ่ม Microsoft Excel และเปิดเอกสารของคุณ

  2. กด "Alt + F8" เพื่อเปิดหน้าต่างมาโคร พิมพ์ "ExportSheetsToCSV" ในตัวเลือกชื่อสำหรับมาโครแล้วคลิก "สร้าง"

  3. พิมพ์รหัสต่อไปนี้ในเครื่องมือแก้ไข VBA มาโครนี้จะสร้างไฟล์ CSV ในโฟลเดอร์เดียวกับเอกสารของคุณโดยใช้ชื่อเวิร์กชีทสำหรับไฟล์

    Sub ExportSheetsToCSV ()

    Dim wSheet As Worksheet Dim csvFile As String

    สำหรับแต่ละ wSheet ในเวิร์กชีตโดยมีข้อผิดพลาดให้ทำต่อไป wSheet.Copy csvFile = CurDir & "" & wSheet.Name & ".csv" ชื่อไฟล์ ActiveWorkbook.SaveAs: = csvFile, _ FileFormat: = xlCSV, CreateBackup: = False ActiveWorkbook True ActiveWorkbook ปิดหน้าถัดไป

    ส่วนท้าย

  4. ปิดตัวแก้ไข VBA และกลับสู่เอกสารของคุณ


  5. กด "Alt + F8" อีกครั้งเพื่อเปิดหน้าต่างมาโคร เลือก "ExportSheetsToCSV" จากรายการจากนั้นคลิก "Run" รอจนกระทั่ง Excel แปลงสเปรดชีตเสร็จสิ้น

เคล็ดลับ

  • หากคุณต้องการบันทึกไฟล์ CSV ไปยังโฟลเดอร์อื่นให้แทนที่ "CurDir" ในบรรทัดที่ 9 ด้วยพา ธ ของโฟลเดอร์ที่คุณต้องการ คุณยังสามารถย้ายเอกสารของคุณไปยังโฟลเดอร์ที่คุณเลือกก่อนเรียกใช้แมโคร

การเตือน

  • โดยค่าเริ่มต้นแมโครถูกปิดใช้งานใน Microsoft Excel หากต้องการเปิดใช้งานให้คลิกปุ่ม "Microsoft Office" ไปที่ "ตัวเลือกของ Excel" จากนั้นตรวจสอบให้แน่ใจว่าได้เลือกตัวเลือก "ดูแท็บนักพัฒนาในตัวเลือก" ในบางกรณีคุณจะต้องเริ่ม Excel ใหม่เพื่อให้การเปลี่ยนแปลงมีผล