Note: The other languages of the website are Google-translated. Back to English
English English

วิธีบันทึกข้อมูลแผ่นงานเป็นไฟล์ 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 ด้วยเครื่องหมายคำพูดคู่ดูภาพหน้าจอ:

doc บันทึก csv ด้วยเครื่องหมายคำพูด 1

4. จากนั้นคลิก OK และปุ่ม บันทึกเป็น ปรากฏหน้าต่างโปรดระบุชื่อไฟล์และตำแหน่งจากนั้นคลิก ลด ปุ่มดูภาพหน้าจอ:

doc บันทึก csv ด้วยเครื่องหมายคำพูด 2

5. และ a Kutools สำหรับ Excelกล่องข้อความแจ้งจะปรากฏขึ้นเพื่อเตือนให้คุณทราบว่าไฟล์ csv ใหม่ได้รับการบันทึกไว้ในตำแหน่งที่คุณระบุแล้วดูภาพหน้าจอ:

doc บันทึก csv ด้วยเครื่องหมายคำพูด 3

6. คลิก OK เพื่อปิดกล่องโต้ตอบและตอนนี้เมื่อคุณเปิดไฟล์ csv ใหม่ข้อมูลทั้งหมดจะถูกล้อมรอบด้วยเครื่องหมายคำพูดคู่ดังภาพหน้าจอต่อไปนี้:

doc บันทึก csv ด้วยเครื่องหมายคำพูด 4


ลูกศรสีฟ้าฟองขวา บันทึกข้อมูลเวิร์กชีตเป็นไฟล์ csv โดยไม่มีเครื่องหมายอัญประกาศคู่

หากข้อมูลของคุณถูกคั่นด้วยเครื่องหมายจุลภาคเส้นแบ่งในเซลล์เมื่อคุณบันทึกข้อมูลเป็นไฟล์ csv ข้อมูลจะถูกล้อมรอบด้วยเครื่องหมายคำพูดคู่ดังที่แสดงต่อไปนี้:

doc บันทึก csv ด้วยเครื่องหมายคำพูด 5

หากต้องการบันทึกข้อมูลเป็นไฟล์ 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 โดยไม่มีเครื่องหมายคำพูดคู่ดูภาพหน้าจอ:

doc บันทึก csv ด้วยเครื่องหมายคำพูด 6

4. คลิก OK และปุ่ม บันทึกเป็น จะปรากฏขึ้นโปรดระบุชื่อไฟล์และตำแหน่งสำหรับไฟล์ csv ใหม่ของคุณดูภาพหน้าจอ:

doc บันทึก csv ด้วยเครื่องหมายคำพูด 7

5. จากนั้นคลิก ลด ปุ่มก Kutools สำหรับ Excelกล่องข้อความแจ้งจะปรากฏขึ้นเพื่อแจ้งให้คุณทราบว่าไฟล์ csv ใหม่ได้รับการบันทึกลงในตำแหน่งที่คุณระบุแล้วโปรดดูภาพหน้าจอ:

doc บันทึก csv ด้วยเครื่องหมายคำพูด 8

6. คลิก OK เพื่อปิดกล่องโต้ตอบและเมื่อคุณเปิดไฟล์ csv ใหม่เครื่องหมายคำพูดคู่ที่ล้อมรอบด้วยข้อมูลจะถูกลบออกตามภาพหน้าจอต่อไปนี้:

doc บันทึก csv ด้วยเครื่องหมายคำพูด 9


เครื่องมือเพิ่มประสิทธิภาพการทำงานในสำนักงานที่ดีที่สุด

Kutools สำหรับ Excel ช่วยแก้ปัญหาส่วนใหญ่ของคุณและเพิ่มผลผลิตของคุณได้ถึง 80%

  • นำมาใช้ใหม่: ใส่อย่างรวดเร็ว สูตรที่ซับซ้อนแผนภูมิ และสิ่งที่คุณเคยใช้มาก่อน เข้ารหัสเซลล์ ด้วยรหัสผ่าน; สร้างรายชื่อผู้รับจดหมาย และส่งอีเมล ...
  • ซุปเปอร์ฟอร์มูล่าบาร์ (แก้ไขข้อความและสูตรหลายบรรทัดได้อย่างง่ายดาย); การอ่านเค้าโครง (อ่านและแก้ไขเซลล์จำนวนมากได้อย่างง่ายดาย); วางลงในช่วงที่กรองแล้ว...
  • ผสานเซลล์ / แถว / คอลัมน์ โดยไม่สูญเสียข้อมูล แยกเนื้อหาของเซลล์ รวมแถว / คอลัมน์ที่ซ้ำกัน... ป้องกันเซลล์ซ้ำ; เปรียบเทียบช่วง...
  • เลือกซ้ำหรือไม่ซ้ำ แถว; เลือกแถวว่าง (เซลล์ทั้งหมดว่างเปล่า); Super Find และ Fuzzy Find ในสมุดงานจำนวนมาก สุ่มเลือก ...
  • สำเนาถูกต้อง หลายเซลล์โดยไม่เปลี่ยนการอ้างอิงสูตร สร้างการอ้างอิงอัตโนมัติ ถึงหลายแผ่น ใส่สัญลักษณ์แสดงหัวข้อย่อย, กล่องกาเครื่องหมายและอื่น ๆ ...
  • แยกข้อความ, เพิ่มข้อความ, ลบตามตำแหน่ง, ลบ Space; สร้างและพิมพ์ผลรวมย่อยของเพจ แปลงระหว่างเนื้อหาของเซลล์และความคิดเห็น...
  • ซุปเปอร์ฟิลเตอร์ (บันทึกและใช้โครงร่างตัวกรองกับแผ่นงานอื่น ๆ ); การเรียงลำดับขั้นสูง ตามเดือน / สัปดาห์ / วันความถี่และอื่น ๆ ตัวกรองพิเศษ โดยตัวหนาตัวเอียง ...
  • รวมสมุดงานและแผ่นงาน; ผสานตารางตามคอลัมน์สำคัญ แยกข้อมูลออกเป็นหลายแผ่น; Batch แปลง xls, xlsx และ PDF...
  • คุณสมบัติที่ทรงพลังมากกว่า 300 รายการ. รองรับ Office / Excel 2007-2019 และ 365 รองรับทุกภาษา ใช้งานง่ายในองค์กรหรือองค์กรของคุณ ทดลองใช้ฟรี 30 วันเต็ม รับประกันคืนเงิน 60 วัน
