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

วิธีการส่งออกข้อมูล Excel (การเลือกหรือแผ่นงาน) ไปยังไฟล์ข้อความใน Excel

หากคุณจำเป็นต้องส่งสมุดงานในรูปแบบของไฟล์ข้อความคุณต้องแปลงสมุดงานเป็นไฟล์ข้อความ และบทความนี้จะแนะนำวิธีการสองวิธีในการส่งออกข้อมูล Excel เป็นไฟล์ข้อความได้อย่างง่ายดาย

ส่งออกแผ่นเดียวไปยังไฟล์ข้อความใน Excel

ตามค่าเริ่มต้นข้อมูล Excel จะถูกบันทึกเป็นสมุดงานในรูปแบบของ .xlsx. อย่างไรก็ตามเราสามารถส่งออกแผ่นงานของสมุดงานที่มีอยู่เป็นไฟล์ข้อความด้วยไฟล์ บันทึกเป็น ลักษณะเฉพาะ. โปรดดำเนินการดังนี้:

1. เลื่อนไปที่แผ่นงานที่คุณจะส่งออกเป็นไฟล์ข้อความแล้วคลิก เนื้อไม่มีมัน (หรือ ปุ่ม Office)> บันทึกเป็น.

2. ในการเปิด บันทึกเป็น กล่องโต้ตอบเลือกโฟลเดอร์ปลายทางที่คุณจะบันทึกไฟล์ข้อความที่ส่งออกตั้งชื่อไฟล์ในไฟล์ ชื่อไฟล์ จากนั้นเลือกไฟล์ ข้อความ Unicode (* .txt) จากไฟล์ บันทึกเป็นชนิด รายการแบบเลื่อนลง ดูภาพหน้าจอ:
ส่งออกเป็นไฟล์ข้อความด้วยคุณสมบัติบันทึกเป็น

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

จากนั้นข้อมูลในแผ่นงานที่ใช้งานอยู่จะถูกส่งออกเป็นไฟล์ข้อความใหม่

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


ส่งออกสิ่งที่เลือก (หรือหนึ่งคอลัมน์) ไปยังไฟล์ข้อความด้วย VBA

รหัส VBA ต่อไปนี้ยังช่วยให้คุณสามารถส่งออกข้อมูลช่วงที่เลือก (เช่นคอลัมน์เดียว) ไปยังไฟล์ข้อความได้โปรดดำเนินการดังนี้:

1. ค้างไว้ ALT + F11 และจะเปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางรหัสต่อไปนี้ในหน้าต่างโมดูล

VBA: ส่งออกการเลือกหรือแผ่นงานทั้งหมดไปยังไฟล์ข้อความ

Sub ExportRangetoFile()
'Update 20130913
Dim wb As Workbook
Dim saveFile As String
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set wb = Application.Workbooks.Add
WorkRng.Copy
wb.Worksheets(1).Paste
saveFile = Application.GetSaveAsFilename(fileFilter:="Text Files (*.txt), *.txt")
wb.SaveAs Filename:=saveFile, FileFormat:=xlText, CreateBackup:=False
wb.Close
Application.CutCopyMode = False
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

3. จากนั้นกด F5 กุญแจสำคัญในการเรียกใช้รหัสนี้ จากนั้นเลือกช่วงข้อมูลที่คุณต้องการส่งออกในกล่องโต้ตอบป๊อปอัปแล้วคลิกไฟล์ OK ปุ่มดูภาพหน้าจอ:
เลือกหนึ่งคอลัมน์เพื่อส่งออกเป็นไฟล์ข้อความ

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


ส่งออกสิ่งที่เลือก (หรือหนึ่งคอลัมน์) ไปยังไฟล์ข้อความด้วย Kutools for Excel

พื้นที่ บันทึกเป็น คำสั่งสามารถส่งออกข้อมูลทั้งหมดในแผ่นงานที่ใช้งานเป็นข้อความ จะเกิดอะไรขึ้นหากส่งออกข้อมูลทั้งหมดของแผ่นงานที่ไม่ได้ใช้งานที่ระบุหรือบางส่วนของข้อมูลในแผ่นงานเป็นไฟล์ข้อความ Kutools สำหรับ Excel's ส่งออกช่วงไปยังไฟล์ ยูทิลิตี้สามารถช่วยเราส่งออกและบันทึกข้อมูลในการเลือกเป็นไฟล์ข้อความได้อย่างง่ายดาย ..  

