Discussione:
automazione excel
(troppo vecchio per rispondere)
GioeleDieci
2006-04-11 13:34:02 UTC
Permalink
sto cercando di aprire un file excel e duplicare la cartella "foglio1",
rinominando successivamente la nuova cartella in "copia".
cerco di riadattare il codice che segue:

Dim Xlsapp As Object
Dim strProgetto As String
Dim NewSh As Object

strProgetto = "25090030 commerciale"

Set Xlsapp = CreateObject("Excel.Application")
Xlsapp.Workbooks.Open _
Application.CurrentProject.Path & "\" & strProgetto & ".xls"

Set NewSh = Xlsapp.Worksheets.Add

NewSh.Name = "Nuovo Foglio"

Xlsapp.Workbooks(1).Save

Xlsapp.Quit
Set Xlsapp = Nothing

il problema è che digitando il punto negli oggetti non mi vengono
visualizzati proprietà ed eventi, dunque non so come proseguire.
help!!!

grazie
Maurizio Borrelli
2006-04-11 13:49:12 UTC
Permalink
Post by GioeleDieci
sto cercando di aprire un file excel e duplicare la cartella "foglio1",
rinominando successivamente la nuova cartella in "copia".
Dim Xlsapp As Object
Dim strProgetto As String
Dim NewSh As Object
strProgetto = "25090030 commerciale"
Set Xlsapp = CreateObject("Excel.Application")
Xlsapp.Workbooks.Open _
Application.CurrentProject.Path & "\" & strProgetto & ".xls"
Set NewSh = Xlsapp.Worksheets.Add
NewSh.Name = "Nuovo Foglio"
Xlsapp.Workbooks(1).Save
Xlsapp.Quit
Set Xlsapp = Nothing
il problema è che digitando il punto negli oggetti non mi vengono
visualizzati proprietà ed eventi, dunque non so come proseguire.
Ciao, GioeleDieci.

Prima di tutto:

Strumenti > Riferimenti...
Riferimenti disponibili:
[v] Microsoft Excel 11.0 Object Library
[ OK ]

Poi invece di:

Dim Xlsapp As Object
Dim NewSh As Object

scrivi:

Dim Xlsapp As Excel.Application
Dim NewSh As Excel.Workbook

Una volta che il codice sara' testato e funzionante potrai scrivere:

Dim Xlsapp As Object 'Excel.Application
Dim NewSh As Object 'Excel.Workbook

e togliere la Library di Excel dai riferimenti.
--
(Facci sapere se ed eventualmente come hai risolto. Grazie.)

Ciao :o)
Maurizio Borrelli, Microsoft Office Access MVP
-------- RIO - http://www.riolab.org/
?SPQR(C)
X
--------
Gabriele Bertolucci
2006-04-12 14:16:13 UTC
Permalink
Post by Maurizio Borrelli
Dim Xlsapp As Excel.Application
Dim NewSh As Excel.Workbook
Una volta che il codice sara' testato e funzionante potrai
Dim Xlsapp As Object 'Excel.Application
Dim NewSh As Object 'Excel.Workbook
e togliere la Library di Excel dai riferimenti.
Faccio solo una piccola aggiunta, sempre che la si desideri utilizzare

#Const Sviluppo = True

#If Sviluppo Then
Dim Xlsapp As Excel.Application
Dim NewSh As Excel.Workbook
#Else
Dim Xlsapp As Object
Dim NewSh As Object
#End If

--
PBsoft di Gabriele Bertolucci
www.pbsoft.it
skype: pbsoftsolution
Maurizio Borrelli
2006-04-12 14:47:47 UTC
Permalink
Post by Gabriele Bertolucci
Post by Maurizio Borrelli
Dim Xlsapp As Excel.Application
Dim NewSh As Excel.Workbook
Una volta che il codice sara' testato e funzionante potrai
Dim Xlsapp As Object 'Excel.Application
Dim NewSh As Object 'Excel.Workbook
e togliere la Library di Excel dai riferimenti.
Faccio solo una piccola aggiunta, sempre che la si desideri utilizzare
#Const Sviluppo = True
#If Sviluppo Then
Dim Xlsapp As Excel.Application
Dim NewSh As Excel.Workbook
#Else
Dim Xlsapp As Object
Dim NewSh As Object
#End If
Ciao, Gabriele.

Rilancio. :)

Strumenti > Proprieta' di <NomeProgettoVB>...
Generale
Argomenti di compilazione condizionale:
Sviluppo = 1
[ OK ]

-oppure-

Sviluppo = 0

Esempio:

Public Function test()
#If Sviluppo Then
MsgBox "On",,"Sviluppo"
#Else
MsgBox "Off",,"Sviluppo"
#End If
End Function

Cosi' non si e' costretti a "accendere" o "spegnere" i singoli moduli.
Sempre che invece non sia proprio questo che si desidera ottenere,
ovviamente.
--
Ciao :o)
Maurizio Borrelli, Microsoft Office Access MVP
-------- RIO - http://www.riolab.org/
?SPQR(C)
X
--------
Loading...