Cuestión : Necesitar convertir el lotusscript al trabajo con Macintosh

Hola, necesidad del

I de convertir el código (de trabajo) siguiente de modo que trabaje para un usuario de Macintosh.  Nunca he utilizado/lotusscript probado en un mac antes de que no esté tan incluso seguro que es posible.  La mayor parte de el código siguiente no es la mina, pero qué lo hace es toma todos los documentos de una opinión del loto y los exporta en sobresale.  Después tengo código a dar formato/modifico el sobresalir doc. para mirar la manera que los usuarios la quieren.  He leído que hay diferencias dominantes en lotusscript en un mac que en una PC tal como

Currently de las trayectorias de la impulsión/de las trayectorias/etc. de la carpeta el error dado es “operación no apoyada en esta plataforma.” ¡Como dije, no estoy seguro si esto incluso es posible en un mac, pero cualquier consejo y o cambiado cualquier persona puede darme apreciaría! class= > " claro " 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:
tecleo notpretty del >Sub " del class= " de " codeSnippet742333 del id= del 
True entonces 'no incluyen columnas del icono
			Si el """ y c.Formula<> " 1 " del """ 1 de c.Formula<> entonces 'no incluyen las columnas que se utilizan para contar doc. (el total)
				colcounter=colcounter+1
				DataArray (row-1, colcounter-1) =c.Title
				VColumns (Cstr (NC))=Cstr (NC)
			Terminar si
		Terminar si
		cn=cn+1
	Terminar Forall
	Coto DataArray (0, colcounter-1) de Redim como secuencia
	xlsheet. Gama (“A1”). Volver a clasificar según el tamaño (1, colcounter). El valor = DataArray 'fijaron nombres de columna
	Redim DataArray (rowsatonce-1, colcounter-1) como secuencia
	row=2
	x=0
	Fijar doc. = view.GetFirstDocument
	Mientras que no (el doc. es nada)
		Columna de Forall en VColumns
			"" del currentvalue=
			tempval= doc.ColumnValues (Val (columna))
			Si Isarray (tempval) entonces
				Forall v en tempval
					Si "" del currentvalue= entonces
						currentvalue=v
					
						currentvalue=currentvalue+ ", “+v
					Terminar si
				Terminar Forall
			
				currentvalue=tempval
			Terminar si
			x=x+1
			=currentvalue de DataArray (arrcounter, x-1)
		Extremo Forall
		x=0
		row=row+1
		arrcounter=arrcounter+1
		Si arrcounter/rowsatonce=arrcounter \ rowsatonce y arrcounter<>0 después
			xlsheet. Gama (“A " +Cstr (arrcnt*rowsatonce+2)). Volver a clasificar según el tamaño (rowsatonce, colcounter). Valor = DataArray
			arrcnt=arrcnt+1
			arrcounter=0
			Redim DataArray (rowsatonce-1, colcounter-1) como secuencia
		Terminar si
		Fijar doc. = view.GetNextDocument (el doc.)
	Wend
	
	Si arrcounter/rowsatonce<>arrcounter \ rowsatonce y arrcounter>0 después
'Coto DataArray (arrcounter, colcounter-1) de Redim como secuencia
		xlsheet. Gama (“A " +Cstr (arrcnt*rowsatonce+2)). Volver a clasificar según el tamaño (arrcounter, colcounter). Valor = DataArray
	Terminar si
	
	xlsheet. Cells.Select
	xlsheet. Cells.EntireColumn.AutoFit
	xlsheet. Filas (“1: 1”). Selecto
	el xlapp. Selection.Font.Bold = verdad
	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
	cambio del xlapp. Selection.Insert = -4121
	xlapp. Gama (“A1”). Selecto
	xlapp.ActiveCell.FormulaR1C1 = Datevalue (ahora)
	xlapp. Gama (“B1”). Selecto
	xlapp.ActiveCell.FormulaR1C1 = “estado al por menor de la petición del proyecto”
	xlsheet. Filas (“1: 1”). Selecto
	el xlapp. Selection.Font.Bold = verdad
	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. Columnas (“A: ”) .ColumnWidth = 10.14
	
	Msgbox “hecho”
Submarino del extremo
class= del

Respuesta : Necesitar convertir el lotusscript al trabajo con Macintosh

¿Usted instaló la ayuda VIEJA?
Otras soluciones  
 
programming4us programming4us