Page 1 of 1
ขอวิธี ส่งข้อมูลข้ามเครื่อง แต่อยู่ในวงLAN เดียวกันครับ
Posted: Wed Apr 10, 2013 4:27 pm
by sdmania
สวัสดีครับอาจารย์
ผมใช้ excel 2003 ครับ
ผมเคยมาขอตัวอย่าง จากกระทู้นี้ครับแต่อันนั้นเป็นการ saveข้ามโฟลเดอร์ได้ครับ
http://www.snasui.com/viewtopic.php?f=3&t=3816
ขอขอบคุณอาจารย์และคุณ bank อีกทีครับ
คราวนี้ผมขอวิธีส่งข้อมูลข้ามเครื่องแต่อยู่ในวงLan เดียวกันด้วยครับ
ผมระบุที่อยู่ข้ามเครื่องไม่เป็นครับอาจารย์
Re: ขอวิธี ส่งข้อมูลข้ามเครื่อง แต่อยู่ในวงLAN เดียวกันครับ
Posted: Wed Apr 10, 2013 4:29 pm
by sdmania
อันนี้เป็นไฟล์ที่ผม เคยลองไปหลายแบบ แต่ไม่ผ่านติด debug ตรงเรื่อง"ที่อยู่ในการส่งข้ามเครื่อง"ครับ
Re: ขอวิธี ส่งข้อมูลข้ามเครื่อง แต่อยู่ในวงLAN เดียวกันครับ
Posted: Wed Apr 10, 2013 4:33 pm
by snasui
ให้เปิดไฟล์ต้นทางขึ้นมาก่อนเพื่อจะได้เขียน Code ง่ายขึ้น เมื่อเปิดขึ้นมาแล้วเป็นการอ้างแค่ชื่อ Workbook ไม่ต้องอ้าง Path ครับ
Re: ขอวิธี ส่งข้อมูลข้ามเครื่อง แต่อยู่ในวงLAN เดียวกันครับ
Posted: Thu Apr 11, 2013 9:38 am
by sdmania
ยังไม่ได้ครับอาจารย์
ผมขอลำดับขั้นตอนก่อนนะครับ
1. เปิด book2.xls ที่เครื่อง com01(server)
2. เปิด book1.xls ที่เครื่อง
com03(sin_shuea)เพื่อพิมพ์ข้อมูลลูกค้า กดปุ่มมาโคร เพื่อส่งข้อมูลไปหา book2.xls ที่อยู่ในเครื่อง com01(server)ครับ แต่ผมได้ error ดังภาพนี้ด้านล่างนี้ครับ
Re: ขอวิธี ส่งข้อมูลข้ามเครื่อง แต่อยู่ในวงLAN เดียวกันครับ
Posted: Thu Apr 11, 2013 9:46 am
by sdmania
รบกวนอาจารย์แนะนำด้วยครับ
อันนี้เป็นไฟล์ตัวอย่างที่ผมลองเมื่อเช้านี้น่ะครับ
book1.xls คือตัวที่จะส่งข้อมูลครับ
book2.xls คือตัวที่จะรับข้อมูลครับ
Re: ขอวิธี ส่งข้อมูลข้ามเครื่อง แต่อยู่ในวงLAN เดียวกันครับ
Posted: Thu Apr 11, 2013 10:30 am
by tupthai
ลองใช้วิธี บันทึกมาโครดูครับ
record macro>file>open>....
Re: ขอวิธี ส่งข้อมูลข้ามเครื่อง แต่อยู่ในวงLAN เดียวกันครับ
Posted: Thu Apr 11, 2013 10:39 am
by snasui
sdmania wrote: ยังไม่ได้ครับอาจารย์
ผมขอลำดับขั้นตอนก่อนนะครับ
1. เปิด book2.xls ที่เครื่อง com01(server)
2. เปิด book1.xls ที่เครื่อง
com03(sin_shuea)เพื่อพิมพ์ข้อมูลลูกค้า กดปุ่มมาโคร เพื่อส่งข้อมูลไปหา book2.xls ที่อยู่ในเครื่อง com01(server)ครับ แต่ผมได้ error ดังภาพนี้ด้านล่างนี้ครับ
ไฟล์ในข้อ 1 ให้เปิดจากเครื่องตามข้อ 2 นั่นหมายความว่า ทั้ง 2 ไฟล์เปิดจากเครื่องเดียวกันครับ
Re: ขอวิธี ส่งข้อมูลข้ามเครื่อง แต่อยู่ในวงLAN เดียวกันครับ
Posted: Thu Apr 11, 2013 11:12 am
by sdmania
อาจารย์ครับถ้าจะให้ saveข้อมูลข้ามเครื่องและข้ามworkbook excel 2003ทำได้ไหมครับ??
Re: ขอวิธี ส่งข้อมูลข้ามเครื่อง แต่อยู่ในวงLAN เดียวกันครับ
Posted: Thu Apr 11, 2013 11:54 am
by snasui
ช่วยอธิบายคำว่า Save ข้ามเครื่องว่ามีวิธีการอย่างไรครับ
ถ้า Save ไฟล์ในเครื่องนี้ไปเก็บไว้ในเครื่องใหม่ สามารถทำได้ง่าย ๆ ตามปกติ
ถ้าต้องการนำข้อมูลในไฟล์ปัจจุบันไปต่อท้ายข้อมูลในไฟล์ที่อยู่ในเครื่องอื่น สามารถทำได้ แต่การทำเช่นนี้ไม่ง่ายสำหรับบุคคลทั่ว ๆ ไป หากไฟล์นั้นไม่ได้เปิดขึ้นมาพร้อมกับไฟล์ที่ส่งข้อมูลไปเก็บ เพราะต้องใช้ Connection String ใช้ SQL Statement ในการจัดการครับ
Re: ขอวิธี ส่งข้อมูลข้ามเครื่อง แต่อยู่ในวงLAN เดียวกันครับ
Posted: Thu Apr 11, 2013 2:05 pm
by sdmania
ขอบคุณครับอาจารย์ ผมขอเวลาไปเตรียมคำอธิบาย (ระบบเดิม ระบบที่ผมเสนอ ระบบที่ใช้อยู่ทุกวันนี้)ครับ อาจจะเข้ามาโพสต์อธิบาย ช่วงค่ำวันนี้ครับผม
Re: ขอวิธี ส่งข้อมูลข้ามเครื่อง แต่อยู่ในวงLAN เดียวกันครับ
Posted: Thu Apr 11, 2013 8:29 pm
by snasui
ผมอยากทราบเท่าที่ถามไปเท่านั้นครับว่าเป็นการ Save แบบใด
Re: ขอวิธี ส่งข้อมูลข้ามเครื่อง แต่อยู่ในวงLAN เดียวกันครับ
Posted: Fri Apr 12, 2013 2:43 pm
by sdmania
ขอโทษครับที่ผมตอบออกนอกประเด็นครับ
จากที่อาจารย์แนะนำมา
"ถ้าต้องการนำข้อมูลในไฟล์ปัจจุบันไปต่อท้ายข้อมูลในไฟล์ที่อยู่ในเครื่องอื่น สามารถทำได้ แต่การทำเช่นนี้ไม่ง่ายสำหรับบุคคลทั่ว ๆ ไป หากไฟล์นั้นไม่ได้เปิดขึ้นมาพร้อมกับไฟล์ที่ส่งข้อมูลไปเก็บ เพราะต้องใช้ Connection String ใช้ SQL Statement ในการจัดการครับ"
วิธีนี้เลยครับอาจารย์ ผมต้องการให้เมื่อมีข้อมูลใหม่ ก็ให้นำไปต่อท้ายกับไฟล์ที่อยู่ในเครื่องอื่นซึ่งเป็นไฟล์เก็บข้อมูลหลักๆครับ
Re: ขอวิธี ส่งข้อมูลข้ามเครื่อง แต่อยู่ในวงLAN เดียวกันครับ
Posted: Wed Apr 17, 2013 11:30 am
by sdmania
ผมต้องทำอย่างไรต่อไปบ้างครับอาจารย์
Re: ขอวิธี ส่งข้อมูลข้ามเครื่อง แต่อยู่ในวงLAN เดียวกันครับ
Posted: Wed Apr 17, 2013 12:27 pm
by joo
ลองวิธีพื้นๆ แบบนี้หรือยังครับ
Code: Select all
Sub Click_send_data_book()
Dim n As Range, sn As Range
intRows = Rows.Count
With Workbooks.Open("\\data_chl_01\work001\Book2.xls").Worksheets("Sheet1")
Set n = .Range("A" & intRows).End(xlUp).Offset(1, 0)
End With
Set sn = Workbooks("Book1.xls").Worksheets("sheet1").Range("b1:d1")
sn.Copy
n.PasteSpecial xlPasteValues
Application.CutCopyMode = False
MsgBox "ส่งข้อมูลแล้ว"
Workbooks("Book2.xls").Save
Workbooks("Book2.xls").Close
End Sub
Re: ขอวิธี ส่งข้อมูลข้ามเครื่อง แต่อยู่ในวงLAN เดียวกันครับ
Posted: Wed Apr 17, 2013 4:16 pm
by sdmania
ขอบคุณครับคุณ joo
ผมขอรีบนำไปลองดูนะครับ
Re: ขอวิธี ส่งข้อมูลข้ามเครื่อง แต่อยู่ในวงLAN เดียวกันครับ
Posted: Thu Apr 18, 2013 12:38 pm
by sdmania
ได้แล้วครับ ขอบคุณมากครับผม คุณ joo
