Questione : L'esportazione di Excel sostituisce i caratteri

Ciao il

Look al Code.
It esporta alcuni dati dall'arca di supremazia. il

I ha tipo due di campi, in cui ci sono charecters errati del som nell'esportazione e la vorrei per convertire i caratteri, o cancellarla. il
It esporta “,„ come “,„, ma lo vorrei per convertirlo “. “il
It esporta la data come questo 02-25-2010, ma lo vorrei per cancellare tutto l'„ - “aiuto del

Any?? : -) class= > " libero " del
> " del codeSnippet " del class= del
class= " lineNumbers " del
class= del 
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:
>Option notpretty " del class= " del id= " codeSnippet959213 del 
 dello sTmp allora
                    #lfn della stampa, sTmp
            Concluder se
        lRow seguente
    Lfn vicino
Sommergibile dell'estremità

'''''''

ExportRowFra secondario (rStart lungamente, rEnd quanto lungamente)
    “ammette l'esportazione dallo strato attivo„
    La WS fioca come manuale, sTmp come stringa, sComma come stringa, sX come stringa
    colOutput fioco come accumulazione, lRow come lungamente, iCol, colFail come stringa, colFail01 come stringa, colFail02 come stringa
    intNum fioco come numero intero
     
    sFileCSV fioco come stringa, lfn come lungamente
     
    Regolare il colOutput = lista della stretta della nuova accumulazione 'delle colonne da produrre
    articolo di colOutput.Add: = " A " 'dopo: =0
    articolo di colOutput.Add: = " B " 'dopo: =0
    articolo di colOutput.Add: = " L " 'dopo: =0
    articolo di colOutput.Add: = " D " 'dopo: =0
    articolo di colOutput.Add: = " E " 'dopo: =0
    articolo di colOutput.Add: = " F " 'dopo: =0
    articolo di colOutput.Add: = " G " 'dopo: =0
    articolo di colOutput.Add: = " H " 'dopo: =0
    articolo di colOutput.Add: = " io " 'dopo: =0
    articolo di colOutput.Add: = " J " 'dopo: =0
    articolo di colOutput.Add: = " K " 'dopo: =0
    colFail = “D„
    colFail01 = “io„
    colFail02 = “G„
    
    'sFileCSV = “P:\danwin\export\MLFraVaer.csv„
    sFileCSV = “Z:\ $Kunder \ arca \ MLFraVaer.csv Løn \ di FrontZ„
    “come non volere le citazioni, non dovere usare il print# e non costruire la stringa„
    sComma = “; „ “bordi con gli spazi?„
     
    Regolar la WS = ActiveSheet
    “provare ad input speciale„
    Se allora rEnd = -999
        rEnd = ws.UsedRange.Rows.Count + ws.UsedRange.Row - 1
    Concluder se
    Se rStart = -999 allora
        rStart = ws.UsedRange.Row
    Concluder se
     
    sTmp = ""
     
    lfn = FreeFile
    Aprire lo sFileCSV per uscita come lfn
     
        Affinchè lRow = rStart rEnd
            Per il iCol = 1 a colOutput.Count
                sX = colOutput.Item (iCol) & disposizione (lRow, “#0„)
                Se la WS. Gamma (sX). Valore = “0„ e colOutput.Item (iCol) = colFail allora
                    “guasto di fila„
                    sTmp = ""
                    Uscire per
                Concluder se
                Se la WS. Gamma (sX). Valore = “0„ e colOutput.Item (iCol) = colFail01 allora
                    “guasto di fila„
                    sTmp = ""
                    Uscire per
                Concluder se
                
                Se colOutput.Item (iCol) = colFail02 allora
                    Se CInt (WS. Gamma (sX). >= 99 e WS di valore). Gamma (sX). <> “0„ di valore allora
                        “guasto di fila„
                        sTmp = ""
                        Uscire per
                    Concluder se
                Concluder se
                
                Se iCol = 1 allora
                    sTmp = la WS. Gamma (sX)
                 Altrimenti
                    Se colOutput.Item (iCol) = “E„ allora
                        sTmp = sTmp & sComma & la WS. Gamma (sX)
                    Altrimenti
                        sTmp = sTmp & sComma & la WS. Gamma (sX)
                    Concluder se
                Concluder se
            iCol seguente
             
            Se "" del <> dello sTmp allora
                    #lfn della stampa, sTmp
            Concluder se
        lRow seguente
    Lfn vicino
Sommergibile dell'estremità
class= del

Risposta : L'esportazione di Excel sostituisce i caratteri

O in una dichiarazione

la WS. La gamma (sX) = sostituisce (sostituire (la WS. Gamma (sX), “,„, “."), “-„, "")
Altre soluzioni  
 
programming4us programming4us