VB Script that copies a VBA function

[irGed]

Hi,

I searched google to see if there's something that can help me achieve what I wanted to do, but couldn't find any. What I want to achieve is to write a VB script that can copy the code written on the "beforeSave" functionality. And then, writes a macro based on the content of the copied code.

Is this implementation possible?

Thanks.

[irGed]

just found out that creating macro on excel using vbscript is doable, just the copying of the "beforeSave" function left.

[irGed]

I have solved the problem but not sure if this is the best way to achieve this, if anyone has a better solution, please help me.

as for the code, I have exported the VB Component that contains the desired function and then I used a third-party tool to modify the generated export file and then I imported it with another excel.

for the export code:

Dim ArgObj, inputExcel, outputFile
Set ArgObj = WScript.Arguments 
 
'First parameter input file
inputExcel = ArgObj(0) 
'Second parameter output file
outputFile = ArgObj(1) 
 
Set objExcel1 = CreateObject("Excel.Application")
    objExcel1.DisplayAlerts = 0
Set objWorkbook1 = objExcel1.Workbooks.Open(inputExcel)
    objWorkbook1.VBProject.VBComponents("ThisWorkbook").Export (outputFile)
    objWorkbook1.Save
    objExcel1.Quit
    'objExcel2.Quit
Set    objExcel1 = Nothing
 

and for the import code:

Dim ArgObj, inputExcel, outputFile
Set ArgObj = WScript.Arguments 
 
'First parameter VALIDATION file
inputExcel = ArgObj(0) 
'Second parameter input file
inputFile = ArgObj(1) 
 
Set objExcel1 = CreateObject("Excel.Application")
    objExcel1.DisplayAlerts = 0
Set objWorkbook1 = objExcel1.Workbooks.Open(inputExcel)
Set VBComp = objWorkbook1.VBProject.VBComponents("Module1")
objWorkbook1.VBProject.VBComponents.Remove VBComp
objWorkbook1.VBProject.VBComponents.Import (inputFile)
    objWorkbook1.Save
    objExcel1.Quit
Set    objExcel1 = Nothing
 

Thanks.