Thema Datum  Von Nutzer Rating
Antwort
26.05.2018 23:26:37 Fabian
NotSolved
27.05.2018 11:15:16 Gast71995
NotSolved
27.05.2018 14:02:19 Gast20136
NotSolved
27.05.2018 15:23:40 Gast57106
NotSolved
27.05.2018 15:39:50 Fabian
NotSolved
Blau VBA öffnen, ersetzen und Speichern unter anderem Namen
27.05.2018 16:37:29 Gast1601
NotSolved
27.05.2018 21:07:49 Fabian
NotSolved

Ansicht des Beitrags:
Von:
Gast1601
Datum:
27.05.2018 16:37:29
Views:
647
Rating: Antwort:
  Ja
Thema:
VBA öffnen, ersetzen und Speichern unter anderem Namen

ein "Blindflug" ist immer kritisch:

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Public Sub import()
Dim Datei, iFile
Dim FSO
Dim Str_String As String
Dim Spalte As Long
Spalte = 2
  
  
Do While Cells(Spalte, 1).Value <> ""
'Textdatei auslesen
Set FSO = CreateObject("Scripting.FilesystemObject")
Set Datei = FSO.OpentextFile("E:\Eigene Dateien\muster.GEO")
Str_String = Datei.readall
Datei.Close
  
'Suchen und ersetzen
Str_String = Replace(Str_String, "laenge", Range("A" & Spalte))
  
Str_String = Replace(Str_String, "breite", Range("B" & Spalte))
  
Str_String = Replace(Str_String, "anzahll", Range("E" & Spalte))
  
Str_String = Replace(Str_String, "lochx", Range("F" & Spalte))
  
Str_String = Replace(Str_String, "lochy", Range("G" & Spalte))
         
Str_String = Replace(Str_String, "mmquad", Range("C" & Spalte))
  
'Speichern
Spalte = Spalte + 1
Debug.Print Left(Str_String, 100)
  
Loop
 
iFile = "c:\temp\FSO_Test.txt"
Set iOut = FSO.CreateTextFile(iFile, True, True) 'FSO ist bereits definiert
 
    iOut.WriteLine Str_String 'falls allen in "", dann Write durch Print ersetzen
 
iOut.close
End Sub

(für heute reicht es mir)


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
26.05.2018 23:26:37 Fabian
NotSolved
27.05.2018 11:15:16 Gast71995
NotSolved
27.05.2018 14:02:19 Gast20136
NotSolved
27.05.2018 15:23:40 Gast57106
NotSolved
27.05.2018 15:39:50 Fabian
NotSolved
Blau VBA öffnen, ersetzen und Speichern unter anderem Namen
27.05.2018 16:37:29 Gast1601
NotSolved
27.05.2018 21:07:49 Fabian
NotSolved