Forum des VBA-Tutorials

automatisches Ändern von VBA Scripten mit VBA (VBA)

Helmut_W, Donnerstag, 16. März 2017, 09:10 (vor 68 Tagen)

Hallo Forum,

ich habe eine Reihe von VBA Scripten (Excel) in denen ich die Zeile:

Set querydef = sessionObj.OAdSession.BuildQuery("ProblemReport")

durch

Set querydef = sessionObj.OAdSession.BuildQuery("PR_CR")

ersetzen muss, weil sich die externe Anwendung ändert. :-(

Es kann sein, dass die Zeile mehrfach in einem Module auftaucht.
Ich muss jedes Auftauchen der Zeile ersetzen.

Eigentlich müsste es doch möglich sein, durch alle Files zu loopen und die betreffenden Zeilen per VBA Script automatisch zu ersetzen.

So etwa: (Pseudo Code)

For all_files do
   open ExcelFile

   For all modules in ExcelFile do
     For all lines_of_code in modules do
      
       replace ("ProblemReport" with "PR_CR")

     next lines
  next module

  save ModifiedExcelFile
next file


Die beiden äußeren Loops kann ich mir zusammenbasteln.
Hat jemand eine Idee wie ich auf einzelne Zeilen in einem Module zugreife
und sie ändere?


Gruß Helmut


gesamter Thread:

 RSS-Feed dieser Diskussion

powered by my little forum