Kutools สำหรับ Excel - รวมเครื่องมือที่มีประโยชน์มากกว่า 300 รายการสำหรับ Excel ทดลองใช้ฟรี 30 วันเต็มไม่ต้องใช้บัตรเครดิต! ทดลองใช้ฟรีทันที!

1. เลือกรังที่คุณจะส่งออกไปยังไฟล์ข้อความ (ในกรณีของเราเราเลือกคอลัมน์ A) แล้วคลิก Kutools พลัส > นำเข้าส่งออก > ส่งออกช่วงไปยังไฟล์ดูภาพหน้าจอ:
Addin ของ Excel: ส่งออกสิ่งที่เลือกไปยังไฟล์ข้อความ

2. ตัว Vortex Indicator ได้ถูกนำเสนอลงในนิตยสาร ส่งออกช่วงไปยังไฟล์ กล่องโต้ตอบทำตามภาพด้านล่างที่แสดง:
Addin ของ Excel: ส่งออกสิ่งที่เลือกไปยังไฟล์ข้อความ
(1) ตรวจสอบไฟล์ ข้อความ Unicode ตัวเลือกใน รูปแบบไฟล์ มาตรา;
(2) ตรวจสอบตัวเลือกบันทึกค่าจริงหรือบันทึกค่าตามที่แสดงบนหน้าจอตัวเลือกตามที่คุณต้องการในส่วนตัวเลือกข้อความ
(3) ระบุโฟลเดอร์ปลายทางที่คุณจะบันทึกไฟล์ข้อความที่ส่งออกไป
(4) คลิกไฟล์ Ok ปุ่ม

3. ตั้งชื่อไฟล์ข้อความที่ส่งออกในกล่องโต้ตอบการเปิดใหม่แล้วคลิกไฟล์ Ok ปุ่ม
ตั้งชื่อไฟล์ข้อความที่ส่งออก

จากนั้นการเลือก (คอลัมน์ A ที่เลือก) จะถูกส่งออกเป็นไฟล์ข้อความและบันทึกลงในโฟลเดอร์ที่ระบุ

Kutools สำหรับ Excel - รวมเครื่องมือที่มีประโยชน์มากกว่า 300 รายการสำหรับ Excel ทดลองใช้ฟรี 30 วันเต็มไม่ต้องใช้บัตรเครดิต! Get It Now


ส่งออกแผ่นงานหลายแผ่นเพื่อแยกไฟล์ข้อความใน Excel

บางครั้งคุณอาจต้องส่งออกแผ่นงานหลายแผ่นไปยังไฟล์ข้อความหลายไฟล์ใน Excel คุณลักษณะบันทึกเป็นอาจน่าเบื่อเล็กน้อย! ไม่ต้องกังวล! Kutools สำหรับ Excel's แยกสมุดงาน ยูทิลิตี้ช่วยให้ผู้ใช้ Excel สามารถแก้ไขปัญหาได้อย่างง่ายดายในการส่งออกแผ่นงานหลายแผ่นไปยังไฟล์ข้อความแยกกันหลาย ๆ 

Kutools สำหรับ Excel - รวมเครื่องมือที่มีประโยชน์มากกว่า 300 รายการสำหรับ Excel ทดลองใช้ฟรี 30 วันเต็มไม่ต้องใช้บัตรเครดิต! ทดลองใช้ฟรีทันที!

1 คลิก Kutools พลัส > สมุดงานแยกสมุดงาน. ดูภาพหน้าจอ:
Addin ของ Excel: ส่งออกหลายแผ่นไปยังไฟล์ข้อความ

2. ในกล่องโต้ตอบแยกสมุดงานเปิดโปรดทำดังนี้:
Addin ของ Excel: ส่งออกหลายแผ่นไปยังไฟล์ข้อความ
(1) ตรวจสอบแผ่นงานที่คุณจะส่งออกไปยังไฟล์ข้อความแยกต่างหากในไฟล์ ชื่อสมุดงาน มาตรา;
(2) ตรวจสอบไฟล์ ระบุรูปแบบการบันทึก จากนั้นเลือกตัวเลือก ข้อความ Unicode (* .txt) จากรายการแบบเลื่อนลงด้านล่างดูภาพหน้าจอด้านซ้าย:
(3) คลิกไฟล์ แยก ปุ่ม

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

