Questione : Dovere convertire il lotusscript in lavoro con Macintosh

Ciao, necessità del

I di convertire il seguente codice (di funzionamento) in modo che funzioni per un utente del Macintosh.  Mai ho usato/lotusscript provato su un mackintosh prima che così non fossi neppure sicuro che è possibile.  La maggior parte di seguente codice non è miniera, ma che cosa fa è prende tutti i documenti da un punto di vista del loto e li esporta in eccelle.  Allora ho codice da formattare/modifico il documento di supremazia per osservare il senso che gli utenti lo vogliono.  Ho letto che ci sono differenze chiave nel lotusscript su un mackintosh che su un pc quale il

Currently dei percorsi dell'azionamento/percorsi/ecc. del dispositivo di piegatura l'errore dato è “funzionamento di sostegno su questa piattaforma.„ Come ho detto, non sono sicuro se questo persino sia possibile su un mackintosh, ma tutto il consiglio ed o variabile chiunque può darlo apprezzasse! 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:
scatto notpretty del >Sub " del class= " " di codeSnippet742333 del id= del 
True allora 'non includono le colonne dell'icona
			Se il """ del """ 1 di c.Formula<> e c.Formula<> " 1 " allora 'non includono le colonne che siano usate per contare i documenti (totale)
				colcounter=colcounter+1
				DataArray (row-1, colcounter-1) =c.Title
				VColumns (Cstr (cn))=Cstr (cn)
			Concluder se
		Concluder se
		cn=cn+1
	Concludere Forall
	Conserva DataArray (0, colcounter-1) di Redim come stringa
	xlsheet. Gamma (“A1„). Ridimensionare (1, colcounter). Il valore = DataArray 'hanno fissato i nomi di colonna
	Redim DataArray (rowsatonce-1, colcounter-1) come stringa
	row=2
	x=0
	Regolar documento = view.GetFirstDocument
	Mentre non (documento è niente)
		Colonna di Forall in VColumns
			"" del currentvalue=
			tempval= doc.ColumnValues (Val (colonna))
			Se Isarray (tempval) allora
				Forall v in tempval
					Se "" del currentvalue= allora
						currentvalue=v
					Altrimenti
						currentvalue=currentvalue+ ", “+v
					Concluder se
				Concludere Forall
			Altrimenti
				currentvalue=tempval
			Concluder se
			x=x+1
			=currentvalue di DataArray (arrcounter, x-1)
		Estremità Forall
		x=0
		row=row+1
		arrcounter=arrcounter+1
		Se arrcounter/rowsatonce=arrcounter \ rowsatonce e arrcounter<>0 allora
			xlsheet. Gamma (“A " +Cstr (arrcnt*rowsatonce+2)). Ridimensionare (rowsatonce, colcounter). Valore = DataArray
			arrcnt=arrcnt+1
			arrcounter=0
			Redim DataArray (rowsatonce-1, colcounter-1) come stringa
		Concluder se
		Regolar documento = view.GetNextDocument (documento)
	Wend
	
	Se arrcounter/rowsatonce<>arrcounter \ rowsatonce e arrcounter>0 allora
'Conserva DataArray (arrcounter, colcounter-1) di Redim come stringa
		xlsheet. Gamma (“A " +Cstr (arrcnt*rowsatonce+2)). Ridimensionare (arrcounter, colcounter). Valore = DataArray
	Concluder se
	
	xlsheet. Cells.Select
	xlsheet. Cells.EntireColumn.AutoFit
	xlsheet. File (“1: 1„). Prescelto
	il xlapp. Selection.Font.Bold = allinea
	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
	spostamento del xlapp. Selection.Insert = -4121
	xlapp. Gamma (“A1„). Prescelto
	xlapp.ActiveCell.FormulaR1C1 = Datevalue (ora)
	xlapp. Gamma (“B1„). Prescelto
	xlapp.ActiveCell.FormulaR1C1 = “condizione al minuto di richiesta di progetto„
	xlsheet. File (“1: 1„). Prescelto
	il xlapp. Selection.Font.Bold = allinea
	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. Colonne (“A: „) .ColumnWidth = 10.14
	
	Msgbox “fatto„
Sommergibile dell'estremità
class= del

Risposta : Dovere convertire il lotusscript in lavoro con Macintosh

Avete installato il supporto OLE?
Altre soluzioni  
 
programming4us programming4us