copia dati Excel Outlook

maori

Nuovo Utente
3 Nov 2009
1
0
0
Ciao a tt. Visto che è la "prima volta", spero di non fare casini...

Problema: sto sviluppando un applicativo in VBaccess ed ho necessità di creare una "Riunione" con Outlook (MSoffice ver. 2003); nel corpo testo della riunione ci debbo mettere testo ed un range excel MANTENENDO LA FORMATTAZIONE originaria (colori, bordi, celle, ecc). Le ho provate tutte (quelle che so, e non sono un gran ché...) tramite ObjectData ma il metodo è in grado di copiare solo testo e non riesco a duplicare in VBA quello che avviene se lo faccio a mano.
Posto il codice che uso in Access e col quale faccio una chiamata a codice Outlook che mi permette la gestione senza i noti warnings dell'applicazione.
Grazie in anticipo per l'aiuto.
Maurizio.

...........

FaccioTabellaFormattata
wTesto = wParte1 & wParte2 & wParte3

On Error GoTo ErrOtl
Set ObjOutlook = GetObject(, "Outlook.Application")
If ObjOutlook.CreaRiunione(Rst!Oggetto, _
Rst!Luogo, _
wInizio, _
wDurata, _
wParte1, _
wParte2, _
wParte3, _
wDestOK) Then
Convoco = True
Else
Convoco = False
End If
......

Private Sub FaccioTabellaFormattata()

Set ObjExcel = CreateObject("Excel.Application")
ObjExcel.Visible = True
ObjExcel.Workbooks.Add

Col = 1: Row = 1
ObjExcel.Sheets(1).Activate
With ObjExcel
.ActiveSheet.Cells(Row, Col).Value = "Rifer."
Col = Col + 1
.ActiveSheet.Cells(Row, Col).Value = "Invitati"
Col = Col + 1
.ActiveSheet.Cells(Row, Col).Value = "Progetto"
Col = Col + 1
.ActiveSheet.Cells(Row, Col).Value = "Dalle"
Col = Col + 1
.ActiveSheet.Cells(Row, Col).Value = "Alle"
MaxCol = Col
Col = 1
For i = 1 To UBound(Arif)
Row = Row + 1
.ActiveSheet.Cells(Row, Col).Value = Arif(i)
Col = Col + 1
.ActiveSheet.Cells(Row, Col).Value = Replace(Adestin(i), "+", "; ")
Col = Col + 1
.ActiveSheet.Cells(Row, Col).Value = aProg(i)
Col = Col + 1
.ActiveSheet.Cells(Row, Col).Value = Adalle(i)
Col = Col + 1
.ActiveSheet.Cells(Row, Col).Value = Aalle(i)
Col = 1
Next i
MaxRow = Row
.ActiveSheet.Range(.Cells(1, 1), .Cells(MaxRow, MaxCol)).Select
.Cells.Select
.Cells.EntireColumn.AutoFit
Set ObjData = New DataObject
.Selection.Copy
ObjData.GetFromClipboard
wParte2 = ObjData.GetText

.ActiveWorkbook.Close SaveChanges:=False
End With
ObjExcel.Quit
Set ObjExcel = Nothing
End Sub
 
Discussioni simili
Autore Titolo Forum Risposte Data
S [MySQL] Conversione dati e copia in in altra colonna MySQL 8
O cicli di scrittura dati e copia dati secondo una griglia predefinita Visual Basic 2
S consiglio per ottimizzare copia dati fra diversi DB Database 0
R Dubbi copia sito CMS (Content Management System) 3
P Funzione copia multipla. Javascript 2
J Info per copia sfondo Photoshop 2
Beppe2 [Javascript] Tasto seleziona e copia Javascript 4
W [Prestashop] Non accedo più dopo la copia da remoto a locale E-Commerce 7
M [Javascript] Copia incolla con alert Javascript 0
G [HTML] copia il TAG META che trovi sotto ed incollalo sotto il tag <HEAD> HTML e CSS 9
Max 1 Copia articolo Leggi, Normative e Fisco 4
C [Joomla] Copia di un sito web "statico" in locale Joomla 3
utente è possibile creare una pagina php che copia interamente il contenuto di un'altra pagina ? PHP 10
napuleone File MYD e copia del database Database 0
M Funzione copia nascosta Javascript 0
filomeni Copia ricorsiva PHP 3
felino [C#] Farpoint Spread: copia-incolla su celle filtrate .NET Framework 1
G Per copia ed incollare un immagine su un' altra fotografia ho selezionato Photoshop 1
M Invio e mail al destinatario con invio di una copia al mittente PHP 35
M Copia file da server A a server B PHP 0
P Sito che mi copia, segnalazione a Google SEO e Posizionamento 1
novello88 Google: aggiornare "copia cache" SEO e Posizionamento 1
L copia email al cliente PHP 1
M Modificare form email affinchè mandi una copia BCC CMS (Content Management System) 1
D Copia file da Windows a Linux PHP 9
K Cluster mysql copia database MySQL 6
B Codice che disabilita la funzione di Copia Schermo? Javascript 1
S Copia immagine - Salva con nome PHP 3
M copia database Visual Basic 0
A Flash - copia pulsante da distaccare... ? Flash 1
A Flash: separare un pulsante dalla propria copia Webdesign e Grafica 2
Z Dreamweaver crea una copia delle immagini Windows e Software 1
F copia file di determitati file con checkbox PHP 0
M Cdosys Invio copia email a utente Classic ASP 19
G script Copia e incolla in php PHP 1
G Copia di immagine da internet a server in intranet HTML e CSS 4
A Copia Disco Windows e Software 4
C Copia cartelle in rete Reti LAN e Wireless 0
P Copia tabella su altra tabella PHP 1
G News dal mondo, cronaca sport ecc. Con un semplice copia incolla sul tuo sito HTML e CSS 1
T copia di colonne Database 5
S problemi con copia e incolla!!! Hardware 0
A BASTA! Spazio Web Gratis + Copia/Incolla Siti Supporto Mr.Webmaster 1
A Evitare copia pagine Javascript 2
Couting95 inserire dati da un file di testo in una tabella in php PHP 1
F Scrivere dei dati in word con php PHP 0
otto9due $_FILE non passa i dati dal form PHP 1
N dati tabella non presi PHP 0
M Riportare in tabella HTML dati estratti con query SQL MySQL 0
I Assegnare dati fetch request ad una variabile globale Javascript 0

Discussioni simili