Page 1 of 1
อยากเพิ่ม Code VBA ลงในอีก workbook โดยใช้ Macro ครับ
Posted: Tue Jul 11, 2017 12:08 am
by 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 ได้
Re: อยากเพิ่ม Code VBA ลงในอีก workbook โดยใช้ Macro ครับ
Posted: Tue Jul 11, 2017 7:18 pm
by 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
Re: อยากเพิ่ม Code VBA ลงในอีก workbook โดยใช้ Macro ครับ
Posted: Tue Jul 11, 2017 7:32 pm
by zern
แล้วถ้าผมเปลี่ยนโค้ด vba ภายใน sub Insertthissub( )
ผมก็ต้องไปแก้โค้ดใน sub TestVBA ( ) ด้วยหรือเปล่าครับ
ผมไม่อยากต้องแก้สองจุดน่ะครับ
Re: อยากเพิ่ม Code VBA ลงในอีก workbook โดยใช้ Macro ครับ
Posted: Tue Jul 11, 2017 8:31 pm
by snasui
ถ้าเปลี่ยนด้วยการเขียนผ่านไฟล์ต้นทาง ต้องเขียน Code จากไฟล์ต้นทางเพื่อทำการลบ Code เดิมที่ไฟล์ปลายทางเสียก่อนแล้วค่อยเขียน Code ที่ Update ลงไปใหม่ จะเป็นการทำที่จุดเดียวคือที่ไฟล์ต้นทางครับ
Re: อยากเพิ่ม Code VBA ลงในอีก workbook โดยใช้ Macro ครับ
Posted: Wed Jul 12, 2017 12:09 am
by zern
ผมอยากเปลี่ยน sub Insertthissub() เป็น
msgbox "Complete"
โดยที่แก้ไขแค่ภายใน sub Insertthissub() ที่เดียวแล้วโค้ดก็ไปเพิ่มในอีกไฟล์นึง โดยไม่ลบโค้ดของไฟล์เดิมด้วยน่ะครับ หรือว่าการอ้างอิงแบบนี้ไม่สามารถทำได้ใน vba ครับ
Re: อยากเพิ่ม Code VBA ลงในอีก workbook โดยใช้ Macro ครับ
Posted: Wed Jul 12, 2017 6:28 pm
by snasui
การแทรกเป็นราย Statement คิดว่าทำได้แต่ไม่ง่ายครับ อย่างน้อยจะต้องทราบว่าบรรทัดที่พบ Code เดิมอยู่บรรทัดไหน
ปกติจะลบ Procedure เดิมแล้วเพิ่มเข้าไปใหม่ด้วยตัวที่ Update ครับ
Re: อยากเพิ่ม Code VBA ลงในอีก workbook โดยใช้ Macro ครับ
Posted: Wed Jul 12, 2017 10:51 pm
by zern
ขอบคุณครับ ขนาดอ.ยังบอกว่าไม่ง่าย ถ้างั้นผมใช้วิธีเก็บโค้ดในเซลดีกว่า ถ้าเข้าใจมากขึ้นอาจเห็นทางที่ดีกว่าเดิม