Vraag : De uitvoer van Excel vervangt karakters

Hallo voert

Look bij Code.
It sommige gegevens van uit uitblinkt bak.

I heeft type twee van gebieden, waar er som verkeerde charecters in de uitvoer zijn, en ik zou het de karakters willen omzetten, of het schrappen.
It voert „,“ zoals „,“ uit, maar ik zou het willen omzetten het in „. „/>It de Uitvoer

Any? helpen willen schrappen? : -)
" codeBody " 
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:
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:
expliciete Option Sub ExportDateloenTilMultiLoen () Schemerige AppName als Koord ExportRow 2, -999 ExportRowFra 2, -999 'ExportRow -999, -999 MsgBox „Færdig“ Sub van het eind Sub ExportRow (rStart zo lang, trek zoals lang uit) „veronderstelt de uitvoer van actief blad“ Schemerige ws als Aantekenvel, sTmp als Koord, sComma als Koord, sX als Koord Schemerige colOutput als Inzameling, lRow zoals lang, iCol, colFail als Koord, colFail01 als Koord, colFail02 als Koord Schemerige intNum als Geheel Schemerige sFileCSV als Koord, lfn zoals lang Reeks colOutput = de greeplijst van de Nieuwe Inzameling 'van kolommen aan output colOutput.Add punt: = " A " 'na: =0 colOutput.Add punt: = " B " 'na: =0 colOutput.Add punt: = " C " 'na: =0 colOutput.Add punt: = " D " 'na: =0 colOutput.Add punt: = " E " 'na: =0 colOutput.Add punt: = " F " 'na: =0 colOutput.Add punt: = " G " 'na: =0 colOutput.Add punt: = " H " 'na: =0 colOutput.Add punt: = " I " 'na: =0 colOutput.Add punt: = " J " 'na: =0 colOutput.Add punt: = " K " 'na: =0 colFail = „D“ colFail01 = „I“ colFail02 = „G“ 'sFileCSV = „P:\danwin\export\MLAlm.csv“ sFileCSV = „Z:\ $Kunder \ FrontZ \ Løn bak \ MLAlm.csv“ „zoals geen citaten wil, te hoeven te gebruiken print# en het koord“ te bouw sComma = „; “ „rand met ruimten?“ Vastgesteld ws = ActiveSheet „test voor speciale input“ Als = -999 toen uittrek trek = ws.UsedRange.Rows.Count + ws.UsedRange.Row - 1 uit Beëindig als Als rStart = -999 toen rStart = ws.UsedRange.Row Eind als sTmp = "" lfn = FreeFile Open sFileCSV voor Output als lfn Voor lRow = rStart om te uittrekken Voor iCol = 1 aan colOutput.Count sX = colOutput.Item (iCol) & Formaat (lRow, „#0“) Als ws. Waaier (sX). Waarde = „0“ en colOutput.Item (iCol) = colFail toen „rijmislukking“ sTmp = "" Uitgang voor Eind als Als ws. Waaier (sX). Waarde = „0“ en colOutput.Item (iCol) = colFail01 toen „rijmislukking“ sTmp = "" Uitgang voor Eind als Als colOutput.Item (iCol) = colFail02 toen Als CInt (ws. Waaier (sX). Waarde) <= 99 toen „rijmislukking“ sTmp = "" Uitgang voor Eind als Eind als Als iCol = 1 toen sTmp = ws. Waaier (sX) Anders sTmp = sTmp & sComma & ws. Waaier (sX) Eind als Volgende iCol Als sTmp <> "" toen Druk #lfn, sTmp Eind als Volgende lRow Dichte lfn Sub van het eind ''''''' Sub ExportRowFra (rStart zo lang, trek zoals lang uit) „veronderstelt de uitvoer van actief blad“ Schemerige ws als Aantekenvel, sTmp als Koord, sComma als Koord, sX als Koord Schemerige colOutput als Inzameling, lRow zoals lang, iCol, colFail als Koord, colFail01 als Koord, colFail02 als Koord Schemerige intNum als Geheel Schemerige sFileCSV als Koord, lfn zoals lang Reeks colOutput = de greeplijst van de Nieuwe Inzameling 'van kolommen aan output colOutput.Add punt: = " A " 'na: =0 colOutput.Add punt: = " B " 'na: =0 colOutput.Add punt: = " L " 'na: =0 colOutput.Add punt: = " D " 'na: =0 colOutput.Add punt: = " E " 'na: =0 colOutput.Add punt: = " F " 'na: =0 colOutput.Add punt: = " G " 'na: =0 colOutput.Add punt: = " H " 'na: =0 colOutput.Add punt: = " I " 'na: =0 colOutput.Add punt: = " J " 'na: =0 colOutput.Add punt: = " K " 'na: =0 colFail = „D“ colFail01 = „I“ colFail02 = „G“ 'sFileCSV = „P:\danwin\export\MLFraVaer.csv“ sFileCSV = „Z:\ $Kunder \ FrontZ \ Løn bak \ MLFraVaer.csv“ „zoals geen citaten wil, te hoeven te gebruiken print# en het koord“ te bouw sComma = „; “ „rand met ruimten?“ Vastgesteld ws = ActiveSheet „test voor speciale input“ Als = -999 toen uittrek trek = ws.UsedRange.Rows.Count + ws.UsedRange.Row - 1 uit Beëindig als Als rStart = -999 toen rStart = ws.UsedRange.Row Eind als sTmp = "" lfn = FreeFile Open sFileCSV voor Output als lfn Voor lRow = rStart om te uittrekken Voor iCol = 1 aan colOutput.Count sX = colOutput.Item (iCol) & Formaat (lRow, „#0“) Als ws. Waaier (sX). Waarde = „0“ en colOutput.Item (iCol) = colFail toen „rijmislukking“ sTmp = "" Uitgang voor Eind als Als ws. Waaier (sX). Waarde = „0“ en colOutput.Item (iCol) = colFail01 toen „rijmislukking“ sTmp = "" Uitgang voor Eind als Als colOutput.Item (iCol) = colFail02 toen Als CInt (ws. Waaier (sX). Waarde) >= 99 en ws. Waaier (sX). Waarde <> „0“ toen „rijmislukking“ sTmp = "" Uitgang voor Eind als Eind als Als iCol = 1 toen sTmp = ws. Waaier (sX) Anders Als colOutput.Item (iCol) = „E“ toen sTmp = sTmp & sComma & ws. Waaier (sX) Anders sTmp = sTmp & sComma & ws. Waaier (sX) Eind als Eind als Volgende iCol Als sTmp <> "" toen Druk #lfn, sTmp Eind als Volgende lRow Dichte lfn Sub van het eind

Antwoord : De uitvoer van Excel vervangt karakters

Of in één verklaring

ws. De waaier (sX) = vervangt (vervang (ws. Strek me (sX), „,“, „uit. “), „-“, "")
Andere oplossingen  
 
programming4us programming4us