จนถึงขณะนี้แผ่นงานที่ระบุแต่ละแผ่นได้ถูกส่งออกเป็นไฟล์ข้อความแยกกันและบันทึกลงในโฟลเดอร์ที่ระบุ

Kutools สำหรับ Excel - รวมเครื่องมือที่มีประโยชน์มากกว่า 300 รายการสำหรับ Excel ทดลองใช้ฟรี 30 วันเต็มไม่ต้องใช้บัตรเครดิต! Get It Now

บันทึกแต่ละแผ่นเป็นไฟล์ PDF / text / csv หรือสมุดงานแยกกันใน Excel ได้อย่างง่ายดาย

โดยปกติเราสามารถบันทึกแผ่นงานที่ใช้งานอยู่เป็นไฟล์. pdf, ไฟล์. txt หรือไฟล์. csv โดยใช้คุณลักษณะบันทึกเป็น แต่ Kutools สำหรับ Excel's แยกสมุดงาน ยูทิลิตี้สามารถช่วยให้คุณบันทึกแต่ละสมุดงานเป็นไฟล์ PDF / TEXT / CSV หรือสมุดงานใน Excel แยกกันได้อย่างง่ายดาย คุณสมบัติเต็มทดลองใช้ฟรี 30 วัน!
สมุดงานแยกโฆษณา pdf 1

Kutools สำหรับ Excel - รวมเครื่องมือที่มีประโยชน์มากกว่า 300 รายการสำหรับ Excel ทดลองใช้ฟรี 30 วันเต็มไม่ต้องใช้บัตรเครดิต! Get It Now


การสาธิต: ส่งออกข้อมูล Excel (การเลือกหรือแผ่นงาน) ไปยังไฟล์ข้อความใน Excel


Kutools สำหรับ Excel มีเครื่องมือที่มีประโยชน์มากกว่า 300 รายการสำหรับ Excel ให้ทดลองใช้ฟรีโดยไม่มีข้อ จำกัด ใน 30 วัน ดาวน์โหลดและทดลองใช้ฟรีทันที!

