Sned Data ไปยังอีกไฟล์โดยไม่ต้องเปิดไฟล์นั้น

[revotion]

อยากจะสอบถามหน่อยครับ เราควรจะเพิ่ม Code อย่างไหร่เพื่อที่จะ
เวลาที่จะส่งข้อมูลไปยังอีกไฟล์โดยที่ไม่ต้องเปิดไฟล์ที่รับข้อมูล เพราะตอนนี้ทำได้แค่ต้องเปิดทั้ง 2 ไฟล์พร้อมๆกัน
ที่จะทำแบบนี้เพราะว่างานบ้างงานต้อง Save as ไปเรื่อยๆ จึงจำเป็นต้องมี Database แยกไว้อีก 1 ไฟล์ครับ
รบกวนขอคำชี้แนะด้วยครับ

Code: Select all

Sub SendDataToFile()
MyVar = [Input]
[Target] = MyVar
End Sub

[snasui]

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

สำหรับ Code ข้างต้นควรลดให้เหลือตามด้านล่าง ไม่จำเป็นต้องผ่าน MyVar แต่อย่างใด

Code: Select all

Sub SendDataToFile()
[Target].Value = [Input].Value
End Sub

การทำงานลักษณะที่ต้องเปิดไฟล์ควรจะเป็นลักษณะนี้ครับ

1. ใช้คำสั่งให้เปิดไฟล์ปลายทาง
2. วางข้อมูลและ Save
3. ปิดไฟล์ปลายทาง

การจะปิดไฟล์ปลายทางให้พิจารณาว่าบันทึกให้เสร็จงานเสียก่อนแล้วค่อยปิด ไม่ใช่คลิกแล้วเปิดและปิดอยู่ตลอดเวลาเพราะอาจจะส่งผลให้ทำงานช้าครับ

[revotion]

ตอนนี้ลองปรับ Code ดูแล้วครับ แบบนี้ก็ยังถือว่าโอเคดี
แต่อยากให้เมื่อ Open File แล้วให้ File ที่เปิดมาไม่ต้องโชว์ทับไฟล์ที่เปิดอยู่อะครับ
ลักษณะคล้ายๆ Code ตรงนี้

Windows("Test send data1.xlsm").Activate

พอจะทำได้ไหมครับ
เพราะถ้า Save as แล้วทำต่อชื่อ file ก็จะเปลี่ยนไปครับ

Code: Select all

Sub SendDataToFile()
Dim src As Workbook
MyVar = [Input]
Set src = Workbooks.Open("C:\Users\user\Desktop\Test input data  .xlsx")
Windows("Test send data1.xlsm").Activate
[Target] = MyVar
src.Close SaveChanges:=True
End Sub

[snasui]

ตอนนี้ลองปรับ Code ดูแล้วครับ แบบนี้ก็ยังถือว่าโอเคดี
แต่อยากให้เมื่อ Open File แล้วให้ File ที่เปิดมาไม่ต้องโชว์ทับไฟล์ที่เปิดอยู่อะครับ
ลักษณะคล้ายๆ Code ตรงนี้

Windows("Test send data1.xlsm").Activate

พอจะทำได้ไหมครับ

Code: Select all

Sub SendDataToFile()
Dim src As Workbook
MyVar = [Input]
Set src = Workbooks.Open("C:\Users\user\Desktop\Test input data  .xlsx")
Windows("Test send data1.xlsm").Activate
[Target] = MyVar
src.Close SaveChanges:=True
End Sub

แนบไฟล์ที่มี Code นี้มาด้วยแล้วชี้ให้เห็นว่าปัจจุบันเกิดปัญหาในขั้นตอนไหน อย่างไรครับ

[revotion]

ต้องขออภัยครับด้วยครับ แนบมาให้ใหม่แล้วครับ
ปัญหาตอนนี้คือ เมื่อ Save as แล้วเปลี่ยนชื่อ File เป็น Test send data2.xlsm , 3 4 5 6 แล้ว
เมื่อกด Send data จะติด Debug ตรง Windows("Test send data1.xlsm").Activate เพราะว่าชื่อใน Code ไม่ยอมเปลี่ยนครับ
ก็เลยอยากถามว่าพอจะมีวิธีไหนเมื่อ run code แล้ว File Test input data .xlsx เด้งขึ้นมาแล้วไม่ต้องมาโชว์ทับ File Test send data
ครับ เหมือนว่าเปิด File แต่ไม่ต้องเด้งโชว์ ประมาณนี้ครับอาจจะอธิบาย งงๆไปหน่อย

[snasui]

ถ้าเปิดไฟล์ > วางข้อมูล > ปิดไฟล์ ไม่จำเป็นต้องซ่อนครับ

ตัวอย่าง Code ตามด้านล่างครับ

Code: Select all

Sub SendDataToFile()
    Dim src As Workbook
    Dim myVar As Range
    Dim Target As Range
    
    Application.ScreenUpdating = False
    Set myVar = [Input]
    Set src = Workbooks.Open("C:\Users\user\Desktop\Test input data  .xlsx")
    With src.Worksheets("Sheet1")
        Set Target = .Range("a" & .Rows.Count).End(xlUp).Offset(1, 0)
        Target.Resize(myVar.Rows.Count, myVar.Columns.Count).Value = myVar.Value
    End With
    src.Close SaveChanges:=True
    Application.ScreenUpdating = True
End Sub

[revotion]

ตรงตามความต้องการครับ ขอบคุณมากครับ