VBA-Forum - Das Forum zu Microsoft VBA

VBA Excel VBA Word VBA Access VBA VBScript VB C# Objective-C C++ SQL JAVA VBA (English) Jobs Übersicht

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

Ansicht des Beitrags:

Von:
Gast96345

Datum:
25.12.2018 19:03:31

Views:
875

Rating:

Antwort:

Thema:
String in XML-Datei über VBA ersetzen

'
'*************************************************
'Verweise auf Microsoft Scripting Runtime ergänzen
'*************************************************
'
Dim StrFullPath As String
'
Sub Doit()

   With Application.FileDialog(3)  '3 = File picker, 4 = Folder picker
                                    '1 = Open, 2 = SaveAs
      If .Show Then
         StrFullPath = .SelectedItems(1)
      Else
         Exit Sub
      End If
      
      RepIt ".\Bibliothek\Stile (HTL)", "C:\tmp\NeuesProjekt\Bibliothek\Stile (HTL)"
      '
      'u.s.w.
      
   End With

End Sub

Private Sub RepIt(strWhat As String, strWith As String)
Dim oFile, strCont As String

   Set oFile = CreateObject("Scripting.FileSystemObject").OpenTextFile(StrFullPath, 1)
   strCont = oFile.ReadAll()
   oFile.Close
   '
   strCont = Replace(strCont, strWhat, strWith)
   '
   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
String in XML-Datei über VBA ersetzen	25.12.2018 14:49:26	Reinhard Unterweger
String in XML-Datei über VBA ersetzen	25.12.2018 19:03:31	Gast96345
String in XML-Datei über VBA ersetzen	25.12.2018 19:53:14	Reinhard Unterweger
String in XML-Datei über VBA ersetzen	26.12.2018 07:54:36	Gast86272
String in XML-Datei über VBA ersetzen	26.12.2018 08:04:03	Reinhard Unterweger