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:
600
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

 

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
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