Change a line of code programatically

[mikeymay]

I hgave about 250 files in a folder and I need to change 1 line of code in one of the modules.

Rather than opening each file is there a way of looping through all the files and changing the line with a macro?


Thanks

 

[VoG]

This may help http://www.cpearson.com/excel/VBE.aspx

 

[mikeymay]

That helps with part of what I need to do but it doesn't actually tell me how tho amend specific rows in a module.

 

[GTO]

Can we count on the line resinding in the same named procedure (no variance in versions of the code) and is the procedure in the consistently same named module?

 

[mikeymay]

Nailed

    Set VBProj = Application.Workbooks(wbWorkbook.Name).VBProject
    Set VBComp = VBProj.VBComponents("AreaWorkbook_Printing")
    Set CodeMod = VBComp.CodeModule
    
    With CodeMod
        .DeleteLines 270, 1
        .InsertLines 270, "    .Zoom = False"
    End With

Thanks for the pointer though :D

 

[GTO]

Glad you got it Just as FYI, you may wish to check .ReplaceLine for a one-stepper.

 

[mikeymay]

Thankls GTO, thought they would be something that could do it with one line.