+ 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

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

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

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

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

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

save excel เป็น text

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

แปลง text file เป็น excel

การรวมไฟล์ xls

รวม file text

การต่อไฟล์excel

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

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

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

แปลงไฟล์ .org

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

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

text document แปลงไฟล์ excel

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

การรวมไฟล์ txt

รวมไฟล์ txt

แปลง txt file เป็น excel

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

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

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