+ 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

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

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

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

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

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

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

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

save excel เป็น text

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

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

แปลงไฟล์ .org

รวม file text

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

แปลง text file เป็น excel

การรวมไฟล์ xls

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

รวมไฟล์ txt

การต่อไฟล์excel

แปลง txt file เป็น excel

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

text document แปลงไฟล์ excel

การรวมไฟล์ txt

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

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

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

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

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