จะดูดข้อมูลจากอีก Workbook นึงไปยังอีก Workbook นึง

[prawitj]

ผมได้รับมอบหมายให้ดูดข้อความจาก Workbbook นึงไปยังอีก Workbook นึงโดยผมได้สร้างปุ่ม ดูดข้อมูลมาแล้ว และผมมี Code ในการดูดข้อมูล แต่ที่เคยทำเป็นการดูดข้าม Sheet ไม่เคยดูดข้าม Workbook อยากจะสอบถามอาจารย์ว่าถ้าจะดูดข้าม Workbook จะทำอย่างไรครับ โดยผมมี path ของ Workbook อยู่แล้วคือ

\\10.10.1.211\F&I-Tchab F&I\F&I-Tchab-F&I PO\F and I PO.xls

รบกวนอาจารย์ด้วยครับ

ปล1.ผมเคยดูดโดยใช้ pivot แต่เนื่องจากข้อจำกัดของมันคือ 250 ตัวอักษร แต่การเขียนมันยาวกว่านั้นครับ ทำให้อีกฝ่ายที่ดูข้อมูลได้ข้อมูลไม่ครบ
ปล.2 เป็นการดูดข้อมูลใน network ครับ

[prawitj]

ลืมบอกอาจารยืว่า ผมไม่ใช้ vlookup หรือ index เพราะ มันทำให้ File ทำงานข้าครับ เนื่องจากข้อมูลมหาศาลมากผมเลยตัดสินใจใช้ vba มาดูดข้อมูลเป็น Batch file ในแต่ละช่วง ถ้าเสียเวลาก็เสียแค่ครั้งเดียวครับ

[bank9597]

หากใช้ VBA ต้องลองเขียนมาเองก่อนครับ ติดส่วนไหนค่อยถามกันไปเรื่อยๆครับ

[prawitj]

Private Sub btnRefresh_Click()
On Error Resume Next
Dim wb As Workbook 'F&I PO Workbook
Dim rfAll As Range 'All Rang in F&I Workbook
Dim rf As Range 'Each range in f&i
Dim rsAll As Range 'All Range in sales po
Dim rs As Range 'Each Range in sales po
Dim rst As Range 'last range in sales po
Dim sh As Worksheet 'worksheet in workbook

wb = "\\10.10.1.211\F&I-Tchab F&I\F&I-Tchab-F&I PO\F and I PO.xls"

For Each sh In wb.Worksheets
If sh.Name = "PO" Then
Set rfAll = sh.Range("A4", sh.Range("A" & Rows.Count).End(xlUp))
With Sheets("Movement")
Set rsAll = .Range("A6", "AM20000")
Set rs = .Range("A6:AM6")
rsAll.Borders.LineStyle = xlNone
rsAll.Clear
rfAll.Resize(1, 39).Copy
rs.PasteSpecial xlPasteValues
' Set rs = .Range("A6", sh.Range("AM" & Rows.Count).End(xlUp))
' rs.Borders.LineStyle = xlContinuous
End With
End If
Next sh
End Sub
ผมลองเขียนมาแล้วครับ แต่ไม่สามารถดูดข้อมูลได้

[bank9597]

การที่ต้องใช้ VBA จำเป็นต้องแนบไฟล์มาด้วยเสมอครับ (ขออภัยที่แจ้งไปไม่ครบ) เพราะจะได้สามารถทดสอบได้ว่ามันติดปัญหาตรงส่วนไหนครับ

[prawitj]

ผมจะดูดข้อมูลจาก F&I PO.xls sheet PO ตั้งแต่คอลัมภน์ A-AM ทั้งหมดทุกแถวที่มีข้อมูลอยู่ มาที่ PO GM.xls ที่ sheet movement ครับ ที่ไม่่ใช้ pivot เนื่องจากช่อง AM มัน แสดงได้แค่ 250 character ทำให้ Sales ไม่ทราบความเคลื่อนไหวของ F&I (การเงิน)

[snasui]

เขียน Code ให้เปิดไฟล์ F and I PO.xls ขึ้นมาก่อนที่จะดึงข้อมูล เมื่อดึงเสร็จแล้วคิดปิดครับ

[prawitj]

ขอบคุณครับ