อยากเพิ่ม Code VBA ลงในอีก workbook โดยใช้ Macro ครับ

[zern]

ตอนนี้ผมเพิ่ม Code VBA จากไฟล์ VBACreator1.xlsm ไปยังไฟล์ CopyVBA1.xlsm ด้วยโค้ดนี้ครับ

Code: Select all

Sub TestVBA()
    'ActiveWorkbook.VBProject.VBComponents("module1").Export ("D:\Test Excel\mymod.bas")
    Dim PD As CodeModule
    Set PD = Workbooks("CopyVBA1.xlsm").VBProject.VBComponents("module1").CodeModule
    With PD
    LineNumber = .CountOfLines + 1
        .InsertLines LineNumber, [m1].Value
    End With
End Sub

ซึ่งโค้ดนี้ก็ใช้ Insert Code เพิ่มได้ แต่พอใช้แล้วผมต้องการอ้างอิงเจาะจงจาก Module1 >> Sub InsertThisSub() โดยไม่ต้องอ้างอิงจากเซล [m1] ไม่ทราบว่าต้องเขียนโค้ดยังไงครับ ถึงจะอ้างอิงจากในตัว VBA ได้

[snasui]

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

Code: Select all

Sub TestVBA()
    Dim strCode As String
    'ActiveWorkbook.VBProject.VBComponents("module1").Export ("D:\Test Excel\mymod.bas")
    Dim PD As CodeModule
    Set PD = Workbooks("CopyVBA1.xlsm").VBProject.VBComponents("module1").CodeModule
    strCode = strCode & "Sub InsertThisSub()" & vbNewLine
    strCode = strCode & "   MsgBox ""Insert success""" & vbNewLine
    strCode = strCode & "End Sub"
    With PD
        LineNumber = .CountOfLines + 1
        .InsertLines LineNumber, strCode
    End With
End Sub

[zern]

แล้วถ้าผมเปลี่ยนโค้ด vba ภายใน sub Insertthissub( )
ผมก็ต้องไปแก้โค้ดใน sub TestVBA ( ) ด้วยหรือเปล่าครับ

ผมไม่อยากต้องแก้สองจุดน่ะครับ

[snasui]

ถ้าเปลี่ยนด้วยการเขียนผ่านไฟล์ต้นทาง ต้องเขียน Code จากไฟล์ต้นทางเพื่อทำการลบ Code เดิมที่ไฟล์ปลายทางเสียก่อนแล้วค่อยเขียน Code ที่ Update ลงไปใหม่ จะเป็นการทำที่จุดเดียวคือที่ไฟล์ต้นทางครับ

[zern]

ผมอยากเปลี่ยน sub Insertthissub() เป็น
msgbox "Complete"
โดยที่แก้ไขแค่ภายใน sub Insertthissub() ที่เดียวแล้วโค้ดก็ไปเพิ่มในอีกไฟล์นึง โดยไม่ลบโค้ดของไฟล์เดิมด้วยน่ะครับ หรือว่าการอ้างอิงแบบนี้ไม่สามารถทำได้ใน vba ครับ

[snasui]

การแทรกเป็นราย Statement คิดว่าทำได้แต่ไม่ง่ายครับ อย่างน้อยจะต้องทราบว่าบรรทัดที่พบ Code เดิมอยู่บรรทัดไหน

ปกติจะลบ Procedure เดิมแล้วเพิ่มเข้าไปใหม่ด้วยตัวที่ Update ครับ

[zern]

ขอบคุณครับ ขนาดอ.ยังบอกว่าไม่ง่าย ถ้างั้นผมใช้วิธีเก็บโค้ดในเซลดีกว่า ถ้าเข้าใจมากขึ้นอาจเห็นทางที่ดีกว่าเดิม