บทความที่เกี่ยวข้อง:


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

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
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (19)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
มีประโยชน์มากจริงๆ ขอบคุณ :D
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ต้องผ่านข้อมูลจาก excel ไปยัง notepad แล้วแยกข้อมูลโดยใช้ลูกน้ำ ฉันจะทำสิ่งนี้ได้อย่างไร
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
คุณต้องเลือก "บันทึกเป็นไฟล์ .csv" (ค่าที่คั่นด้วยเครื่องหมายจุลภาค)
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันมีปัญหาหลังจากบันทึก .xls เป็น .txt ขนาดของไฟล์ใหญ่ขึ้น จาก 500kb เป็น 1,523kb ฉันจะแก้ไขได้อย่างไร ขอบใจ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี! เซลล์ที่ฉันต้องการส่งออกเป็นไฟล์ข้อความอ้างอิงถึงเซลล์อื่นและมี if-codes ซึ่งหมายความว่าเมื่อฉันส่งออก ฉันจะไม่ได้รับค่าตัวเลข แต่เป็น "N/A" คุณรู้หรือไม่ว่าฉันจะแก้ไขปัญหานี้ได้อย่างไร ขอขอบคุณ.
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
มีใครพอจะทราบวิธีการทำ excel 2016 MAC บ้าง?? ty
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
หนึ่งในไซต์ที่ดีที่สุดที่ฉันพบข้อความค้นหาของฉัน
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ข้อความค้นหาของฉันมีดังต่อไปนี้: ฉันมีรายงานที่จะสร้างทุกวัน ข้อมูลที่ฉันได้รับในแถวสุดท้าย (เพียงหนึ่งแถว แต่มีมากกว่าหนึ่งคอลัมน์) ฉันต้องการให้มันส่งออกไปยังแผ่นงาน Excel อื่นซึ่งเป็นแผ่นงาน Excel สรุปที่บันทึกแยกต่างหากบนเดสก์ท็อปของฉัน เช่น: รายงานวันที่ 1 - ส่งออกแถวสุดท้ายไปยังสรุป excel แผ่นแถวที่ 1 รายงานวันที่ 2 - ส่งออกแถวสุดท้ายไปยังสรุปแผ่นงาน excel แถวที่ 2 รายงานวันที่ 3 - ส่งออกแถวสุดท้ายไปยังสรุป excel แผ่นแถวที่ 3 เป็นต้น .. การส่งออกควรทำโดยการคลิกปุ่ม ซึ่งหมายความว่าเมื่อฉันคลิกปุ่มส่งออก ข้อมูลบนแผ่นงานที่ฉันคำนวณในวันนี้ควรไปบันทึกในแผ่นงานสรุป excel แถวที่ 1 วันถัดไปรายงานแผ่นงาน Excel ใหม่ที่คำนวณแล้วควรไปบันทึกในแผ่นงานสรุป excel แถวที่ 2 เป็นต้น สิ่งนี้จะทำได้ไหม... ถ้าใช่ โปรดใครก็ได้ช่วยฉันในเรื่องนี้... ขอบคุณล่วงหน้า...:-)
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
1/2 (เนื่องจากซอฟต์แวร์ของคุณจำกัดความยาวของความคิดเห็น) ฉันเป็นผู้เขียนโค้ดที่จริงจัง และฉันต้องการแจ้งให้คุณทราบว่าโค้ด VBA ที่นี่โดดเด่น มันสะอาดและไม่หนึ่งบรรทัดมากเกินไปหรือน้อยเกินไป เป็นการเข้ารหัสที่เป็นแบบอย่างสำหรับการสาธิตกระบวนการ นอกจากนี้ ฉันยังจะพูดถึงว่าในขณะที่ฉันค้นคว้าวิธีแก้ปัญหาสำหรับการส่งออกการเลือกอย่างละเอียด คุณและอีกเพียงคนเดียวเท่านั้นที่แนะนำให้วางช่วงลงในสมุดงานใหม่ชั่วคราว คำตอบอื่นๆ ทั้งหมดเป็นแบบใช้มืออย่างเจ็บปวด โดยเดินผ่านเซลล์ทีละเซลล์ แม้แต่โค้ดของ Chip ก็ยาวกว่ามากและทำงานช้ากว่ามาก (แต่โดยเจตนาแล้ว เพราะมันยืดหยุ่นกว่ามาก - ตัวคั่นที่ระบุได้ ฯลฯ) เพื่อความบันเทิงของคุณ ฉันได้ปรับแต่งเล็กน้อยแต่ไม่อย่างนั้นก็เกือบจะยกโค้ดสำหรับคำแล้ว เข้าสู่แอปพลิเคชั่นที่ซับซ้อนและพิเศษมาก การปรับแต่งเหล่านี้บางส่วนเป็นสิ่งที่ฉันแน่ใจว่าคุณทำในทางปฏิบัติ แต่จะเพิ่มบรรทัดของโค้ด (เช่น การตรวจสอบข้อผิดพลาด) ดังนั้นการแสดงบนหน้าเว็บนี้จะทำให้การแสดงผลของคุณสกปรก ดังนั้นองค์ประกอบที่สำคัญของการประมวลผลจะยุ่งยากสำหรับผู้อ่าน ที่จะปฏิบัติตาม อย่างไรก็ตาม: (ดูส่วนที่ 2)
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
2/2 - vbYesNoCancel msgboxes และ Booleans เพื่อระบุว่าจะส่งออกทั้งหมด การเลือก หรือช่วงที่ผู้ใช้ระบุ - สตริงแบบคงที่สำหรับที่อยู่ช่วงก่อนหน้า - ถ้า len (นั่นคงที่)1 ฉันก็ตั้งค่า WorkRng=activesheet.UsedRange (คุณสามารถ อย่าคัดลอกหลายพื้นที่ด้วยสำเนาเดียว แม้ว่าจะใช้งานเพียงเล็กน้อย คุณก็สามารถเดินไปตามพื้นที่และคัดลอกทีละส่วนได้) - Idiotic Microsoft ไม่บันทึกแถวว่างในตอนเริ่มต้นและด้านล่างสุดของช่วงที่บันทึกไว้ และไม่บันทึก ปิดคอลัมน์ว่างที่ด้านซ้ายสุดและขวาสุดของช่วงที่บันทึกไว้ เมื่อฉันตรวจพบว่า (UsedRange ไม่ใช่แถวที่ 1, col. 1 หรือ xlLastCell ไม่ใช่ด้านล่างขวาโดยสมบูรณ์) ฉัน msgbox เพื่อถามผู้ใช้ว่าต้องการเสียบ A1 หรือเซลล์ขวาล่างหรือไม่ - จากนั้น ฉันตัดสินใจที่จะแก้ไขปัญหาด้านซ้ายบนโดยแทรกแถวและตั้งค่า A1 ให้เป็นข้อความเช่น "ต่อไปนี้สำหรับช่วง" - ฉันปิดด้วย activeworkbook.close SaveChanges:=False - เป็นนิสัยมานานแล้วเพราะฉันโกรธ ผู้สนับสนุนการทำความสะอาด (และโลกเป็นสถานที่ที่น่าเศร้าขอบคุณโปรแกรมเมอร์ที่ขาดความรับผิดชอบซึ่งหลีกเลี่ยงความรับผิดชอบนั้นเมื่อเป็นเรื่องสำคัญ) ฉันตั้ง WorkRng = ไม่มีทางออก :)
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
3/2 คุณอาจทราบด้วยว่าคุณไม่จำเป็นต้องระบุคำนำหน้า wb เมื่อคุณได้ .Add ed เวิร์กบุ๊กแล้วเนื่องจากเวิร์กบุ๊กมีการใช้งาน การระบุ wb อาจหรืออาจไม่มีประสิทธิภาพมากกว่า แต่สามารถละเว้นจากบางคำสั่งได้ อันที่จริงฉันทิ้งตัวแปร wb ทั้งหมด; ฉันแค่ไปที่ Workbooks.Add และใช้ ActiveWorkbook เมื่อจำเป็น (ในขณะที่คุณกำลังระงับ ScreenUpdating จะไม่ชัดเจนสำหรับบางคนว่า wb ทำงานอยู่ คำแนะนำสำหรับผู้เริ่มต้น (และสูงกว่า): ฉันมักจะพัฒนาด้วย ScreenUpdating และ DisplayAlerts ว่า True เสมอ และเมื่อพัฒนาเสร็จแล้ว ฉันจะพิจารณาปิด สำหรับรหัสบางส่วน)
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณสำหรับโค้ด VBA ที่ยอดเยี่ยมในการส่งออกข้อมูลไปยังไฟล์ข้อความ ฉันได้ใช้รหัสของคุณกับรหัสของฉันเอง ข้อมูลที่ฉันกำลังติดต่ออยู่นั้นมีความยาวบรรทัดมากโดยเฉพาะ และหลังจากที่แมโครทำงานแล้ว ไฟล์ข้อความจะมีเครื่องหมายอัญประกาศ " ที่ตำแหน่งสุ่ม ซึ่งไม่เคยมีอยู่ในข้อมูลของฉันมาก่อน ฉันได้ลองเพิ่มโค้ดบรรทัดเพื่อลบ อักขระนี้ในขั้นตอนต่างๆ แต่ดูเหมือนจะไม่ทำงาน ฉันรู้ว่าฉันสามารถลบสิ่งนี้ได้ด้วยตนเองแต่ต้องการแก้ไขในโค้ด VBA

