Pytanie : Potrzeba lotusscript z makintosz

Cześć,

I potrzeba the następujący () kod tak, że ono pracować dla makintosz użytkownik.  I nigdy używać/badać lotusscript na MAC zanim w ten sposób I być nawet pewny że ono być ewentualny.  Przodować the następujący kod być kopalniany, ale przodować ono być brać wszystkie the dokument od lotosowy widok i eksport ono w przodować.  I wtedy mieć kod format/modyfikować the przodować doc the sposób the użytkownik chcieć ono.  I czytać że tam  być kluczowa różnica w lotusscript na MAC na komputer osobisty tak jak prowadnikowy ścieżka/skoroszytowy ścieżka/Etc.

Currently the błąd dawać być "Operacja wspierać na ten platforma." Jakby I powiedzieć, I być pewny jeżeli i nawet być ewentualny na MAC, ale jakaś rada i lub móc I doceniać! 
(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:

Sub Stuknięcie (Źródło Guzik)
	'Prawo autorskie Botstation (www.botstation.com)
	Ciemnawy sesja Jako Nowy NotesSession
	Ciemnawy wks Jako Nowy NotesUIWorkspace
	Ciemnawy db Jako NotesDatabase
	Ciemnawy widok Jako NotesView
	Ciemnawy uiView Jako NotesUIView
	Ciemnawy doc Jako NotesDocument
	Ciemnawy kolumna Jako NotesViewColumn
	
	Ciemnawy rząd Długo, colcounter Długo, arrcnt Długo, arrcounter Długo, x Długo
	Ciemnawy filename Jako Sznurek, currentvalue Sznurek
	Ciemnawy rowsatonce Jako Integer, cn Jako Integer
	Ciemnawy xlApp Jako Wariant, xlsheet Jako Wariant, xlwb Jako Wariant, xlrange Jako Wariant, tempval Jako Wariant
	Ciemnawy DataArray
	Ciemnawy VColumns Lista Sznurek
	
	Redim DataArray ((0), 80) Sznurek
'80 kolumna być nasz oczekiwać oczekiwać liczba kolumna w the widok. Ono liczba recomputed liczba faktyczny (niski) liczba. Zmieniać jeżeli the liczba kolumna być wielki.
	
	Ustawiać db=session.CurrentDatabase
	Ustawiać xlApp = CreateObject ("Excel.Application")
	
	xlApp.Visible = Prawdziwy 'Przodować program być widoczny (błąd i co zdarzać się)
	
	Set xlwb=xlApp.Workbooks.Add
	Ustalony xlsheet =xlwb. Worksheets (1)
	
	Ustalony uiView = wks.CurrentView
	Ustalony widok = db.GetView (uiView.ViewName) 'dostawać the widok obecnie otwarty w UI
	arrcnt=0
	row=1
	colcounter=0
	rowsatonce=20
	Forall c W widok. Kolumna
		Jeżeli c.isIcon<>True Wtedy 'zawierać ikona kolumna
			Jeżeli c.Formula<> """ (1) """ I c.Formula<> " (1) " Wtedy 'zawierać kolumna che używać dla docs (Suma)
				colcounter=colcounter+1
				DataArray (row-1, colcounter-1) =c.Title
				VColumns (Cstr (cn))=Cstr (cn)
			Kończyć Jeżeli
		Kończyć Jeżeli
		cn=cn+1
	Kończyć Forall
	Redim Prezerwa DataArray ((0), colcounter-1) Sznurek
	xlsheet. Pasmo ("A1"). Resize ((1), colcounter). Wartość = DataArray 'set kolumna imię
	Redim DataArray (rowsatonce-1, colcounter-1) Sznurek
	row=2
	x=0
	Set doc = view.GetFirstDocument
	Podczas Gdy Nie (doc Być Podczas Gdy)
		Forall col W VColumns
			currentvalue= ""
			tempval= doc.ColumnValues (Val (col))
			Jeżeli Isarray (tempval) Wtedy
				Forall v W tempval
					Jeżeli currentvalue= "" Wtedy
						currentvalue=v
					Inny
						currentvalue=currentvalue+ ", "+v
					Kończyć Jeżeli
				Kończyć Forall
			Inny
				currentvalue=tempval
			Kończyć Jeżeli
			x=x+1
			DataArray (arrcounter, x-1) =currentvalue
		Końcówka Forall
		x=0
		row=row+1
		arrcounter=arrcounter+1
		Jeżeli arrcounter/rowsatonce=arrcounter \ rowsatonce I arrcounter<>0 Wtedy
			xlsheet. Pasmo ("A " +Cstr (arrcnt*rowsatonce+2)). Resize (rowsatonce, colcounter). Wartość = DataArray
			arrcnt=arrcnt+1
			arrcounter=0
			Redim DataArray (rowsatonce-1, colcounter-1) Sznurek
		Kończyć Jeżeli
		Ustawiać doc = view.GetNextDocument (doc)
	Wend
	
	Jeżeli arrcounter/rowsatonce<>arrcounter \ rowsatonce I arrcounter>0 Wtedy
'Redim Prezerwa DataArray (arrcounter, colcounter-1) Sznurek
		xlsheet. Pasmo ("A " +Cstr (arrcnt*rowsatonce+2)). Resize (arrcounter, colcounter). Wartość = DataArray
	Kończyć Jeżeli
	
	xlsheet. Cells.Select
	xlsheet. Cells.EntireColumn.AutoFit
	xlsheet. Rząd ("(1): (1)"). Wybiórka
	xlapp. Selection.Font.Bold = Prawdziwy
	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 Przesunięcie = -4121
	xlapp. Pasmo ("A1"). Wybiórka
	xlapp.ActiveCell.FormulaR1C1 = Datevalue (Teraz)
	xlapp. Pasmo ("B1"). Wybiórka
	xlapp.ActiveCell.FormulaR1C1 = "Handel detaliczny Projekt Prośba Status"
	xlsheet. Rząd ("(1): (1)"). Wybiórka
	xlapp. Selection.Font.Bold = Prawdziwy
	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. Kolumna ("A: ") .ColumnWidth = 10.14
	
	Msgbox "Robić"
Końcówka Okręt podwodny

Odpowiedź : Potrzeba lotusscript z makintosz

Ty instalować POPARCIE poparcie?
Inne rozwiązania  
 
programming4us programming4us