+ Reply to Thread
Results 1 to 3 of 3

Thread: รวมหลายไฟล์ txt ให้เป็น xls workbook เดียว

      
  1. #1
    Senior Member retool2's Avatar
    Join Date
    Aug 2008
    Location
    Under Relocation
    Posts
    195
    Say 'Thank You!' for this post. :
    1 For This Post
    20 Total


    Importing Multiple Files to a Single Workbook
    ใช้สำหรับเวลามีไฟล์ txt หรือ tsv csv หลายไฟล์ แล้วต้องการนำมารวมใส่เป็น worksheet ใน excel เดียวครับ
    [hide]
    macro ตามด้านล่างครับ
    [code]Sub CombineTextFiles()
    Reply With Quote Reply With Quote
    Thanks

  2. Who Said Thanks:

    davidjiam (09-29-2011)

  3. #2
    Junior Member
    Join Date
    Dec 2010
    Posts
    10
    Say 'Thank You!' for this post. :
    0 For This Post
    0 Total


    ยังเหลืออยู่ไหมนะโปรแกรม เพราะว่าต้องการใช้งานตัวนี้มากเลย ใช้ยังไงนะเนี่ย เพราะหาโปรแกรมมาหลายโปรแกรมแล้วไม่มีโปรแกรมไหนใช้ได้เลย
    Reply With Quote Reply With Quote
    Thanks

  4. #3
    Member
    Join Date
    Sep 2011
    Posts
    38
    Say 'Thank You!' for this post. :
    0 For This Post
    8 Total


    ขอเสริมนะครับ
    วิธีการทำ
    1. เปิด Excel ขึ้นมา
    2. กด Alt+F8
    3. Macro name : CombineTextFiles
    4. กดปุ่ม Create
    5. ใส่ Code ด้านล่าง

      Code:
      Sub CombineTextFiles()
          Dim FilesToOpen
          Dim x As Integer
          Dim wkbAll As Workbook
          Dim wkbTemp As Workbook
          Dim sDelimiter As String
      
          On Error GoTo ErrHandler
          Application.ScreenUpdating = False
      
          sDelimiter = "|"
      
          FilesToOpen = Application.GetOpenFilename _
            (FileFilter:="Text Files (*.txt), *.txt", _
            MultiSelect:=True, Title:="Text Files to Open")
      
          If TypeName(FilesToOpen) = "Boolean" Then
              MsgBox "No Files were selected"
              GoTo ExitHandler
          End If
      
          x = 1
          Set wkbTemp = Workbooks.Open(FileName:=FilesToOpen(x))
          wkbTemp.Sheets(1).Copy
          Set wkbAll = ActiveWorkbook
          wkbTemp.Close (False)
          wkbAll.Worksheets(x).Columns("A:A").TextToColumns _
            Destination:=Range("A1"), DataType:=xlDelimited, _
            TextQualifier:=xlDoubleQuote, _
            ConsecutiveDelimiter:=False, _
            Tab:=False, Semicolon:=False, _
            Comma:=False, Space:=False, _
            Other:=True, OtherChar:="|"
          x = x + 1
      
          While x <= UBound(FilesToOpen)
              Set wkbTemp = Workbooks.Open(FileName:=FilesToOpen(x))
              With wkbAll
                  wkbTemp.Sheets(1).Move After:=.Sheets(.Sheets.Count)
                  .Worksheets(x).Columns("A:A").TextToColumns _
                    Destination:=Range("A1"), DataType:=xlDelimited, _
                    TextQualifier:=xlDoubleQuote, _
                    ConsecutiveDelimiter:=False, _
                    Tab:=False, Semicolon:=False, _
                    Comma:=False, Space:=False, _
                    Other:=True, OtherChar:=sDelimiter
              End With
              x = x + 1
          Wend
      
      ExitHandler:
          Application.ScreenUpdating = True
          Set wkbAll = Nothing
          Set wkbTemp = Nothing
          Exit Sub
      
      ErrHandler:
          MsgBox Err.Description
          Resume ExitHandler
      End Sub
    6. ปิดหน้าต่างไป
    7. กด Alt+F8
    8. เลือก CombineTextFiles แล้วกดปุ่ม Run
    9. เลือกไฟล์ .txt ที่ต้องการ เป็นอันเสร็จสิ้นครับ
    Reply With Quote Reply With Quote
    Thanks

+ Reply to Thread

