Frage : Lotusscript in Arbeit mit Macintosh umwandeln müssen

Hallo,

I Notwendigkeit, den folgenden (arbeitenden) Code umzuwandeln, damit es für einen Macintosh-Benutzer funktioniert.  Ich habe nie verwendet,/geprüftes lotusscript auf einem Mac, bevor so ich nicht sogar sicher bin, dass es möglich ist.  Die meisten des folgenden Codes ist nicht Grube, aber, was es tut, ist nimmt alle Dokumente von einer Lotosansicht und exportiert es in übertreffen.  Ich dann habe, den Code, zum zu formatieren/ändere übertreffen Doc., um die Weise zu schauen, welche die Benutzer sie wünschen.  Ich habe gelesen, dass es Schlüsselunterschiede bezüglich des lotusscript auf einem Mac gibt, als auf einem PC wie Antriebswege/Faltblattwege/etc.

Currently die Störung, die gegeben wird, „der Betrieb ist, der gestützt wird nicht auf diese Plattform.“ Wie ich sagte, bin ich nicht sicher, wenn dieses sogar auf einem Mac möglich ist, aber jeder möglicher Rat und oder geändert jedermann mich geben kann würde schätzen! 
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:

Sub Klicken (Quelle als Knopf)
	'Copyright Botstation (www.botstation.com)
	Schwacher Lernabschnitt als neues NotesSession
	Schwache wks als neues NotesUIWorkspace
	Schwaches DB als NotesDatabase
	Skeptischer Standpunkt als NotesView
	Schwaches uiView als NotesUIView
	Schwaches Doc. als NotesDocument
	Schwache Spalte als NotesViewColumn
	
	Schwache Reihe als lang, colcounter als lang, arrcnt als lang, arrcounter als lang, x als lang
	Schwacher Dateiname als Schnur, currentvalue als Schnur
	Schwaches rowsatonce als ganze Zahl, KN als ganze Zahl
	Schwache xlApp so Variante, xlsheet wie Variante, xlwb so Variante, xlrange wie die Variante, tempval als Variante
	Schwaches DataArray
	Schwache VColumns Liste als Schnur
	
	Redim DataArray (0, 80) als Schnur
'80 Spalten ist unsere erwartete maximale Spaltenanzahl in der Ansicht. Sie recomputed dynamisch unten zur tatsächlichen (niedrigeren) Zahl. Ändern, wenn die Spaltenanzahl größer ist.
	
	db=session.CurrentDatabase einstellen
	xlApp = CreateObject („Excel.Application“) einstellen
	
	xlApp.Visible = zutreffendes 'Excel-Programm ist sichtbar (Störungen vermeiden und sehen, was geschieht)
	
	xlwb=xlApp.Workbooks.Add einstellen
	Xlsheet =xlwb einstellen. Arbeitsblätter (1)
	
	uiView = wks.CurrentView einstellen
	Ansicht = db.GetView (uiView.ViewName) einstellen 'erhalten die Ansicht z.Z. geöffnet in UI
	arrcnt=0
	row=1
	colcounter=0
	rowsatonce=20
	Forall c in der Ansicht. Spalten
		Wenn c.isIcon<>True dann 'nicht Ikonenspalten miteinschließen
			Wenn c.Formula<> """ 1 """ und c.Formula<> " 1 " dann 'nicht Spalten umfassen, die werden benutzt für die Zählung von Doc. (Gesamtmenge)
				colcounter=colcounter+1
				DataArray (row-1, colcounter-1) =c.Title
				VColumns (Cstr (KN))=Cstr (KN)
			Beenden wenn
		Beenden wenn
		cn=cn+1
	Forall beenden
	Redim Konserve DataArray (0, colcounter-1) als Schnur
	xlsheet. Strecke („A1“). Die Größe neu bestimmen (1, colcounter). Wert = DataArray 'stellten Spaltennamen ein
	Redim DataArray (rowsatonce-1, colcounter-1) als Schnur
	row=2
	x=0
	Einstellen Doc. = view.GetFirstDocument
	Während nicht (Doc. ist nichts)
		Forall Spalte in VColumns
			currentvalue= ""
			tempval= doc.ColumnValues (Val (Spalte))
			Wenn Isarray (tempval) dann
				Forall V in tempval
					Wenn currentvalue= "" dann
						currentvalue=v
					Sonst
						currentvalue=currentvalue+ ", „+v
					Beenden wenn
				Forall beenden
			Sonst
				currentvalue=tempval
			Beenden wenn
			x=x+1
			DataArray (arrcounter, x-1) =currentvalue
		Ende Forall
		x=0
		row=row+1
		arrcounter=arrcounter+1
		Wenn arrcounter/rowsatonce=arrcounter \ rowsatonce und arrcounter<>0 dann
			xlsheet. Strecke („A " +Cstr (arrcnt*rowsatonce+2)). Die Größe neu bestimmen (rowsatonce, colcounter). Wert = DataArray
			arrcnt=arrcnt+1
			arrcounter=0
			Redim DataArray (rowsatonce-1, colcounter-1) als Schnur
		Beenden wenn
		Einstellen Doc. = view.GetNextDocument (Doc.)
	Wend
	
	Wenn arrcounter/rowsatonce<>arrcounter \ rowsatonce und arrcounter>0 dann
'Redim Konserve DataArray (arrcounter, colcounter-1) als Schnur
		xlsheet. Strecke („A " +Cstr (arrcnt*rowsatonce+2)). Die Größe neu bestimmen (arrcounter, colcounter). Wert = DataArray
	Beenden wenn
	
	xlsheet. Cells.Select
	xlsheet. Cells.EntireColumn.AutoFit
	xlsheet. Reihen („1: 1“). Auserwählt
	xlapp. Selection.Font.Bold = richten aus
	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
	xlapp. Selection.Insert Verschiebung = -4121
	xlapp. Strecke („A1“). Auserwählt
	xlapp.ActiveCell.FormulaR1C1 = Datevalue (jetzt)
	xlapp. Strecke („B1“). Auserwählt
	xlapp.ActiveCell.FormulaR1C1 = „Kleinprojekt-Antrag-Status“
	xlsheet. Reihen („1: 1“). Auserwählt
	xlapp. Selection.Font.Bold = richten aus
	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. Spalten („A: “) .ColumnWidth = 10.14
	
	Msgbox „getan“
Enden-Unterseeboot

Antwort : Lotusscript in Arbeit mit Macintosh umwandeln müssen

Anbrachten Sie ALTE Unterstützung e?
Weitere Lösungen  
 
programming4us programming4us