+ 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

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

แปลงไฟล์ .org

แปลง text file เป็น excel

การรวมไฟล์ xls

รวม file text

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

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

รวมไฟล์ txt

text document แปลงไฟล์ excel

การรวมไฟล์ txt

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

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

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

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

แปลง txt file เป็น excel

การต่อไฟล์excel

แปลง text เป็น excel 2003ต่อworkbook excelImport TXT เข้า Excel หลายๆ Fileวิธีแปลง excel เป็น text มี รวมข้อมูลจากหลายไฟล์ 2007ไฟล์txtแปลงเป็นการ ต่อ ชีท excelรวมไฟล์excelหลายไฟล์ไว้ในไฟล์เดียวimport text หลายๆ file มาต่อกันใน excelสร้างปุ่ม แปลงtext file เป็น excelทำให้เป็น text-fileโปรแกรมแปลงไฟล์tex เป็น excelทิป excel เอ็กเซลวิธีการ merge text file to excelการรวมไฟล์ exceltext file เป็น excelimport หลาย text ไป excelmacro excellรวมไฟล์เปลี่ยน text file เป็น excelรวม text file เข้า excelแปลงไฟล์txtโปรแกรมรวมไฟล์ txtการแปลงไฟล์text เป็น excelแปลงไฟล์ .org เป็น exselรวม excel หลาย ไฟล์ไฟล์ Text Document เป็น excelการแปลงfile excell เป็น Tax fileวิธีรวมไฟล์excelหลายไฟล์เป็นไฟล์เดียวเปิดtxt file ใน excelการรวมไฟล์ excel หลายไฟล์เปิด text file หลายวิธีเปลี่ยน tex document เป็น excelimport text file หลายๆ ตัวเข้าแปลง notepad เป็น macroวิธีแปลง text ให้เป็น excelอยากเปลี่ยนจาก file เป็น excel worksheetวิธีเซฟไฟล์ text เป็น excelการแปลง txt เป็น csvแปลง txt. เป็น excel 2007เอาไฟล์มาจาก notepat excการrun file excel Workbooks.Open Filenameการแปลงไฟล์ txt เป็นไฟล์ excelrun csv ใน excel 2007เปลี่ยน text เป็น excelรวม file .xls เข้าด้วยกันต่อไฟล์ .xlsรวม workbookวิธีใช้ไฟล์ excel 2 fileวิธีรวมsheet excelแปลง txt เป็น excelใช้งานmacroแปลงtextเป็นexce;ทำ text to excel macroตัวรวม text file

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