:D snasui.com ยินดีต้อนรับ :D
ยินดีต้อนรับสู่กระดานถามตอบ Excel and VBA และอื่น ๆ ที่เป็นมิตรกับทุกท่าน มีไฟล์แนบมหาศาล ช่วยให้ท่านค้นหาและติดตามศึกษาได้โดยง่าย :thup: สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ :arrow: ระบุ Version ของ Excel
:!: โปรดทราบ :!:
  1. กรุณาอ่านกฎการใช้บอร์ด (Forum rules) ในตำแหน่งด้านบนของแต่ละบอร์ด
  2. การสมัครสมาชิก การ Login การกู้คืนรหัสผ่าน
    1. สมัครสมาชิกดูขั้นตอนได้ที่ :arrow: สมัครสมาชิก
    2. Login เข้าระบบโดยคลิกปุ่ม Login ตรงมุมขวาบนของหน้านี้ :roll:
    3. การ Login ผ่าน Facebook ดูวิธีที่ :arrow: Login ผ่าน Facebook
    4. ลืมรหัสผ่านสามารถรับรหัสใหม่ได้ที่ :arrow: Reset รหัสผ่าน
  3. มีปัญหาการใช้งาน แจ้งผู้ดูแลระบบได้ที่ :arrow: ติดต่อผู้ดูแลระบบ
  4. กำหนดการตั้งค่าส่วนตัว เช่นตั้งค่าภาษาเป็นไทยหรืออังกฤษดูได้ที่ :arrow: ตั้งค่าส่วนตัว
  5. การตั้งและตอบกระทู้ดูได้ที่ :arrow: วิธีการตั้งและตอบกระทู้
  6. การจัดรูปแบบตัวอักษรด้วย bbcode ในช่องแสดงความคิดเห็นดูได้ที่ :arrow: จัดรูปแบบตัวอักษร
  7. กำหนดขนาดตัวอักษรใน Browser ดูได้ที่ :arrow: กำหนดขนาดตัวอักษรใน Browser

[VBA] ต่อไฟล์ auto แนว Colunm (แนวตั้ง)

ฟอรัมถาม-ตอบปัญหาการใช้งาน MS Excel and VBA
Forum rules
  1. ไม่อนุญาตให้ใช้ภาษาแชทในการถามและตอบปัญหา ไม่ใช้คำว่า "คับ" หรือ "อ่ะครับ" แทนคำว่า "ครับ" ไม่ใช้คำว่า "เด๋ว" แทนคำว่า "เดี๋ยว" เป็นต้น เนื่องจากเมื่อแปลเป็นภาษาต่างประเทศแล้วจะให้ความหมายผิดไปจากที่ควรจะเป็น
  2. ห้ามถามโดยระบุชื่อผู้ตอบและต้องตั้งชื่อกระทู้ให้สื่อถึงปัญหาที่จะถาม ไม่ตั้งชื่อว่า ช่วยด้วยครับ, มีปัญหามาปรึกษาครับ เป็นต้น
  3. กรุณาอธิบายปัญหาและระบุคำตอบที่ต้องการมาในกระทู้ด้วยเสมอถึงแม้จะอธิบายไว้ในไฟล์แนบแล้วก็ตาม ทั้งนี้เพื่ออำนวยความสะดวกแก่เพื่อนสมาชิกในการค้นหาข้อมูล
  4. กรุณาแนบไฟล์ตัวอย่างพร้อมแสดงคำตอบที่ถูกต้องมาในไฟล์ด้วยเพื่อให้ง่ายต่อการทำความเข้าใจและสะดวกต่อการตอบคำถาม (ขนาดไฟล์ไม่เกิน 500Kb ขนาดภาพไม่เกิน 800*600 Pixel) ไม่แนบเป็น Link มาจากแหล่งอื่นที่อาจจะถูกลบทิ้งไปโดยต้นทางในภายหลัง นอกจากนี้ไม่ควรแนบไฟล์ที่มีข้อมูลสำคัญอันก่อให้เกิดความเสียหายกับตนเองและผู้อื่น
  5. กรณีเป็นคำถามเกี่ยวกับ Programming เช่น VBA, VB.Net, C#, SQL ฯลฯ ต้องลองเขียนมาเองก่อนเสมอ ถามเฉพาะที่ติดปัญหา ระบุ Module, Procedure ที่ติดปัญหาให้ชัดเจน กรุณาโพสต์ Code ให้แสดงเป็น Code คือเปิดด้วย [code] และปิดด้วย [/code] ตัวอย่างเช่น [code]dim r as range[/code] เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)
  6. กรุณาแจ้งผลการใช้งานเมื่อได้รับคำตอบว่าตรงกับความต้องการหรือไม่
kannaree
Member
Member
Posts: 128
Joined: Thu Nov 19, 2015 12:07 pm

[VBA] ต่อไฟล์ auto แนว Colunm (แนวตั้ง)

