[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

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

[verloc]

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

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à.

[misterx]

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

a2000 mi ha abbandonato

lazzarone

[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

i = Len(NomeFile)

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


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

[misterx]

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

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à.

fatto testone

ma non so a quanti possa interessare