Newsgroup: it.comp.appl.notes-domino
Titolo: Creare uno script per Excel

Ciao,
devo creare uno script in lotusscript che mi prenda dei dati da una vista e
li metta in un foglio di excel. Il mio problema sorge quando devo prendere i
valori di un campo che contiene degli invii, cioè sono stati inseriti tanti
valori ed alla fine di ognuno si è daro invio! Con questo metodo excel
prende l'invio come un comando a capo e quindi tutti i valori me li mette
uno sotto l'altro invece di mettermeli uno di seguito all'altro.
Grazie
--------------------------------
Inviato via 
http://usenet.libero.it

 Inviato via 
http://usenet.libero.it
Per esportare in Excel io uso questo script facile facile che non mi 
ricordo neanche piů da dove ho copiato... Lo associo ad un pulsante 
operazione in una vista e lavora sui documenti selezionati... non so 
sinceramente come funziona con il problema degli invii... Ciao 
Sub Click(Source As Button)
	'Prende i dati dalla vista
	Dim x As Integer	
	Dim y As Integer
	Dim strLen As Integer 	
	Dim ses As NotesUIworkspace
	Dim vw As NotesUIView	
	Dim coldocs As NotesDocumentCollection
	Dim doc As NotesDocument
	Dim it As Variant
	Dim strDesc As String 
	Dim strTrack As String 
	Dim titolo As Variant
	Set ses = New NotesUIWorkspace
	Set vw = ses.currentview
	Set coldocs = vw.documents
	Set doc = coldocs.getfirstdocument
'Setta Excel
	Dim xlApp As Variant
	Dim xlSheet As Variant
	Set xlApp = CreateObject("Excel.application")
	xlApp.Workbooks.Add
	Set xlSheet = xlApp.Workbooks(1).Worksheets(1)
'Setta le intestazioni di colonna sulla prima riga
	xlSheet.Cells(1, 1).Value = "Num Area"
	xlSheet.Cells(1, 2).Value = "Num Filiale"
	xlSheet.Cells(1, 3).Value = "Filiale"
	xlSheet.Cells(1, 4).Value = "Totale"
	xlSheet.Cells(1, 5).Value = "%"
	For x = 2 To (coldocs.count + 1)
'Setta le variabili da esportare nelle colonne (doc.nomecampo)
		xlSheet.Cells(x+11, 1).Value = doc.OrdineArea
		xlSheet.Cells(x+11, 2).Value = doc.OrdineFiliale
		xlSheet.Cells(x+11, 3).Value = doc.DescrizioneFiliale
		xlSheet.Cells(x+11, 4).Value = doc.Totale
		xlSheet.Cells(x+11, 5).Value = doc.Per
'Prende il documento successivo
		Set doc = coldocs.GetNextDocument(doc)
	Next x
'Setta la prima 12 riga come in grassetto
	xlSheet.rows(1).font.bold = True	
'Setta la prima riga come a capo automatico	
	xlSheet.rows(1).Wraptext = True
'Setta l'allineamento verticale centrato
	xlSheet.cells.Columns.VerticalAlignment = 2
'Setta la prima riga come centrata	
	xlSheet.rows(1).HorizontalAlignment = 3
'Setta il formato delle celle come migliaia
	xlSheet.Cells.Columns.NumberFormat = "#.##0"
'Setta il formato delle celle come testo
	xlSheet.Columns(1).NumberFormat = "@"	
'Setta il formato delle celle come percentuale
	xlSheet.Cells.Columns(5).NumberFormat = "0,0%"	
'Setta la larghezza delle colonne
	xlSheet.Columns(1).Columnwidth = 7
	xlSheet.Columns(2).Columnwidth = 7
	xlSheet.Columns(3).Columnwidth = 21
	xlSheet.Columns(4).Columnwidth = 10
	xlSheet.Columns(5).Columnwidth = 7
'Adatta la dimensione delle colonne al contenuto
	xlSheet.Cells.Columns.AutoFit
'Setta l'orientamento orizzontale della stampante
	xlSheet.PageSetup.Orientation = 2
'Setta la prima riga come intestazione su tutte le pagine in stampa
	xlsheet.PageSetup.PrintTitleRows = "$1:$1"
'Imposta i margini del foglio, la stampa adattata alla pagina, centrata
	xlsheet.PageSetup.zoom=False
	xlsheet.PageSetup.FitToPagesWide = 1
	xlsheet.PageSetup.FitToPagesTall = 1
	xlsheet.PageSetup.LeftMargin = 30
	xlsheet.PageSetup.RightMargin = 30
	xlsheet.PageSetup.TopMargin = 60
	xlsheet.PageSetup.BottomMargin = 60
	xlsheet.PageSetup.HeaderMargin = 25
	xlsheet.PageSetup.FooterMargin = 25
	xlsheet.PageSetup.CenterHorizontally = True
	xlsheet.PageSetup.CenterVertically = True
'Imposta la stampa della griglia	
	xlsheet.PageSetup.PrintGridlines = 1	
'Setta il titolo	
	xlsheet.PageSetup.CenterHeader = titolo	
'Cambia nome al foglio di Excel	
	xlsheet.Name = "Dati"
'Visualizza un messaggio	
	Msgbox "Esportazione completata", 64, "Excel Export"
'Mostra Excel
	xlApp.Visible = True
End Sub
--
Luka
http://www.kaufmansoft.com/Final/Pravda_120.exe
http://www.nic.it/NA/netiquette.txt
Ognuno sta solo
sul cuore della terra
trafitto da un raggio di sole:
ed č subito sera.