kte แท็บ 201905

แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มผลผลิตของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
ด้านล่าง officetab
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (6)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ไฮ!
มุอิโตะ โอริกาโด! O conteúdo me ajudou muito. Precisava gerar um arquivo txt กำจัดเป็น aspas duplas no início e no final de cada linha e não estava conseguindo Resolver. อโกรา คอนเซกี.
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
Sério eu te amo rsrsrsr
ฉัน ajudou demais, muito obrigada!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ไม่ใช่ยูนิโค้ด
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณมากสำหรับเรื่องนี้. ฉันพยายามหาวิธีใส่เครื่องหมายคำพูดคู่ในไฟล์เป็นเวลา 3 วันแล้ว!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ย่อย Exportar_TXT()



Application.ScreenUpdating = เท็จ



'Seleciona a guia Extract ทำ Excel สะสม a célula A1
ชีต("แยก") เลือก
ช่วง("A1") เลือก

'ส่งออก txt เริ่มต้นผ่าน Print com texto exato mostrado em tela sem erro das aspas

เส้นทางมืดเป็นสตริง
Dim FileNumber เป็นจำนวนเต็ม
Dim LR เป็นจำนวนเต็ม
Dim LC เป็นจำนวนเต็ม

Dim k เป็นจำนวนเต็ม
Dim ฉันเป็นจำนวนเต็ม

LR = แผ่นงาน ("แยก") เซลล์ (Rows.Count, 1).End (xlUp).Row
LC = แผ่นงาน ("แยก") เซลล์ (1, Columns.Count).End (xlToLeft).Column

เส้นทาง = ThisWorkbook.Path & "\Extract " & รูปแบบ (ตอนนี้ (), "ddmmyyyy-hhmmss") & ".csv"
FileNumber = ฟรีไฟล์

เปิดเส้นทางสำหรับเอาต์พุตเป็น FileNumber

สำหรับ k = 1 ถึง LR

สำหรับผม = 1 ถึง LC

ถ้าฉัน <> LC แล้ว
พิมพ์ #FileNumber, Cells(k, i),
อื่น
พิมพ์ #FileNumber, Cells(k, i)
End If

ต่อไปฉัน

ถัดไป

ปิด FileNumber


' Caso deseja abrir o notepad imediatamente para conferir o txt gerado só retirar a linha comentada abaixo:


'เชลล์ "notepad.exe" & เส้นทาง vbNormalFocus



Application.ScreenUpdating = จริง

MsgBox "แตกไฟล์*.txt กับพาสต้าบนเดือยเอสเต Excel!"

ย่อยสิ้นสุด
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
Caso deseje apenas salva todo o Excel em csv *sem aspas* Conforme eu, segue sugestão:

ย่อย Exportar_CSV()

Application.ScreenUpdating = เท็จ

'Seleciona a guia Extract ทำ Excel สะสม a célula A1
ชีต("แยก") เลือก
ช่วง("A1") เลือก

'ส่งออก txt เริ่มต้นผ่าน Print com texto exato mostrado em tela sem erro das aspas

เส้นทางมืดเป็นสตริง
Dim FileNumber เป็นจำนวนเต็ม
Dim LR เป็นจำนวนเต็ม
Dim LC เป็นจำนวนเต็ม

Dim k เป็นจำนวนเต็ม
Dim ฉันเป็นจำนวนเต็ม

LR = แผ่นงาน ("แยก") เซลล์ (Rows.Count, 1).End (xlUp).Row
LC = แผ่นงาน ("แยก") เซลล์ (1, Columns.Count).End (xlToLeft).Column

เส้นทาง = ThisWorkbook.Path & "\Extract " & รูปแบบ (ตอนนี้ (), "ddmmyyyy-hhmmss") & ".csv"
FileNumber = ฟรีไฟล์

เปิดเส้นทางสำหรับเอาต์พุตเป็น FileNumber

สำหรับ k = 1 ถึง LR

สำหรับผม = 1 ถึง LC

ถ้าฉัน <> LC แล้ว
พิมพ์ #FileNumber, Cells(k, i),
อื่น
พิมพ์ #FileNumber, Cells(k, i)
End If

ต่อไปฉัน

ถัดไป

ปิด FileNumber


' Caso deseja abrir o notepad imediatamente para conferir o txt gerado só retirar a linha comentada abaixo:


'เชลล์ "notepad.exe" & เส้นทาง vbNormalFocus



Application.ScreenUpdating = จริง

MsgBox "แตกไฟล์*.txt กับพาสต้าบนเดือยเอสเต Excel!"

ย่อยสิ้นสุด
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