[VBA] Aprire file

[misterx]

mi servirebbe uno script in VBA che una volta lanciato apra la classica finestra di selezione file e memorizzi poi il "percorso+nome file" in una cella a piacere

come si fa ? :)

[misterx]

scusate ma ho già risolto :)

[misterx]

scusate una domandella........

sto lanciando uno script in VBA all'interno de Excel ma è di una lentezza esasperante considerando che di calcoli ne fa ben pochi

ho notato che è attiva l'iterazione ma suppongo che disabilitandola otterrei, forse, dati errati

quel forse sta a significare che il foglio di excel con i dati non è una mia implementazione, io ci ho costruito solo il motore che scandisce e preleva tali dati da un foglio per metterli in un altro


morale

è possibile disabilitare senza danno l'iterazione ?

[misterx]

si, è possibile disabilitare l'iterazione usando la seguente schifezza :D

Application.Iteration = False

e poi riabilitare usando

Application.Iteration = True

ma:

è mai possibile che se copio dati da un WorkBooks ad un altro devo essere obbligato ad attivare ogni volta il Foglio sorgente e destinazione altrimenti fa casini ?

Workbooks(sorgente).Activate

Workbooks(destinazione).Activate

:muro:

[verloc]

Hey,tu te la canti e tu te la suoni? :D

Cazziatuncello:
se risolvi da solo poi devi dire come si fa,se no gli altri non imparano.(Dare,non solo prendere).

Dai nun te ncazzà. :D

[misterx]

Originariamente inviato da verloc
Hey,tu te la canti e tu te la suoni? :D

:D:D:D

a2000 mi ha abbandonato :(

:O lazzarone :D

[misterx]

Originariamente inviato da misterx
scusate ma ho già risolto :)



Dim sFileName As String

NomeFile = Application.GetOpenFilename

If NomeFile = "Falso" Then Exit Sub

ocio che "Falso" dipende dalla versione di Excel installata;
forse era meglio usare un -1 o similare
se avete Excel in inglese scrivete "False" :)



poi per estrarre il nome del file uso sta schifezza ma di sicuro c'è qualcosa di più elegante :D


i = Len(NomeFile)

While Mid$(NomeFile, i, 1) <> "\"
i = i - 1
Wend


Cells(2, 2) = Mid$(NomeFile, i + 1, Len(NomeFile))



:D

[misterx]

Originariamente inviato da verloc
Hey,tu te la canti e tu te la suoni? :D

Cazziatuncello:
se risolvi da solo poi devi dire come si fa,se no gli altri non imparano.(Dare,non solo prendere).

Dai nun te ncazzà. :D



fatto testone :D

ma non so a quanti possa interessare :confused:


:sofico: