Snasui Excel Forum

ขอบคุณมากครับ ใช้งานได้แล้ว

ผมลองเขียนแบบนี้ พอลองใช้งาน macro แล้วมันเปิดแค่ file Data1 ขึ้นมาเฉยๆ ไม่ยอมดึงข้อมูลมาใส่


Sub AddData()

Dim i As Long
Dim r As Range
Dim oFile As Variant
Dim oSheet As Variant
Dim oRange As Variant

Dim wbk As Workbook

On Error Resume Next
With Worksheets("Sheet1")
Set r = .Range(.Range("A1 ...

สวัสดีครับอาจารย์ คือผมต้องการที่จะสร้าง Code เพื่อที่จะดึงข้อมูลจากต่างไฟล์ โดยที่ รับค่า ที่อยู่ไฟล์, ชื่อไฟล์, ชื่อชีต, cellที่อยู่ของข้อมูล

สาเหตุที่ต้องทำอย่างนี้ เพราะว่า ในไฟล์งาน มีข้อมูลของชื่อไฟล์อยู่แล้ว และต้องการจะนำมาใช้ในการดึงข้อมูลจากไฟล์นั้น แต่ให้วิธีการดึงปกติไม่ได ...