สอบถามการใช้ Listbox rowsource จากคนละ workbook

[beeratius]

สวัสดีครับรบกวนสอบถามการอ้างอิงข้อมูลเพื่อเอามาใช้ใน listbox จากต่าง workbook กันครับ
ดึงข้อมูลจาก
workbook ชื่อ Data
Sheet ชื่อ Database
range ตั้งแต่ A2 ถึง I2
มาโชว์ใน Listbox1
ผมใช้ Code ตามนี้ครับแต่ Run แล้วไม่ผ่านครับ
ขอคำแนะนำด้วยครับ

Code: Select all

 
With form1
 .ListBox1.RowSource = Workbooks("data.xlsx").Sheets("Database").Range("A2:I2")
End With

[parakorn]

มีไฟล์แนบไหมครับ

[beeratius]

ขอบคุณครับ
ผมแนบให้ 2 ไฟล์ครับ
1.Book1.xlsx ใช้เป็นไฟล์ที่ใช้อ้างอิงข้อมูล
2.Book2.xlsm เป็นไฟล์ที่ต้องการดึงข้อมุลจาก Book1 มาแสดงใน listbox ครับ

Code: Select all

Private Sub UserForm_Initialize()
With UserForm1
.ListBox1.RowSource = Workbooks("Book1.xlsx").Sheets("Sheet1").Range("A1:B17")
.ListBox1.ColumnCount = 2
.ListBox1.ColumnHeads = True
.ListBox1.ColumnWidths = "200,200"
End With
End Sub

[snasui]

ตัวอย่าง Code ครับ

.ListBox1.RowSource = "[Book1.xlsx]Sheet1!A1:B17"

[beeratius]

ใช้ได้ตามที่ต้องการครับอาจารย์ ขอบคุณครับ