:D snasui.com ยินดีต้อนรับ :D
ยินดีต้อนรับสู่กระดานถามตอบ Excel and VBA และอื่น ๆ ที่เป็นมิตรกับทุกท่าน มีไฟล์แนบมหาศาล ช่วยให้ท่านค้นหาและติดตามศึกษาได้โดยง่าย :thup: สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ :arrow: ระบุ Version ของ Excel
:!: โปรดทราบ :!:
  1. กรุณาอ่านกฎการใช้บอร์ด (Forum rules) ในตำแหน่งด้านบนของแต่ละบอร์ด
  2. การสมัครสมาชิก การ Login การกู้คืนรหัสผ่าน
    1. สมัครสมาชิกดูขั้นตอนได้ที่ :arrow: สมัครสมาชิก
    2. Login เข้าระบบโดยคลิกปุ่ม Login ตรงมุมขวาบนของหน้านี้ :roll:
    3. การ Login ผ่าน Facebook ดูวิธีที่ :arrow: Login ผ่าน Facebook
    4. ลืมรหัสผ่านสามารถรับรหัสใหม่ได้ที่ :arrow: Reset รหัสผ่าน
  3. มีปัญหาการใช้งาน แจ้งผู้ดูแลระบบได้ที่ :arrow: ติดต่อผู้ดูแลระบบ
  4. กำหนดการตั้งค่าส่วนตัว เช่นตั้งค่าภาษาเป็นไทยหรืออังกฤษดูได้ที่ :arrow: ตั้งค่าส่วนตัว
  5. การตั้งและตอบกระทู้ดูได้ที่ :arrow: วิธีการตั้งและตอบกระทู้
  6. การจัดรูปแบบตัวอักษรด้วย bbcode ในช่องแสดงความคิดเห็นดูได้ที่ :arrow: จัดรูปแบบตัวอักษร
  7. กำหนดขนาดตัวอักษรใน Browser ดูได้ที่ :arrow: กำหนดขนาดตัวอักษรใน Browser

ขอวิธี ส่งข้อมูลข้ามเครื่อง แต่อยู่ในวงLAN เดียวกันครับ

ฟอรัมถาม-ตอบปัญหาการใช้งานสูตรและฟังก์ชัน Excel
Forum rules
  1. ไม่อนุญาตให้ใช้ภาษาแชทในการถามและตอบปัญหา ไม่ใช้คำว่า "คับ" หรือ "อ่ะครับ" แทนคำว่า "ครับ" ไม่ใช้คำว่า "เด๋ว" แทนคำว่า "เดี๋ยว" เป็นต้น เนื่องจากเมื่อแปลเป็นภาษาต่างประเทศแล้วจะให้ความหมายผิดไปจากที่ควรจะเป็น
  2. ห้ามถามโดยระบุชื่อผู้ตอบและต้องตั้งชื่อกระทู้ให้สื่อถึงปัญหาที่จะถาม ไม่ตั้งชื่อว่า ช่วยด้วยครับ, มีปัญหามาปรึกษาครับ เป็นต้น
  3. กรุณาอธิบายปัญหาและระบุคำตอบที่ต้องการมาในกระทู้ด้วยเสมอถึงแม้จะอธิบายไว้ในไฟล์แนบแล้วก็ตาม ทั้งนี้เพื่ออำนวยความสะดวกแก่เพื่อนสมาชิกในการค้นหาข้อมูล
  4. กรุณาแนบไฟล์ตัวอย่างพร้อมแสดงคำตอบที่ถูกต้องมาในไฟล์ด้วยเพื่อให้ง่ายต่อการทำความเข้าใจและสะดวกต่อการตอบคำถาม (ขนาดไฟล์ไม่เกิน 500Kb ขนาดภาพไม่เกิน 800*600 Pixel) ไม่แนบเป็น Link มาจากแหล่งอื่นที่อาจจะถูกลบทิ้งไปโดยต้นทางในภายหลัง นอกจากนี้ไม่ควรแนบไฟล์ที่มีข้อมูลสำคัญอันก่อให้เกิดความเสียหายกับตนเองและผู้อื่น
  5. กรณีเป็นคำถามเกี่ยวกับ Programming เช่น VBA, VB.Net, C#, SQL ฯลฯ ต้องลองเขียนมาเองก่อนเสมอ ถามเฉพาะที่ติดปัญหา ระบุ Module, Procedure ที่ติดปัญหาให้ชัดเจน กรุณาโพสต์ Code ให้แสดงเป็น Code คือเปิดด้วย [code] และปิดด้วย [/code] ตัวอย่างเช่น [code]dim r as range[/code] เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)
  6. กรุณาแจ้งผลการใช้งานเมื่อได้รับคำตอบว่าตรงกับความต้องการหรือไม่