Similar Threads

  1. Shortcut เดียว เปิดหลายโปรแกรม
    By lnwgood in forum ทิปหรือเคล็ดลับการคอมพิวเตอร์ต่างๆ
    Replies: 10
    Last Post: 12-23-2010, 10:04 PM
  2. โปรแกรมแปลงไฟล์ออดิโอ (.cda)ให้เป็น .mp3
    By nuttkiiez in forum แนะนำ Software ต่างๆ
    Replies: 3
    Last Post: 01-26-2010, 09:41 PM
  3. วิธีเปลี่ยนการเปิด New Windows ให้เป็น New Tab บน Safari
    By clashone in forum ทิปหรือเคล็ดลับการคอมพิวเตอร์ต่างๆ
    Replies: 0
    Last Post: 05-23-2008, 04:02 PM
  4. Replies: 0
    Last Post: 09-12-2007, 11:21 AM
  5. จะ set PC ให้เป็น server ยังไงอ่า
    By Crovax in forum Computer Tip & Trick / Tutorial
    Replies: 1
    Last Post: 09-21-2003, 12:45 AM

Visitors found this page by searching for:

รวมไฟล์ excel หลายไฟล์เป็นไฟล์เดียว

แปลง text เป็น excel

การแปลง text file เป็น excel

วิธีการ load text file ครั้งละหลายๆ file to excel

แปลงไฟล์ txt เป็น excel

วิธีแปลงไฟล์จากtext file เป็น excel

การแปลงไฟล์ txt เป็น excel

แปลงไฟล์ text เป็น excel

การ แปลง text file เป็น excel

save excel เป็น text

โปรแกรมแปลงไฟล์ text เป็น excel

การแปลงไฟล์จาก text เป็น Excel

รวม file text

การรวมไฟล์ txt

การรวมไฟล์ xls

แปลงไฟล์ .org

การแปลง file txt เป็น excel

การต่อไฟล์excel

insert text file to excel หลายๆไฟล์

วิธีการ insert text file หลายๆ ไฟล์

วิธีแปลงไฟล์ จาก exell 2007 เป็น 2010 หลายๆ ไฟล์

แปลง text file เป็น excel

text document แปลงไฟล์ excel

เปลี่ยน txt เป็น excel

แปลง txt file เป็น excel

รวมไฟล์ txt

วิธีแปลงไฟล์ text เป็น excel

import หลาย text ไป excelimport text หลายๆ file มาต่อกันใน excelแปลง text เป็น excel 2003การแปลงไฟล์text เป็น excelรวมข้อมูลจากหลายไฟล์ 2007สร้างปุ่ม แปลงtext file เป็น excelImport TXT เข้า Excel หลายๆ Fileวิธีการ merge text file to excelวิธีแปลง excel เป็น text มี ต่อworkbook exceltext file เป็น excelการรวมไฟล์ excelเปลี่ยน text file เป็น excelรวมไฟล์excelหลายไฟล์ไว้ในไฟล์เดียวโปรแกรมรวมไฟล์ txtโปรแกรมแปลงไฟล์tex เป็น excelทิป excel เอ็กเซลแปลงไฟล์ .org เป็น exselmacro excellรวมไฟล์แปลงไฟล์txtการ ต่อ ชีท excelทำให้เป็น text-fileรวม text file เข้า excelไฟล์txtแปลงเป็นแปลงไฟล์ txt to excelวิธีรวม .txt หลายไฟล์วิธีแปลง text ให้เป็น excelการแปลงไฟล์ txt เป็นไฟล์ excelimport หลายๆ text file excel เอาไฟล์มาจาก notepat excแปลง txt. เป็น excel 2007import text file หลายๆ ตัว ใน sheet excel เดียวอยากเปลี่ยนจาก file เป็น excel worksheetแปลงไฟล์ txt เป็น xlsmacro excel รวมไฟล์โปรแกรมแปลงไฟล์ txt เป็น excelวิธีใช้ไฟล์ excel 2 fileวิธีเซฟไฟล์ text เป็น excelการแปลง txt เป็น csvอ่านไฟล์ .txt หลายไฟล์ มาใส่ excelmacro ต่่อไฟล์ excelรวม excel หลาย ไฟล์การบันทึก excel 2007 เป็น .xlsวิธี save excel 2007 เป็น xlsimport textfile ให้อยู่ในหน้าตารายงานexcel import text file หลายโปรแกรมไฟล์เมิจรวมไฟล์Excelการตั้งค่า tax import excel 2003วิธีรวมsheet excelแปลง txt เป็น excelใช้งานmacroแปลงtextเป็นexce;ทำ text to excel macroเอาไฟล์csvมารวมเป็นไฟล์เดียว

Members who have read this thread : 0

You do not have permission to view the list of names.

Tags for this Thread

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts