วิธีบันทึกข้อมูลแผ่นงานเป็นไฟล์ csv โดยมี / ไม่มีเครื่องหมายคำพูดคู่?
เมื่อคุณส่งออกหรือบันทึกช่วงของข้อมูลจาก Excel ไปยังไฟล์ csv โดยปกติข้อมูล csv จะไม่อยู่รอบ ๆ ด้วยเครื่องหมายคำพูดคู่ แต่ถ้าค่าของเซลล์ของคุณถูกคั่นด้วยลูกน้ำหรือตัวแบ่งบรรทัดข้อมูล csv ที่ส่งออกจะอยู่ที่ประมาณสองเท่า คำพูด และบทความนี้ฉันจะพูดถึงวิธีบันทึกข้อมูลในแผ่นงานเป็นไฟล์ csv โดยมีหรือไม่มีเครื่องหมายคำพูดคู่ตามที่คุณต้องการ
บันทึกข้อมูลเวิร์กชีตเป็นไฟล์ csv ด้วยเครื่องหมายคำพูดคู่
บันทึกข้อมูลเวิร์กชีตเป็นไฟล์ csv โดยไม่มีเครื่องหมายอัญประกาศคู่
บันทึกข้อมูลเวิร์กชีตเป็นไฟล์ csv ด้วยเครื่องหมายคำพูดคู่
หากต้องการบันทึกข้อมูลปกติเป็นไฟล์ csv ด้วยเครื่องหมายคำพูดคู่รหัส VBA ต่อไปนี้อาจช่วยคุณได้โปรดดำเนินการดังนี้:
1. กด ALT + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง
2. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางรหัสต่อไปนี้ในไฟล์ โมดูล หน้าต่าง.
รหัส VBA: บันทึกข้อมูลแผ่นงานเป็นไฟล์ csv ด้วยเครื่องหมายคำพูดคู่:
Sub CSVFile()
'updateby Extendoffice
Dim xRg As Range
Dim xRow As Range
Dim xCell As Range
Dim xStr As String
Dim xSep As String
Dim xTxt As String
Dim xName As Variant
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xRg = Application.InputBox("Please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
xName = Application.GetSaveAsFilename("", "CSV File (*.csv), *.csv")
xSep = Application.International(xlListSeparator)
Open xName For Output As #1
For Each xRow In xRg.Rows
xStr = ""
For Each xCell In xRow.Cells
xStr = xStr & """" & xCell.Value & """" & xSep
Next
While Right(xStr, 1) = xSep
xStr = Left(xStr, Len(xStr) - 1)
Wend
Print #1, xStr
Next
Close #1
If Err = 0 Then MsgBox "The file has saved to: " & xName, vbInformation, "Kutools for Excel"
End Sub
3. จากนั้นกด F5 คีย์เพื่อเรียกใช้รหัสนี้และกล่องพร้อมต์จะปรากฏขึ้นเพื่อเตือนให้คุณเลือกช่วงข้อมูลที่คุณต้องการบันทึกเป็นไฟล์ csv ด้วยเครื่องหมายคำพูดคู่ดูภาพหน้าจอ:
4. จากนั้นคลิก OK และปุ่ม บันทึกเป็น ปรากฏหน้าต่างโปรดระบุชื่อไฟล์และตำแหน่งจากนั้นคลิก ลด ปุ่มดูภาพหน้าจอ:
5. และ a Kutools สำหรับ Excelกล่องข้อความแจ้งจะปรากฏขึ้นเพื่อเตือนให้คุณทราบว่าไฟล์ csv ใหม่ได้รับการบันทึกไว้ในตำแหน่งที่คุณระบุแล้วดูภาพหน้าจอ:
6. คลิก OK เพื่อปิดกล่องโต้ตอบและตอนนี้เมื่อคุณเปิดไฟล์ csv ใหม่ข้อมูลทั้งหมดจะถูกล้อมรอบด้วยเครื่องหมายคำพูดคู่ดังภาพหน้าจอต่อไปนี้:
บันทึกข้อมูลเวิร์กชีตเป็นไฟล์ csv โดยไม่มีเครื่องหมายอัญประกาศคู่
หากข้อมูลของคุณถูกคั่นด้วยเครื่องหมายจุลภาคเส้นแบ่งในเซลล์เมื่อคุณบันทึกข้อมูลเป็นไฟล์ csv ข้อมูลจะถูกล้อมรอบด้วยเครื่องหมายคำพูดคู่ดังที่แสดงต่อไปนี้:
หากต้องการบันทึกข้อมูลเป็นไฟล์ csv โดยไม่มีเครื่องหมายอัญประกาศคู่โปรดใช้รหัส VBA ต่อไปนี้
1. กด ALT + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง
2. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางรหัสต่อไปนี้ในไฟล์ โมดูล หน้าต่าง.
รหัส VBA: บันทึกข้อมูลแผ่นงานเป็นไฟล์ csv โดยไม่มีเครื่องหมายคำพูดคู่:
Sub Export()
'updateby Extendoffice
Dim xRg As Range
Dim xRow As Range
Dim xCell As Range
Dim xStr As String
Dim xTxt As String
Dim xName As Variant
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xRg = Application.InputBox("Please select data range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
xName = Application.GetSaveAsFilename("", "CSV File (*.csv), *.csv")
Open xName For Output As #1
For Each xRow In xRg.Rows
xStr = ""
For Each xCell In xRow.Cells
xStr = xStr & xCell.Value & Chr(9)
Next
While Right(xStr, 1) = Chr(9)
xStr = Left(xStr, Len(xStr) - 1)
Wend
Print #1, xStr
Next
Close #1
If Err = 0 Then MsgBox "The file has saved to: " & xName, vbInformation, "Kutools for Excel"
End Sub
3. จากนั้นกด F5 คีย์เพื่อเรียกใช้รหัสนี้และกล่องพร้อมต์จะปรากฏขึ้นเพื่อเตือนให้คุณเลือกช่วงข้อมูลที่คุณต้องการบันทึกเป็น csv โดยไม่มีเครื่องหมายคำพูดคู่ดูภาพหน้าจอ:
4. คลิก OK และปุ่ม บันทึกเป็น จะปรากฏขึ้นโปรดระบุชื่อไฟล์และตำแหน่งสำหรับไฟล์ csv ใหม่ของคุณดูภาพหน้าจอ:
5. จากนั้นคลิก ลด ปุ่มก Kutools สำหรับ Excelกล่องข้อความแจ้งจะปรากฏขึ้นเพื่อแจ้งให้คุณทราบว่าไฟล์ csv ใหม่ได้รับการบันทึกลงในตำแหน่งที่คุณระบุแล้วโปรดดูภาพหน้าจอ:
6. คลิก OK เพื่อปิดกล่องโต้ตอบและเมื่อคุณเปิดไฟล์ csv ใหม่เครื่องหมายคำพูดคู่ที่ล้อมรอบด้วยข้อมูลจะถูกลบออกตามภาพหน้าจอต่อไปนี้:
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!