class= " lineNumbers " de
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 :
|
class= de
>Option " de l'id= " codeSnippet959213 de de sTmp alors
#lfn d'impression, sTmp
Finir si
Prochain lRow
Lfn étroit
Sous-marin d'extrémité
'''''''
ExportRowFra secondaire (le rStart aussi longtemps, rEnd que longtemps)
« assume l'exportation de la feuille active »
Le faible WS comme feuille de travail, sTmp comme corde, sComma comme corde, sX comme corde
Faible colOutput comme collection, lRow en tant que longtemps, iCol, colFail comme corde, colFail01 comme corde, colFail02 comme corde
Faible intNum comme nombre entier
Faible sFileCSV comme corde, lfn en tant que longtemps
Placer le colOutput = liste de prise de nouvelle collection 'de colonnes à produire
article de colOutput.Add : = " A " 'ensuite : =0
article de colOutput.Add : = " B " 'ensuite : =0
article de colOutput.Add : = " L " 'ensuite : =0
article de colOutput.Add : = " D " 'ensuite : =0
article de colOutput.Add : = " E " 'ensuite : =0
article de colOutput.Add : = " F " 'ensuite : =0
article de colOutput.Add : = " G " 'ensuite : =0
article de colOutput.Add : = " H " 'ensuite : =0
article de colOutput.Add : = " je " 'ensuite : =0
article de colOutput.Add : = " J " 'ensuite : =0
article de colOutput.Add : = " K " 'ensuite : =0
colFail = « D »
colFail01 = « je »
colFail02 = « G »
'sFileCSV = « P:\danwin\export\MLFraVaer.csv »
sFileCSV = « Z:\ $Kunder \ arche de FrontZ \ Løn \ MLFraVaer.csv »
« de même que ne pas vouloir les citations, ne pas avoir besoin d'employer le print# et ne pas construire la corde »
sComma = « ; » « bordure avec les espaces ? »
Placer le WS = l'ActiveSheet
« déterminer l'entrée spéciale »
Si rEnd = -999 alors
rEnd = ws.UsedRange.Rows.Count + ws.UsedRange.Row - 1
Finir si
Si rStart = -999 puis
rStart = ws.UsedRange.Row
Finir si
sTmp = ""
lfn = FreeFile
Ouvrir le sFileCSV pour le rendement comme lfn
Pour que le lRow = le rStart rEnd
Pour l'iCol = 1 à colOutput.Count
sX = colOutput.Item (iCol) et format (lRow, « #0 »)
Si le WS. Gamme (sX). Valeur = « 0 » et colOutput.Item (iCol) = colFail alors
« échec de rangée »
sTmp = ""
Sortir pour
Finir si
Si le WS. Gamme (sX). Valeur = « 0 » et colOutput.Item (iCol) = colFail01 alors
« échec de rangée »
sTmp = ""
Sortir pour
Finir si
Si colOutput.Item (iCol) = colFail02 alors
Si CInt (WS. Gamme (sX). >= 99 et WS de valeur). Gamme (sX). <> « 0 » de valeur puis
« échec de rangée »
sTmp = ""
Sortir pour
Finir si
Finir si
S'iCol = 1 puis
sTmp = le WS. Gamme (sX)
Autrement
Si colOutput.Item (iCol) = « E » puis
sTmp = sTmp et sComma et le WS. Gamme (sX)
Autrement
sTmp = sTmp et sComma et le WS. Gamme (sX)
Finir si
Finir si
Prochain iCol
Si "" de <> de sTmp alors
#lfn d'impression, sTmp
Finir si
Prochain lRow
Lfn étroit
Sous-marin d'extrémité
|
