Скачать с ютуб สอน Excel VBA : การใช้ VBA นำเข้าข้อมูลจากไฟล์อื่น ๆ แบบเลือกได้ в хорошем качестве

สอน Excel VBA : การใช้ VBA นำเข้าข้อมูลจากไฟล์อื่น ๆ แบบเลือกได้

การใช้งาน Excel VBA นำเข้าข้อมูลจาก Excel ไฟล์อื่น ๆ แบบเลือกไฟล์ได้ ด้วยการเรียกใช้ File Dialog ============================================ แนะนำตัวครับ ผมชื่อ วิภาคย์ นะครับ หวังว่าจะเป็นประโยชน์กับหลายคนนะครับ ทำขึ้นเพราะอยากแชร์ครับ กั๊กไว้แล้วคันปาก 5555 ขอบคุณที่กด Like และ ติดตามนะครับ ============================================ Program : Microsoft Office 2019 or Office365 ============================================ Sub Import() Dim CrntWorkBook As Workbook 'ไฟล์ของเรา Dim SourceBook As Workbook 'ไฟล์ที่จะ Copy Dim SourceRange As Range 'range ของไฟล์ที่จะ Copy Dim Destination As Range 'range ของไฟล์ที่จะวาง Set CrntWorkBook = ActiveWorkbook With Application.FileDialog(msoFileDialogOpen) .Title = "เลือก File เลยจ้า" .InitialFileName = ThisWorkbook.Path & "\" .Filters.Clear .Filters.Add "Excel Files", "*.xl*;*.xm*" .AllowMultiSelect = False .Show If .SelectedItems.Count (เปลี่ยนตรงนี้เป็นเครื่องหมายมากกว่า ไม่ต้องใส่วงเล็บ) 0 Then Workbooks.Open .SelectedItems(1) Set SourceBook = ActiveWorkbook SourceBook.Activate Set SourceRange = Range("B2:C13") CrntWorkBook.Activate Set Destination = Range("A1") SourceRange.Copy Destination Destination.CurrentRegion.EntireColumn.AutoFit SourceBook.Activate Set SourceRange = Range("E2:F14") CrntWorkBook.Activate Set Destination = Range("D1") SourceRange.Copy Destination Destination.CurrentRegion.EntireColumn.AutoFit SourceBook.Close False MsgBox ("เสร็จ!") Else MsgBox ("ท่านไม่ได้เลือกไฟล์ File") 'ถ้าไม่ได้เลือกไฟล์ End If End With End Sub ============================================