เพื่อมุ่งให้เกิดคุณภาพจากการอบรมสูงสุด Excel Expert Training ให้การอบรม Excel กลุ่มเล็กๆ ไม่เกิน 6 คนทุกคนสามารถเรียนรู้ Excel อย่างใกล้ชิด จะมาคนเดียวหรือมาเป็นกลุ่มแล้วนัดวันอบรมแบบส่วนตัวก็ได้ ผู้เข้าอบรมทุกคนสามารถติดตามเนื้อหาที่อบรมได้อย่างชัดเจนจากจอภาพด้านหน้าของตัวเอง
Results 1 to 3 of 3

Thread: อยากได้ VBA code เพื่อ search file ใน folder

  1. #1
    20814
    Guest

    อยากได้ VBA code เพื่อ search file ใน folder

    คือผมมี workbook A เป็นตัวหลักอยู่เพื่อใช้เป็นที่สำหรับ record ข้อมูลการใช้งานของเครื่องจักรต่างๆลงใน workbook ไฟล์อื่นๆ และผมต้องการที่จะแสดงผลการใช้งานโดยนำข้อมูลล่าสุดที่ record มารวมไว้ใน workbook B

    ปัญหาคือ ผมอยากให้โปรแกรมไปค้นหา File ใน Folder ที่กำหนด โดยค้นหาทุก workbook และทุก worksheet โดยไม่ต้องกำหนดชื่อ workbookและworksheet ครับ

    ขอคุณล่วงหน้าครับ

  2. #2
    20814
    Guest
    ช่วยหน่อยน๊ะครับ ผมคิดไม่ออกจริงๆ

  3. #3
    pichartyapan
    Guest
    Quote Originally Posted by 20814 View Post
    ช่วยหน่อยน๊ะครับ ผมคิดไม่ออกจริงๆ
    ลองอ่าน โค้ดนี้ดูครับ ถ้าเข้าใจ ก็แสดงว่าสามารถนำไปใช้ได้ แต่ถ้าไม่เข้าใจ ก็แสดงว่าไม่น่าเอาไปใช้เพราะจะแก้ไขเองไม่ได้ ประยุกต์ไม่เป็นครับ
    (ขอบคุณ อาจารย์สมเกียรติ ผมได้โค้ดชุดนี้จากอาจารย์และนำไปประยุกต์ต่อเหมือนกันครับ)

    Sub GetData()
    On Error Resume Next
    Dim Directory As String, f As String
    Application.ScreenUpdating = False
    Directory = ThisWorkbook.Path & "\"
    f = Dir(Directory)
    If f <> ThisWorkbook.Name Then
    Workbooks.Open Filename:=ThisWorkbook.Path & "\" & f
    CopyPaste
    End If
    Do While f <> ""
    f = Dir
    If f <> "" And f <> ThisWorkbook.Name Then
    Workbooks.Open Filename:=ThisWorkbook.Path & "\" & f
    CopyPaste
    End If
    Loop
    Application.ScreenUpdating = True
    End Sub
    ---------------------------------------------------------------------------------------
    Sub CopyPaste()
    Application.Goto Reference:="R15C1:R21C6"
    Selection.Copy
    ActiveWorkbook.Close
    Application.Goto Reference:="Target"
    ActiveSheet.Paste
    End Sub

Similar Threads

  1. Replies: 8
    Last Post: 25 Sep 2009, 15:54
  2. Replies: 2
    Last Post: 21 Apr 2009, 16:10
  3. Replies: 2
    Last Post: 21 Jan 2009, 18:11
  4. การจัดการ File and Folder
    By supatsiri_c in forum Excel Expert Forum Library 2012 - 2007
    Replies: 1
    Last Post: 10 Oct 2008, 10:59
  5. เขียน Code เพื่อ Copy ค่าในเซลล์ที่ Merge
    By nutty in forum Excel Expert Forum Library 2012 - 2007
    Replies: 2
    Last Post: 2 Jul 2007, 13:21

Posting Permissions

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