Post Reply
User avatar
sdmania
Bronze
Bronze
Posts: 320
Joined: Tue Sep 07, 2010 11:38 am
Location: นครสวรรค์

ขอวิธี ส่งข้อมูลข้ามเครื่อง แต่อยู่ในวงLAN เดียวกันครับ

#1

Post by sdmania »

สวัสดีครับอาจารย์
ผมใช้ excel 2003 ครับ
ผมเคยมาขอตัวอย่าง จากกระทู้นี้ครับแต่อันนั้นเป็นการ saveข้ามโฟลเดอร์ได้ครับ

http://www.snasui.com/viewtopic.php?f=3&t=3816
ขอขอบคุณอาจารย์และคุณ bank อีกทีครับ

คราวนี้ผมขอวิธีส่งข้อมูลข้ามเครื่องแต่อยู่ในวงLan เดียวกันด้วยครับ
ผมระบุที่อยู่ข้ามเครื่องไม่เป็นครับอาจารย์
You do not have the required permissions to view the files attached to this post.
Top
User avatar
sdmania
Bronze
Bronze
Posts: 320
Joined: Tue Sep 07, 2010 11:38 am
Location: นครสวรรค์

Re: ขอวิธี ส่งข้อมูลข้ามเครื่อง แต่อยู่ในวงLAN เดียวกันครับ

#2

Post by sdmania »

อันนี้เป็นไฟล์ที่ผม เคยลองไปหลายแบบ แต่ไม่ผ่านติด debug ตรงเรื่อง"ที่อยู่ในการส่งข้ามเครื่อง"ครับ
You do not have the required permissions to view the files attached to this post.
Top
User avatar
snasui
Site Admin
Site Admin
Posts: 31255
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 2019
Contact:
Contact snasui

Re: ขอวิธี ส่งข้อมูลข้ามเครื่อง แต่อยู่ในวงLAN เดียวกันครับ

#3

Post by snasui »

:D ให้เปิดไฟล์ต้นทางขึ้นมาก่อนเพื่อจะได้เขียน Code ง่ายขึ้น เมื่อเปิดขึ้นมาแล้วเป็นการอ้างแค่ชื่อ Workbook ไม่ต้องอ้าง Path ครับ
Top
User avatar
sdmania
Bronze
Bronze
Posts: 320
Joined: Tue Sep 07, 2010 11:38 am
Location: นครสวรรค์

Re: ขอวิธี ส่งข้อมูลข้ามเครื่อง แต่อยู่ในวงLAN เดียวกันครับ

#4

Post by sdmania »

:roll: ยังไม่ได้ครับอาจารย์

ผมขอลำดับขั้นตอนก่อนนะครับ
1. เปิด book2.xls ที่เครื่อง com01(server)

2. เปิด book1.xls ที่เครื่อง com03(sin_shuea)เพื่อพิมพ์ข้อมูลลูกค้า กดปุ่มมาโคร เพื่อส่งข้อมูลไปหา book2.xls ที่อยู่ในเครื่อง com01(server)ครับ แต่ผมได้ error ดังภาพนี้ด้านล่างนี้ครับ
You do not have the required permissions to view the files attached to this post.
Top
User avatar
sdmania
Bronze
Bronze
Posts: 320
Joined: Tue Sep 07, 2010 11:38 am
Location: นครสวรรค์

