Grazie!
inserisci questo codice nel modulo Thisworkbook per visualizzare la
cella b59 del foglio 1 all'apertura del file.
Private Sub Workbook_Open()
Worksheets(1).Activate
Range("b59").Select
End Sub
> inserisci questo codice nel modulo Thisworkbook per visualizzare la
> cella b59 del foglio 1 all'apertura del file.
> Private Sub Workbook_Open()
> Worksheets(1).Activate
> Range("b59").Select
> End Sub
Ti ringrazio ma non risolve il mio problema, probabilmente mi sono
spiegato male.
Ho necessità di specificare la cella da aprire da linea di comando,
per cui è un parametro che passo al momento dell'apertura e quindi non
è una cella fissa che devo aprire. Una volta è la cella A e un'altra
volta è la cella B. Scusate se non sono stato chiaro.
Sapete se e come si può fare?
Grazie
Ciao Speednick
Se l'operazione di visualizzazione è a carico di un solo documento
specifico, allora va scritto codice associato all'evento apertura di
tale documento nel modulo ThisWorkbook dello stesso documento:
Private Sub Workbook_Open()
Thisworkbook.Worksheets("NomeTuoFoglio").Range("A1").Activate '<< Da
cambiare con tua cella
End Sub
Se invece vuoi che venga visualizzata la stessa cella, qualsiasi
documento venga aperto,
va intercettato l'evento WorkbookOpen dell'oggetto Application con una
procedura più complessa. Il codice di questa , peraltro, dovrebbe
essere su un componente aggiuntivo.
Ciao Elio
> Ciao Speednick
> Se l'operazione di visualizzazione è a carico di un solo documento
> specifico, allora va scritto codice associato all'evento apertura di
> tale documento nel modulo ThisWorkbook dello stesso documento:
>
> Private Sub Workbook_Open()
> Thisworkbook.Worksheets("NomeTuoFoglio").Range("A1").Activate '<< Da
> cambiare con tua cella
> End Sub
>
> Se invece vuoi che venga visualizzata la stessa cella, qualsiasi
> documento venga aperto,
> va intercettato l'evento WorkbookOpen dell'oggetto Application con una
> procedura più complessa. Il codice di questa , peraltro, dovrebbe
> essere su un componente aggiuntivo.
> Ciao Elio
Ti ringrazio ma non è ciò che mi serve.
Devo specificare la cella quando lancio l'apertura del file dal prompt
di dos, quindi è un parametro che devo passare da linea di comando. Ho
provato a vedere un po' in rete ma non ho trovato nulla ma sono
convinto che sia una stupidaggine.
'---------------
[...]
Private Sub Workbook_Open()
Thisworkbook.Worksheets("NomeTuoFoglio").Range("A1").Activate '<< Da
cambiare con tua cella
End Sub
[...]
'---------------
Se il foglio di interesse non fosse il foglio attivo, questo codice
provocherebbe un errore.
Prova, invece, il codice suggerito da Alberto. In alternativa, si
potrebbe utilizzare:
'=============>>
Private Sub Workbook_Open()
Application.Goto Me.Worksheets("Foglio2"). _
Range("A1")
End Sub
'<<=============
Comunque, credo che l'obbiettivo di Speedrick sia un altro.
---
Regards,
Norman
"Norman Jones" ha scritto:
Ciao Norman.
Infatti speedrick chiede come è possibile lanciare excel dal prompt del dos,
specificando anche la cella sulla quale posizionarsi all'apertura del
Workbook.
E' come se volesse inviare un comando tipo:
c:/percorso/excel.exe, seguito dal nome del file .xls, dal nome del foglio
et eziandio dal nome della cella, e tutti questi parametri da definire di
volta in volta.
Mi sembra pazzesco, inutile e poco funzionale, comunque non sono in grado di
rispondergli.
Saluti
Eliano
'----------------
Infatti speedrick chiede come è possibile lanciare excel dal prompt
del dos, specificando anche la cella sulla quale posizionarsi all'apertura
del Workbook.
E' come se volesse inviare un comando tipo: c:/percorso/excel.exe,
seguito dal nome del file .xls, dal nome del foglio et eziandio dal nome
della cella, e tutti questi parametri da definire di volta in volta.
Mi sembra pazzesco, inutile e poco funzionale, comunque non sono in
grado di rispondergli.
'----------------
In effetti Xelav sta suggerendo una metodologia della soluzione, anche
se non può effettuare la metodologia. Penso che sia preferibile spiegare
dettagliatamente il problema che cerca di risolvere. Se si capisce il
problema, forse si potrebbe suggerire delle soluzioni, magari anche
utilizzando una metodolagia diversa.
---
Regards,
Norman
> Ciao Norman.
> Infatti speedrick chiede come è possibile lanciare excel dal prompt del dos,
> specificando anche la cella sulla quale posizionarsi all'apertura del
> Workbook.
> E' come se volesse inviare un comando tipo:
> c:/percorso/excel.exe, seguito dal nome del file .xls, dal nome del foglio
> et eziandio dal nome della cella, e tutti questi parametri da definire di
> volta in volta.
Esattamente, è proprio questo quello che dovrei fare, non
necessariamente in quel modo, se avete altri suggerimenti su come
risolvere il problema sono ben accetti ma tenete presente che da un
file autocad ci sono dei link al file excel e che a seconda del link su
autocad questo file excel dovrebbe aprirsi posizionato su una
determinata cella se possibile senza doverla cercare ogni volta. Non è
una cosa così balorda in fin dei conti, molti programmi accettano
parametri da linea di comando.
In ogni caso grazie comunque per la risposta.
Ciao
Nicola
'-------------------
Esattamente, č proprio questo quello che dovrei fare, non
necessariamente in quel modo, se avete altri suggerimenti su come
risolvere il problema sono ben accetti ma tenete presente che da un
file autocad ci sono dei link al file excel e che a seconda del link su
autocad questo file excel dovrebbe aprirsi posizionato su una
determinata cella se possibile senza doverla cercare ogni volta. Non č
una cosa cosě balorda in fin dei conti, molti programmi accettano
parametri da linea di comando.
'-------------------
> Non č una cosa cosě balorda in fin dei conti, molti programmi
> accettano parametri da linea di comando.
Certo, e anche Excel lo fa:
http://support.microsoft.com/default.aspx?kbid=291288
XL2002: Startup Switches for Microsoft Excel 2002
Comunque, se il nome del file da aprire e la cella da attivare sono
conosciuti a Autocad, perchč non apri il file direttamente da Autocad?
Questo metodo dovrebbe realizzare i tuoi obiettivi. Se vuoi, potrei
postare il codice per Autocad..
---
Regards,
Norman
> Comunque, se il nome del file da aprire e la cella da attivare sono
> conosciuti a Autocad, perchè non apri il file direttamente da Autocad?
> Questo metodo dovrebbe realizzare i tuoi obiettivi. Se vuoi, potrei
> postare il codice per Autocad..
Sì, se riesci a farmi vedere un esempio in autocad te ne sarei grato,
io non saprei come fare.
Ti ringrazio!
"Speednick" ha scritto:
Ciao Nicola.
Intendevo dire che fino al /p e /r ci potevo arrivare, ma quando si tratta
di fare aprire il workbook "a" selezionare il foglio "x" (di "n" fogli) e
selezionare la cella "y" dove a, x, n, y sono variabili da determinare in
base a non so cosa e da digitare nella riga di comando, allora io dichiaro i
miei limti e do forfait in via preliminare.:-))
Aspettiamo Norman, il NO LIMITS!:-))
Eliano
> Ciao Nicola.
> Intendevo dire che fino al /p e /r ci potevo arrivare, ma quando si tratta
> di fare aprire il workbook "a" selezionare il foglio "x" (di "n" fogli) e
> selezionare la cella "y" dove a, x, n, y sono variabili da determinare in
> base a non so cosa e da digitare nella riga di comando, allora io dichiaro i
> miei limti e do forfait in via preliminare.:-))
> Aspettiamo Norman, il NO LIMITS!:-))
:-D
Chiedo scusa - non avevo visto la tua risposta prima di leggere il 'NO
LIMITS' post di Eliano. Devo uscire ma postero' un codice d'esempio stasera.
OT e per Eliano: Il mio limito sarebbe 94Kg - oppure i bermuda gialli,
taglia XXL, con fiori gialli (crisantemi)!!
---
Regards,
Norman
> Devo uscire ma postero' un codice d'esempio stasera.
In Autocad, Alt-F11 per aprire l'Editor di VBA
Menu | Inserisci | Modulo
Menu | Strumenti | Riferimenti | Seleziona la voce:
"Microsoft Excel xx Object Library"
Incollarci il suddeto codice
'=============>>
Public Sub Tester()
Dim oApp As Excel.Application
Dim WB As Excel.Workbook
Dim SH As Excel.Worksheet
Dim Rng As Excel.Range
Dim sStr As String
sStr = "C:\Data\Pippo.xls" '<<=== da CAMBIARE
Set oApp = New Excel.Application
oApp.Visible = True
Set WB = oApp.Workbooks.Open(FileName:=sStr)
Set SH = WB.Sheets("Foglio2") '<<=== da CAMBIARE
Set Rng = SH.Range("D20") '<<=== da CAMBIARE
oApp.GoTo Reference:=Rng, Scroll:=True
Set Rng = Nothing
Set SH = Nothing
Set WB = Nothing
Set oApp = Nothing
End Sub
'<<=============
Alt-F11 per tornare in AutoCad
Alt-F8
Seleziona "Tester"
Esegui
,
---
Regards,
Norman
In alternativa, vedi il mio suggerimento nel thread:
Collegamento nel desktop a file/foglio excel
---
Regards,
Norman
> Ciao Nicola,
>
> In alternativa, vedi il mio suggerimento nel thread:
>
> Collegamento nel desktop a file/foglio excel
Ti ringrazio Norman, il tuo aiuto è stato utilissimo!!!
Grazie ancora!!!
Ciao!