Frage : Excel-Export ersetzen Buchstaben

Hallo exportiert

Look am angebrachten Code.
It etwas Daten von der übertreffenarche.

I haben Art zwei der Felder, in denen es Som falsche charecters im Export gibt, und ich möchte, dass es die Buchstaben umwandelt, oder es löschen.
It exportiert „,“ wie „,“, aber ich möchte, dass es es in „umwandelt. „
It exportiert Datum wie dieses 02-25-2010, aber ich möchte, dass es die ganze“ - „

Any Hilfe? löscht? :-) 
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:
6:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:
150:
151:
152:
153:
154:
155:
156:
157:
158:
159:
160:
161:
162:
163:
164:
165:
166:
167:
168:
169:
170:
171:
172:
173:
174:
175:

Option ausdrücklich
 
VorExportDateloenTilMultiLoen ()
    Schwaches AppName als Schnur
     
    ExportRow 2, -999
    ExportRowFra 2, -999
    'ExportRow -999, -999
    MsgBox „Færdig“
Enden-Unterseeboot
 
VorExportRow (rStart so lang, zerreißen wie lang)
    „nimmt Export vom aktiven Blatt“ an
    Schwaches WS als Arbeitsblatt, sTmp als Schnur, sComma als Schnur, sX als Schnur
    Schwaches colOutput als Ansammlung, lRow als lang, iCol, colFail als Schnur, colFail01 als Schnur, colFail02 als Schnur
    Schwaches intNum als ganze Zahl
     
    Schwaches sFileCSV als Schnur, lfn als lang
     
    colOutput einstellen = Einflussliste der neuen Ansammlung 'auszugeben der Spalten,
    colOutput.Add Einzelteil: = " A " 'nachher: =0
    colOutput.Add Einzelteil: = " B " 'nachher: =0
    colOutput.Add Einzelteil: = " C " 'nachher: =0
    colOutput.Add Einzelteil: = " D " 'nachher: =0
    colOutput.Add Einzelteil: = " E " 'nachher: =0
    colOutput.Add Einzelteil: = " F " 'nachher: =0
    colOutput.Add Einzelteil: = " G " 'nachher: =0
    colOutput.Add Einzelteil: = " H " 'nachher: =0
    colOutput.Add Einzelteil: = " ich " 'nachher: =0
    colOutput.Add Einzelteil: = " J " 'nachher: =0
    colOutput.Add Einzelteil: = " K " 'nachher: =0
    colFail = „D“
    colFail01 = „ich“
    colFail02 = „G“
    
    'sFileCSV = „P:\danwin\export\MLAlm.csv“
    sFileCSV = „Z:\ $Kunder \ FrontZ \ Løn Arche \ MLAlm.csv“
     
    „, wie Anführungsstriche nicht wünschen, brauchen, print# zu benutzen und die Schnur errichten“
    sComma = „; “ „Einfassung mit Räumen?“
     
    Einstellen WS = ActiveSheet
    „auf speziellen Eingang prüfen“
    Wenn = -999 dann zerreißen
        zerreißen = ws.UsedRange.Rows.Count + ws.UsedRange.Row - 1
    Beenden wenn
    Wenn rStart = -999 dann
        rStart = ws.UsedRange.Row
    Beenden wenn
     
    sTmp = ""
     
    lfn = FreeFile
    sFileCSV für Ausgang als lfn öffnen
     
        Damit das lRow = das rStart zerreißt
            Für iCol = 1 zu colOutput.Count
                sX = colOutput.Item (iCol) u. Format (lRow, „#0“)
                Wenn WS. Strecke (sX). Wert = „0“ und colOutput.Item (iCol) = colFail dann
                    „Reihenausfall“
                    sTmp = ""
                    Für herausnehmen
                Beenden wenn
                Wenn WS. Strecke (sX). Wert = „0“ und colOutput.Item (iCol) = colFail01 dann
                    „Reihenausfall“
                    sTmp = ""
                    Für herausnehmen
                Beenden wenn
                
                Wenn colOutput.Item (iCol) = colFail02 dann
                    Wenn CInt (WS. Strecke (sX). Wert) <= 99 dann
                        „Reihenausfall“
                        sTmp = ""
                        Für herausnehmen
                    Beenden wenn
                Beenden wenn
                
                Wenn iCol = 1 dann
                    sTmp = WS. Strecke (sX)
                 Sonst
                    sTmp = sTmp u. sComma u. WS. Strecke (sX)
                Beenden wenn
            Folgendes iCol
             
            Wenn sTmp <> "" dann
                    Druck #lfn, sTmp
            Beenden wenn
        Folgendes lRow
    Nahes lfn
Enden-Unterseeboot

'''''''

VorExportRowFra (rStart so lang, zerreißen wie lang)
    „nimmt Export vom aktiven Blatt“ an
    Schwaches WS als Arbeitsblatt, sTmp als Schnur, sComma als Schnur, sX als Schnur
    Schwaches colOutput als Ansammlung, lRow als lang, iCol, colFail als Schnur, colFail01 als Schnur, colFail02 als Schnur
    Schwaches intNum als ganze Zahl
     
    Schwaches sFileCSV als Schnur, lfn als lang
     
    colOutput einstellen = Einflussliste der neuen Ansammlung 'auszugeben der Spalten,
    colOutput.Add Einzelteil: = " A " 'nachher: =0
    colOutput.Add Einzelteil: = " B " 'nachher: =0
    colOutput.Add Einzelteil: = " L " 'nachher: =0
    colOutput.Add Einzelteil: = " D " 'nachher: =0
    colOutput.Add Einzelteil: = " E " 'nachher: =0
    colOutput.Add Einzelteil: = " F " 'nachher: =0
    colOutput.Add Einzelteil: = " G " 'nachher: =0
    colOutput.Add Einzelteil: = " H " 'nachher: =0
    colOutput.Add Einzelteil: = " ich " 'nachher: =0
    colOutput.Add Einzelteil: = " J " 'nachher: =0
    colOutput.Add Einzelteil: = " K " 'nachher: =0
    colFail = „D“
    colFail01 = „ich“
    colFail02 = „G“
    
    'sFileCSV = „P:\danwin\export\MLFraVaer.csv“
    sFileCSV = „Z:\ $Kunder \ FrontZ \ Løn Arche \ MLFraVaer.csv“
    „, wie Anführungsstriche nicht wünschen, brauchen, print# zu benutzen und die Schnur errichten“
    sComma = „; “ „Einfassung mit Räumen?“
     
    Einstellen WS = ActiveSheet
    „auf speziellen Eingang prüfen“
    Wenn = -999 dann zerreißen
        zerreißen = ws.UsedRange.Rows.Count + ws.UsedRange.Row - 1
    Beenden wenn
    Wenn rStart = -999 dann
        rStart = ws.UsedRange.Row
    Beenden wenn
     
    sTmp = ""
     
    lfn = FreeFile
    sFileCSV für Ausgang als lfn öffnen
     
        Damit das lRow = das rStart zerreißt
            Für iCol = 1 zu colOutput.Count
                sX = colOutput.Item (iCol) u. Format (lRow, „#0“)
                Wenn WS. Strecke (sX). Wert = „0“ und colOutput.Item (iCol) = colFail dann
                    „Reihenausfall“
                    sTmp = ""
                    Für herausnehmen
                Beenden wenn
                Wenn WS. Strecke (sX). Wert = „0“ und colOutput.Item (iCol) = colFail01 dann
                    „Reihenausfall“
                    sTmp = ""
                    Für herausnehmen
                Beenden wenn
                
                Wenn colOutput.Item (iCol) = colFail02 dann
                    Wenn CInt (WS. Strecke (sX). Wert) >= 99 und WS. Strecke (sX). Wert <> „0“ dann
                        „Reihenausfall“
                        sTmp = ""
                        Für herausnehmen
                    Beenden wenn
                Beenden wenn
                
                Wenn iCol = 1 dann
                    sTmp = WS. Strecke (sX)
                 Sonst
                    Wenn colOutput.Item (iCol) = „E“ dann
                        sTmp = sTmp u. sComma u. WS. Strecke (sX)
                    Sonst
                        sTmp = sTmp u. sComma u. WS. Strecke (sX)
                    Beenden wenn
                Beenden wenn
            Folgendes iCol
             
            Wenn sTmp <> "" dann
                    Druck #lfn, sTmp
            Beenden wenn
        Folgendes lRow
    Nahes lfn
Enden-Unterseeboot

Antwort : Excel-Export ersetzen Buchstaben

Oder in einer Aussage

WS. Strecke (sX) = ersetzen (ersetzen (WS. Strecke (sX), „,“, „."), „-“, "")
Weitere Lösungen  
 
programming4us programming4us