#1

Post by kannaree »

สวัสดีค่ะ
1. อยากสอบถามว่าถ้าต้องการเอาไฟล์มาต่อกัน แนวตั้งจะต้องแก้ไขโค้ดอย่างไรค่ะ
ลองดูแล้วทำไม่ได้ ได้แต่แนวนอนค่ะ
2. อีกอย่างค่ะ พอลอง test ดูแล้วลบข้อมูลเดิม กดเทสใหม่ ข้อมูลกลับไปต่อท้ายเป็น บรรทัดที่ไม่มีข้อมูลบรรทัดสุดท้าย
ข้อมูลไม่ขึ้นมาแสดงตรง b1
12.png

Code: Select all

Private Sub CommandButton1_Click()
Set cell_to_paste_next_dataset = Cells(1, 1)
 Set active_workbook = ActiveWorkbook
 Set active_sheet = Sheet2
 Application.DisplayAlerts = False

 File_Path = TextBox1.Value
 strName = Dir(File_Path & "\" & "*.xls")

 Do While strName <> vbNullString

 If active_workbook.Name <> strName And strName <> "" Then
 Workbooks.Open Filename:=File_Path & "\" & strName
 Set dataset_workbook = ActiveWorkbook
 Range(ActiveCell.SpecialCells(xlLastCell), Cells(1)).Copy
 active_sheet.Activate
 Cells(ActiveCell.SpecialCells(xlLastCell).Row, 1).Offset(1, 0).Select
 ActiveSheet.Paste
 dataset_workbook.Close
 End If
 strName = Dir
 Loop
 Application.DisplayAlerts = True
End Sub
TestmergeFile.xlsm
You do not have the required permissions to view the files attached to this post.
User avatar
snasui
Site Admin
Site Admin
Posts: 30736
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 365
Contact:

Re: [VBA] ต่อไฟล์ auto แนว Colunm (แนวตั้ง)

#2

Post by snasui »

:D ตัวอย่างการปรับ Code ครับ

Code: Select all

'...other code
Do While strName <> vbNullString
    If active_workbook.Name <> strName And strName <> "" Then
    Workbooks.Open Filename:=File_Path & "\" & strName
    Set dataset_workbook = ActiveWorkbook
    Range(ActiveCell.SpecialCells(xlLastCell), Cells(1)).Copy
    active_sheet.Activate
    active_sheet.Range("b" & Rows.Count).End(xlUp).Offset(1, 0).Select
    ActiveSheet.Paste
    dataset_workbook.Close
    End If
    strName = Dir
Loop
'...other code
kannaree
Member
Member
Posts: 128
Joined: Thu Nov 19, 2015 12:07 pm

Re: [VBA] ต่อไฟล์ auto แนว Colunm (แนวตั้ง)

#3

Post by kannaree »

ขอบคุณมากค่ะอาจารย์ แต่ลองทดสอบดูแล้ว ตารางไม่ต่อกันค่ะ เหมือนจะ copy วางซ้ำที่เดิม
19.png

อยากให้ต่อกันตามรูปด้านล่างค่ะ
20.png
You do not have the required permissions to view the files attached to this post.
kannaree
Member
Member
Posts: 128
Joined: Thu Nov 19, 2015 12:07 pm

Re: [VBA] ต่อไฟล์ auto แนว Colunm (แนวตั้ง)

#4

Post by kannaree »

หนูสามารถทำได้แล้ว แต่โค้ดไม่ค่อยสวยงามเท่าไหร่พอดีไม่ค่อยมีพื้นฐาน มีวิธีปรับโค้ดให้ดีกว่านี้ไหมค่ะ



Code: Select all

Do While strName <> vbNullString
    If active_workbook.Name <> strName And strName <> "" Then
    Workbooks.Open Filename:=File_Path & "\" & strName
    Set dataset_workbook = ActiveWorkbook
    Range(ActiveCell.SpecialCells(xlLastCell), Cells(1)).Copy
    active_sheet.Activate
    
    
    Dim i As Long
    Dim r As Long
    Dim j As Long
        
    
    i = Sheet3.Cells(2, Sheet3.Columns.Count).End(xlToLeft).Column
    r = i - 2

    MsgBox ("" & i)
    
    For j = 0 To i
    
    active_sheet.Range("b" & Rows.Count).End(xlUp).Offset(1, j).Select
    ActiveSheet.Paste
    j = j + r
    Next j
    dataset_workbook.Close
    End If
    strName = Dir
    Loop
User avatar
snasui
Site Admin
Site Admin
Posts: 30736
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 365
Contact:

Re: [VBA] ต่อไฟล์ auto แนว Colunm (แนวตั้ง)

#5

Post by snasui »

:D กรณี Code ทำงานไม่ผิดพลาดยังไม่จำเป็นต้องรีบปรับครับ เมื่อใดทีทำงานผิดพลาดค่อยถามมาอีกทีครับ
Post Reply