Re: ขอวิธี ส่งข้อมูลข้ามเครื่อง แต่อยู่ในวงLAN เดียวกันครับ

#5

Post by sdmania »

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

อันนี้เป็นไฟล์ตัวอย่างที่ผมลองเมื่อเช้านี้น่ะครับ
book1.xls คือตัวที่จะส่งข้อมูลครับ
book2.xls คือตัวที่จะรับข้อมูลครับ
You do not have the required permissions to view the files attached to this post.
Top
User avatar
tupthai
Bronze
Bronze
Posts: 302
Joined: Sat Feb 04, 2012 2:49 pm

Re: ขอวิธี ส่งข้อมูลข้ามเครื่อง แต่อยู่ในวงLAN เดียวกันครับ

#6

Post by tupthai »

ลองใช้วิธี บันทึกมาโครดูครับ
record macro>file>open>....
Top
User avatar
snasui
Site Admin
Site Admin
Posts: 31255
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 2019
Contact:
Contact snasui

Re: ขอวิธี ส่งข้อมูลข้ามเครื่อง แต่อยู่ในวงLAN เดียวกันครับ

#7

Post by snasui »

:D
sdmania wrote::roll: ยังไม่ได้ครับอาจารย์

ผมขอลำดับขั้นตอนก่อนนะครับ
1. เปิด book2.xls ที่เครื่อง com01(server)

2. เปิด book1.xls ที่เครื่อง com03(sin_shuea)เพื่อพิมพ์ข้อมูลลูกค้า กดปุ่มมาโคร เพื่อส่งข้อมูลไปหา book2.xls ที่อยู่ในเครื่อง com01(server)ครับ แต่ผมได้ error ดังภาพนี้ด้านล่างนี้ครับ
ไฟล์ในข้อ 1 ให้เปิดจากเครื่องตามข้อ 2 นั่นหมายความว่า ทั้ง 2 ไฟล์เปิดจากเครื่องเดียวกันครับ
Top
User avatar
sdmania
Bronze
Bronze
Posts: 320
Joined: Tue Sep 07, 2010 11:38 am
Location: นครสวรรค์

Re: ขอวิธี ส่งข้อมูลข้ามเครื่อง แต่อยู่ในวงLAN เดียวกันครับ

#8

Post by sdmania »

:flw: อาจารย์ครับถ้าจะให้ saveข้อมูลข้ามเครื่องและข้ามworkbook excel 2003ทำได้ไหมครับ??
Top
User avatar
snasui
Site Admin
Site Admin
Posts: 31255
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 2019
Contact:
Contact snasui

Re: ขอวิธี ส่งข้อมูลข้ามเครื่อง แต่อยู่ในวงLAN เดียวกันครับ

#9

Post by snasui »

:D ช่วยอธิบายคำว่า Save ข้ามเครื่องว่ามีวิธีการอย่างไรครับ

ถ้า Save ไฟล์ในเครื่องนี้ไปเก็บไว้ในเครื่องใหม่ สามารถทำได้ง่าย ๆ ตามปกติ

ถ้าต้องการนำข้อมูลในไฟล์ปัจจุบันไปต่อท้ายข้อมูลในไฟล์ที่อยู่ในเครื่องอื่น สามารถทำได้ แต่การทำเช่นนี้ไม่ง่ายสำหรับบุคคลทั่ว ๆ ไป หากไฟล์นั้นไม่ได้เปิดขึ้นมาพร้อมกับไฟล์ที่ส่งข้อมูลไปเก็บ เพราะต้องใช้ Connection String ใช้ SQL Statement ในการจัดการครับ
Top
User avatar
sdmania
Bronze
Bronze
Posts: 320
Joined: Tue Sep 07, 2010 11:38 am
Location: นครสวรรค์

