How to change 'ThisWorlbook' code.

[Nico1000]

Hello,

This sub completes correctly when run manually from within Module1 of C:\Invoices\InvF1.xlsm
Sub ReplaceThisWorkbook()
With ActiveWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule
.DeleteLines StartLine:=1, Count:=.CountOfLines ' Delete all lines
.AddFromFile "c:\Invoices\mods\excel\ThisWorkbook2.cls" ' and replace with ThisWorkbook2
End With
End Sub

The same sub does NOT run correctly from within this vbs script...
...file 'Fx.vbs'
Option Explicit
On Error Resume Next
F1
Sub F1()
Dim xlApp
Dim xlBook
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open("C:\Invoices\InvF1.xlsm", 0, True)
xlApp.DisplayAlerts = False
xlApp.Run "ReplaceThisWorkbook"
xlApp.ActiveWorkbook.Save
xlApp.ActiveWorkbook.Close
xlApp.Quit
Set xlBook = Nothing
Set xlApp = Nothing
End Sub

The whole purpose of the above is to make multiple copies of Workbook-A with different 'ThisWorkbook' code.
I would first make an exact copy of Workbook-A (with a different file name) and then run the vbs script 'Fx.vbs'.
Maybe someone can suggest a workaround to make copies of a workbook with different 'ThisWorkbook' code.
Thank you.
-Nico

 

[John_w]

True for the 3rd argument in Workbooks.Open means 'read only', which means any changes to the workbook won't be saved, therefore try changing it to False. The 2nd argument means 'Update links' and should also be a Boolean.

Set xlBook = xlApp.Workbooks.Open("C:\Invoices\InvF1.xlsm", False, False)

Please use CODE tags - the # icon in the reply box.

 

[Nico1000]

Thank you sir.
It all works great now!
-Nico