ย่อย Macro3()
Dim wb เป็นสมุดงาน
หรี่ saveFile As String
Dim WorkRng เป็นช่วง
เกี่ยวกับข้อผิดพลาดต่อไป
Selection.ตัวกรองอัตโนมัติ
ActiveSheet.Range("$A$1:$B$10591")).ฟิลด์ตัวกรองอัตโนมัติ:=1, Criteria1:= _
"=NSZAP*", โอเปอเรเตอร์:=xlAnd
ช่วง("A1") เลือก
ActiveCell.Offset(200, 0).Range("A1")).Select
ช่วง(Selection, Selection.End(xlDown)).Select
ActiveCell.Rows("1:10101")).EntireRow.Select
Selection.Delete Shift:=xlUp
ช่วง("A1") เลือก
Selection.ตัวกรองอัตโนมัติ
ช่วง(Selection, Selection.End(xlDown)).Select
ตั้งค่า WorkRng = Application.Selection
ตั้งค่า wb = Application.Workbooks.Add
งานRng.Copy
wb.แผ่นงาน(1).วาง
Selection.Replace What:="""", การแทนที่:="", LookAt:=xlPart, _
ค้นหาคำสั่งซื้อ:=xlByRows, MatchCase:=False, SearchFormat:=False, _
แทนที่รูปแบบ:=เท็จ
saveFile = Application.GetSaveAsFilename(fileFilter:="Text Files (*.txt), *.txt")
Selection.Replace What:="""", การแทนที่:="", LookAt:=xlPart, _
ค้นหาคำสั่งซื้อ:=xlByRows, MatchCase:=False, SearchFormat:=False, _
แทนที่รูปแบบ:=เท็จ
wb.SaveAs ชื่อไฟล์:=saveFile, FileFormat:=xlText, CreateBackup:=False
Selection.Replace What:="""", การแทนที่:="", LookAt:=xlPart, _
ค้นหาคำสั่งซื้อ:=xlByRows, MatchCase:=False, SearchFormat:=False, _
แทนที่รูปแบบ:=เท็จ
wb.ปิด
Application.CutCopyMode = เท็จ
Application.DisplayAlerts = จริง
Application.ScreenUpdating = จริง
ย่อยสิ้นสุด
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี Harish,
หากต้องการลบอักขระที่ระบุเป็นกลุ่ม ให้แทนที่อักขระโดยไม่ใช้สิ่งใดเลย
Ctrl + H เพื่อเปิดกล่องโต้ตอบ ค้นหาและแทนที่ พิมพ์อักขระที่ระบุในกล่อง สิ่งที่ค้นหา แล้วพิมพ์ noting ในกล่องแทนที่ด้วย
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี
ขอบคุณสำหรับรหัส VBA ของคุณ
บางครั้งในข้อความบางข้อความมี "TEXT" ในการส่งออก .TXT
ขอบคุณสำหรับเหตุผล
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี ฉันใช้รหัสนั้น:
ย่อย ExportRangetoFile()
'อัปเดต 20130913
Dim wb เป็นสมุดงาน
หรี่ saveFile As String
Dim WorkRng เป็นช่วง
เกี่ยวกับข้อผิดพลาดต่อไป
xTitleId = "KutoolsforExcel"
ตั้งค่า WorkRng = Application.Selection
ตั้งค่า WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = เท็จ
Application.DisplayAlerts = เท็จ
ตั้งค่า wb = Application.Workbooks.Add
งานRng.Copy
wb.แผ่นงาน(1).วาง
saveFile = Application.GetSaveAsFilename(fileFilter:="Text Files (*.txt), *.txt")
wb.SaveAs ชื่อไฟล์:=saveFile, FileFormat:=xlText, CreateBackup:=False
wb.ปิด
Application.CutCopyMode = เท็จ
Application.DisplayAlerts = จริง
Application.ScreenUpdating = จริง
ย่อยสิ้นสุด

และทำงานได้ แต่ฉันต้องบันทึกคอลัมน์ที่มีเซลล์ที่มีฟังก์ชัน "ต่อกัน" และเมื่อฉันเล่นโค้ด vba และฉันบันทึกไฟล์ .TXT เฉพาะสิ่งที่ปรากฏเท่านั้น #REF ฉันจะแก้ไขได้อย่างไร เพราะฉันต้องการข้อมูลที่ปรากฏในเซลล์นั้นหรือไม่
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
มีใครสามารถคิดออกนี้? ฉันมีปัญหาเดียวกัน
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี รหัสนี้มีประโยชน์มากสำหรับฉัน ขอบคุณมาก.
ฉันต้องการถามว่า: เมื่อฉันใช้รหัสนี้ บรรทัดใหม่จะต่อท้ายเนื้อหา txt โดยอัตโนมัติ
คุณช่วยฉันเกี่ยวกับการป้องกันสิ่งนี้โดย vba ได้ไหม
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี มันเยี่ยมมาก ขอบคุณมาก
ฉันจะเปลี่ยนรหัสสำหรับการเลือกการส่งออก (หรือหนึ่งคอลัมน์) เป็นไฟล์ข้อความด้วย VBA เพื่อเติมชื่อไฟล์โดยอัตโนมัติด้วยเนื้อหาของเซลล์ B2 ได้อย่างไร
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันจะแก้ไขรหัสสำหรับการเลือกการส่งออก (หรือหนึ่งคอลัมน์) เป็นไฟล์ข้อความด้วย VBA เพื่อป้อนชื่อไฟล์โดยอัตโนมัติด้วยเนื้อหาของเซลล์ B2 ได้อย่างไร
ขอบคุณ
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