Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
25.12.2018 14:49:26 |
Reinhard Unterweger |
|
|
String in XML-Datei über VBA ersetzen |
25.12.2018 19:03:31 |
Gast96345 |
|
|
|
25.12.2018 19:53:14 |
Reinhard Unterweger |
|
|
|
26.12.2018 07:54:36 |
Gast86272 |
|
|
|
26.12.2018 08:04:03 |
Reinhard Unterweger |
|
|
Von:
Gast96345 |
Datum:
25.12.2018 19:03:31 |
Views:
543 |
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
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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 |
|
|
String in XML-Datei über VBA ersetzen |
25.12.2018 19:03:31 |
Gast96345 |
|
|
|
25.12.2018 19:53:14 |
Reinhard Unterweger |
|
|
|
26.12.2018 07:54:36 |
Gast86272 |
|
|
|
26.12.2018 08:04:03 |
Reinhard Unterweger |
|
|