Thema Datum  Von Nutzer Rating
Antwort
25.12.2018 14:49:26 Reinhard Unterweger
NotSolved
25.12.2018 19:03:31 Gast96345
NotSolved
25.12.2018 19:53:14 Reinhard Unterweger
NotSolved
Blau String in XML-Datei über VBA ersetzen
 26.12.2018 07:54:36 Gast86272
Solved
26.12.2018 08:04:03 Reinhard Unterweger
NotSolved

Ansicht des Beitrags:
Von:
Gast86272		 Datum:
26.12.2018 07:54:36		 Views:
490		 Rating:
     
Antwort:
 Nein
Thema:
String in XML-Datei über VBA ersetzen

< Was ist mit "Verweise auf Microsoft Scripting Runtime ergänzen" gemeint?

im Editor

In der Auflistung suchen und anhaken und OK

 

Sub MeinCode()
Dim StrFullPath As String
Dim oFile, strCont As String

   'meinCode
   '
   '= E:\VBA\Musterprojekt.ipj als Beispiel
   StrFullPath = "E:\VBA\Musterprojekt.ipj"
   '
   Set oFile = CreateObject("Scripting.FileSystemObject").OpenTextFile(StrFullPath, 1)
   strCont = oFile.ReadAll()
   oFile.Close
   '
   strCont = Replace(strCont, ".\Bibliothek\Stile (HTL)", "C:\tmp\NeuesProjekt\Bibliothek\Stile (HTL)")
   ' oder mehr    strCont = Replace(strCont, "woswasi", "iwaswos")
   '
   Set oFile = CreateObject("Scripting.FileSystemObject").OpenTextFile(StrFullPath, 2, True)
   oFile.WriteLine (strCont)
   oFile.Close
   '
   '
   '
   '
   Set oFile = Nothing

End Sub

 

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
25.12.2018 14:49:26 Reinhard Unterweger
NotSolved
25.12.2018 19:03:31 Gast96345
NotSolved
25.12.2018 19:53:14 Reinhard Unterweger
NotSolved
Blau String in XML-Datei über VBA ersetzen
 26.12.2018 07:54:36 Gast86272
Solved
26.12.2018 08:04:03 Reinhard Unterweger
NotSolved