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 :
|
class= de
clic " de " codeSnippet742333 d'id= " de Sub de class= (source comme bouton)
'Copyright Botstation (www.botstation.com)
Faible session en tant que nouveau NotesSession
Faibles wks en tant que nouveau NotesUIWorkspace
Faible DB comme NotesDatabase
Mauvaise opinion comme NotesView
Faible uiView comme NotesUIView
Faible Doc. comme NotesDocument
Faible colonne comme NotesViewColumn
Faible rangée en tant que longtemps, colcounter en tant que longtemps, arrcnt en tant que longtemps, arrcounter en tant que longtemps, x en tant que longtemps
Faible nom de fichier comme corde, currentvalue comme corde
Faible rowsatonce comme nombre entier, NC comme nombre entier
Faible de xlApp variante aussi, xlsheet que la variante, de xlwb variante aussi, xlrange que la variante, tempval comme variante
Faible DataArray
Faible liste de VColumns comme corde
Redim DataArray (0, 80) comme corde
'80 colonnes est notre nombre maximum prévu des colonnes dans la vue. Elle recomputed dynamiquement ci-dessous au nombre (inférieur) réel. Changer si le nombre de colonnes est plus grand.
Placer db=session.CurrentDatabase
Placer le xlApp = le CreateObject (« Excel.Application »)
xlApp.Visible = le 'programme vrai d'Excel est évident (pour éviter des erreurs et voir ce qui se produit)
Placer xlwb=xlApp.Workbooks.Add
Placer le =xlwb de xlsheet. Feuilles de travail (1)
Placer l'uiView = le wks.CurrentView
Placer la vue = le db.GetView (uiView.ViewName) 'obtiennent la vue actuellement ouverte dans UI
arrcnt=0
row=1
colcounter=0
rowsatonce=20
Forall c en vue. Colonnes
Si c.isIcon<>True alors 'n'incluent pas des colonnes d'icône
Si le """ et les c.Formula<> " 1 " du """ 1 de c.Formula<> alors 'n'incluent pas les colonnes qui sont employées pour le compte des Doc.s (le total)
colcounter=colcounter+1
DataArray (row-1, colcounter-1) =c.Title
VColumns (Cstr (NC))=Cstr (NC)
Finir si
Finir si
cn=cn+1
Finir Forall
Conserve DataArray (0, colcounter-1) de Redim comme corde
xlsheet. Gamme (« A1 »). Remettre à la côte (1, colcounter). La valeur = le DataArray 'ont placé des noms de colonne
Redim DataArray (rowsatonce-1, colcounter-1) comme corde
row=2
x=0
Placer Doc. = view.GetFirstDocument
Tandis que pas (le Doc. n'est rien)
Colonne de Forall dans VColumns
"" de currentvalue=
tempval= doc.ColumnValues (Val (colonne))
S'Isarray (tempval) puis
Forall v dans tempval
Si "" de currentvalue= alors
currentvalue=v
Autrement
currentvalue=currentvalue+ ", « +v
Finir si
Finir Forall
Autrement
currentvalue=tempval
Finir si
x=x+1
=currentvalue de DataArray (arrcounter, x-1)
Extrémité Forall
x=0
row=row+1
arrcounter=arrcounter+1
Si arrcounter/rowsatonce=arrcounter \ puis rowsatonce et arrcounter<>0
xlsheet. Gamme (« A " +Cstr (arrcnt*rowsatonce+2)). Remettre à la côte (rowsatonce, colcounter). Valeur = DataArray
arrcnt=arrcnt+1
arrcounter=0
Redim DataArray (rowsatonce-1, colcounter-1) comme corde
Finir si
Placer Doc. = view.GetNextDocument (le Doc.)
Wend
Si arrcounter/rowsatonce<>arrcounter \ puis rowsatonce et arrcounter>0
'Conserve DataArray (arrcounter, colcounter-1) de Redim comme corde
xlsheet. Gamme (« A " +Cstr (arrcnt*rowsatonce+2)). Remettre à la côte (arrcounter, colcounter). Valeur = DataArray
Finir si
xlsheet. Cells.Select
xlsheet. Cells.EntireColumn.AutoFit
xlsheet. Rangées (« 1 : 1 »). Choisi
le xlapp. Selection.Font.Bold = rectifient
xlapp. Selection.Interior.Pattern = 1
xlapp. Selection.Interior.PatternColorIndex = -4105
xlapp. Selection.Interior.ThemeColor =3
xlapp. Selection.Interior.TintAndShade = 0
xlapp. Selection.Interior.PatternTintAndShade = 0
xlapp. Selection.RowHeight = 41.25
décalage du xlapp. Selection.Insert = -4121
xlapp. Gamme (« A1 »). Choisi
xlapp.ActiveCell.FormulaR1C1 = Datevalue (maintenant)
xlapp. Gamme (« B1 »). Choisi
xlapp.ActiveCell.FormulaR1C1 = « statut au détail de demande de projet »
xlsheet. Rangées (« 1 : 1 »). Choisi
le xlapp. Selection.Font.Bold = rectifient
xlapp. Selection.Interior.Pattern = 1
xlapp. Selection.Interior.PatternColorIndex = -4105
xlapp. Selection.Interior.ThemeColor =3
xlapp. Selection.Interior.TintAndShade = 0
xlapp. Selection.Interior.PatternTintAndShade = 0
xlapp. Colonnes (« A : ») .ColumnWidth = 10.14
Msgbox « fait »
Sous-marin d'extrémité
|
