Jump to content
Sign in to follow this  
soonyee91

Remove Excel Modules

Recommended Posts

soonyee91

I'm trying to convert this VBA code to autoit script.

But I face this problem: syntax error. How should I write for this section?

The syntax error line is this:

".VBComponents($x).CodeModule.DeleteLines 1, .VBComponents($x).CodeModule.CountOfLines"

Below is my codes:

Func _ClearVBA()
With $oExcel.ActiveWorkbook.VBProject
For $x = .VBComponents.Count To 1 Step -1
.VBComponents.Remove .VBComponents($x)
Next
For $x = .VBComponents.Count To 1 Step -1
.VBComponents($x).CodeModule.DeleteLines 1, .VBComponents($x).CodeModule.CountOfLines
Next
EndWith
EndFunc   ;==>_ClearVBA

Share this post


Link to post
Share on other sites
soonyee91

Good news:

I think I've solved it using this:

Func _ClearVBA()
$oModules = $oExcel.ActiveWorkbook.VBProject.VBComponents
 For $oModule In $oModules
  If $oModule.Type = 1 Then
   $oModules.Remove($oModule)
  EndIf
Next

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.