soonyee91 Posted June 9, 2013 Posted June 9, 2013 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
Solution soonyee91 Posted June 9, 2013 Author Solution Posted June 9, 2013 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
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now