Re: ขอวิธี ส่งข้อมูลข้ามเครื่อง แต่อยู่ในวงLAN เดียวกันครับ

#10

Post by sdmania »

:) ขอบคุณครับอาจารย์ ผมขอเวลาไปเตรียมคำอธิบาย (ระบบเดิม ระบบที่ผมเสนอ ระบบที่ใช้อยู่ทุกวันนี้)ครับ อาจจะเข้ามาโพสต์อธิบาย ช่วงค่ำวันนี้ครับผม
Top
User avatar
snasui
Site Admin
Site Admin
Posts: 31255
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 2019
Contact:
Contact snasui

Re: ขอวิธี ส่งข้อมูลข้ามเครื่อง แต่อยู่ในวงLAN เดียวกันครับ

#11

Post by snasui »

:lol: ผมอยากทราบเท่าที่ถามไปเท่านั้นครับว่าเป็นการ Save แบบใด
Top
User avatar
sdmania
Bronze
Bronze
Posts: 320
Joined: Tue Sep 07, 2010 11:38 am
Location: นครสวรรค์

Re: ขอวิธี ส่งข้อมูลข้ามเครื่อง แต่อยู่ในวงLAN เดียวกันครับ

#12

Post by sdmania »

ขอโทษครับที่ผมตอบออกนอกประเด็นครับ


จากที่อาจารย์แนะนำมา
"ถ้าต้องการนำข้อมูลในไฟล์ปัจจุบันไปต่อท้ายข้อมูลในไฟล์ที่อยู่ในเครื่องอื่น สามารถทำได้ แต่การทำเช่นนี้ไม่ง่ายสำหรับบุคคลทั่ว ๆ ไป หากไฟล์นั้นไม่ได้เปิดขึ้นมาพร้อมกับไฟล์ที่ส่งข้อมูลไปเก็บ เพราะต้องใช้ Connection String ใช้ SQL Statement ในการจัดการครับ"

วิธีนี้เลยครับอาจารย์ ผมต้องการให้เมื่อมีข้อมูลใหม่ ก็ให้นำไปต่อท้ายกับไฟล์ที่อยู่ในเครื่องอื่นซึ่งเป็นไฟล์เก็บข้อมูลหลักๆครับ
Top
User avatar
sdmania
Bronze
Bronze
Posts: 320
Joined: Tue Sep 07, 2010 11:38 am
Location: นครสวรรค์

Re: ขอวิธี ส่งข้อมูลข้ามเครื่อง แต่อยู่ในวงLAN เดียวกันครับ

#13

Post by sdmania »

ผมต้องทำอย่างไรต่อไปบ้างครับอาจารย์
Top
joo
Gold
Gold
Posts: 1213
Joined: Sat Apr 17, 2010 3:50 pm

Re: ขอวิธี ส่งข้อมูลข้ามเครื่อง แต่อยู่ในวงLAN เดียวกันครับ

#14

Post by joo »

:D ลองวิธีพื้นๆ แบบนี้หรือยังครับ

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
Top
User avatar
sdmania
Bronze
Bronze
Posts: 320
Joined: Tue Sep 07, 2010 11:38 am
Location: นครสวรรค์

Re: ขอวิธี ส่งข้อมูลข้ามเครื่อง แต่อยู่ในวงLAN เดียวกันครับ

#15

Post by sdmania »

ขอบคุณครับคุณ joo

ผมขอรีบนำไปลองดูนะครับ
Top
User avatar
sdmania
Bronze
Bronze
Posts: 320
Joined: Tue Sep 07, 2010 11:38 am
Location: นครสวรรค์

Re: ขอวิธี ส่งข้อมูลข้ามเครื่อง แต่อยู่ในวงLAN เดียวกันครับ

#16

Post by sdmania »

:D ได้แล้วครับ ขอบคุณมากครับผม คุณ joo :thup:
Top
Post Reply

Return to “Excel Formulas & Functions”