Newsgroup: it.comp.appl.access
Titolo: Aprire un foglio di excel da db access

Qualcuno di voi sa  aprire un foglio di excel con una macro in un db access
e tagliare le prime cinque righe??
grazie



devo farlo anch'io entro la fine della settimana, pensavo di importare
tutto il folgio e poi cancellare i primi cinque record, comunque fra
qualche giorno provo, al limite segnati il nome e poi ridomandamelo se
nessuno ti risponde
Saluti.
Emanuele.

Emyr ti ringrazio, l'altra settimana mi hai suggerito la macro
"trasferiscifogliocalcolo" che č ottima per il mio caso, solo che prima di
importare il foglio devo assolutamente tagliare le prime 5 righe di
quest'ultimo.
ciao


Non le puoi
eliminare dopo il trasferimento ?
OndaMax
--------------------------------
Inviato via 
http://usenet.iol.it
 

mi spiego meglio le prime cinque righe del foglio xls variano di volta in
volta, mentre dalla 6° riga in poi c'e' una certa omogeneità di impostazione
e sono presenti i dati che mi interessano. Giustamente potrei cancellare le
prime 5 righe dopo aver importato il foglio ne Db, però c'è dell'altro, in
una cella nelle prime 5 righe c'è una data che va copiata nel primo campo
del db: allora pensavo di copiare la cella contenente la data e incollarla
inserendo una colonna nel foglio xls e succcessivamente importarlo nel DB.

inserendo una colonna nel foglio xls e
succcessivamente importarlo nel DB.
.
Scusa Simone, ma oggi sono de
coccio ...
Se già ti tocca manipolare il file Excel prima
dell'importazione, non puoi risolvere copiando su un nuovo foglio, magari
nella stessa cartella, ed eliminare le prime 5 righe già che ci sei ?
A
quel punto se importi il nuovo foglio dovresti avere la situazione
corretta.
.


hai ragione, ma dovrei creare una procedura che poi non utilizzerei io, ma
un mio collega e allora invece di fargli aprire prime excel e fargli
lanciare una macro e poi fargli aprire Access e fargliene lanciare un'altra
volevo gestire tutto attraverso un pannello comandi in un DB.
Grazie.



puoi creare  il nuovo foglio via automazione excel da access
vedi gli esempi di automazione su sitocomune.con
Saluti.
Emanuele.

vedi gli esempi di automazione su
sitocomune.con
.
Esatto ...
Dovrebbe essere una cosa del genere,
sostituendo chiaramente il nome del File Excel. Provo a postare un'ipotesi,
scusandomi fin d'ora per eventuali formattazioni e a capo non voluti che di
sicuro IOL fornirą di sua iniziativa ...
.
Dim excApp As Object
Dim
ExcDoc As Object
VDoc = "C:\Documenti\FileExcel.xls"
Set excApp =
CreateObject("Excel.Application")
Set ExcDoc = excApp.Workbooks.Open(VDoc)
ExcDoc.Worksheets.Item(1).Rows("1:5").Delete
ExcDoc.Close
savechanges:=True
Set ExcDoc = Nothing
excApp.Application.Quit


Ha funzionato!!!!
grazie siete grandi...

mi rendo conto di abusare della vostra pazienza:
mi indicate anche i comandi per inserire una colonna prima della colonna A e
copiarci la cella A3?
se non avete tempo non importa siete stati già eccezionali !
ciao

e copiarci la cella A3?
.
Per l'inserimento della nuova colonna dovrebbe bastare aggiungere quanto
segue prima o dopo l'eliminazione righe:
.
ExcDoc.worksheets.Item(1).Columns("A:A").Insert
.
Più complicato e lungo
il discorso della data, perchè qui abbiamo a che fare con formati,
formattazioni, incremento automatico dei valori di AutoFill, ecc.. Torno a
suggerire di gestire il valore di quella colonna su Access con una query di
aggiornamento. Comunque se vuoi portarti dietro il valore data A3 almeno
sulla prima riga (A1) ...
.
ExcDoc.worksheets.Item(1).cells(6, 1) =
ExcDoc.worksheets.Item(1).cells(3, 2)
.
Tutto su un'unica riga comando,
naturalmente ... e prima del comando Delete ... anche se non garantisco il
formato (è possibile che si porti dietro un numero)
Ciao


In effetti perde l'impostazione di data anche spostandola alla cella A1 con
il comando che mi hai suggerito: immagino perchè il comando = non è un
incolla dove si incollano sia i valori che i formati.
Hai allora qualche idea? a questo punto potrei anche fargli inserire la data
attraverso una maschera ma poi come faccio a fargli copiare il valore della
data nel primo campo nella tabella DB che ho importato per tutti gli x
record?
Purtroppo ora devo andare, se hai qualche idea suggerisci pure (stasera darò
un occhiata al ng) altrimenti ti ringrazio per tutto quello che hai fatto.

con il comando che
mi hai suggerito: 
.
Incolla questa riga subito dopo l'Insert ...
.
ExcDoc.Worksheets.Item(1).Columns("A:A").NumberFormat = "m/d/yy"
.




grazie anche da parte mia OndaMax mi hai risparmiato di spulciare gli
help....
Saluti.
Emanuele.

mi hai risparmiato di spulciare gli help....
.
Non c'è di
che ... ;-)
