Agganciare cartella

Hai un problema con Excel?

Nuova discussione

Agganciare cartella
di Rita (utente non iscritto) data: 27/01/2014 11:15:32
Ciao a tutti
ho un quesito che mi tira scema e non riesco a risolvere
l'istruzione qui sotto dentro una sub apre una cartella dove seleziono un percorso esempio (c:pippopluto) e tramite curdir inserisce il percorso in una cella
premesso che utilizzo office 2007 e windows xp
se utilizzo questa cosa sempre con office 2007 e windows 7 fa tutto ma scala di una cartella il percorso
ossia c:pippopluto mi inserisce c:pippo
eppure utilizo lo stesso office excel
qualcuno sa darmi una spiegazione

X1 = MsgBox("VUOI COLLEGARE LA CARTELLA CONTENTE I FLUSSI DA IMPORTARE", vbYesNo, "COLLEGA CARTELLA FLUSSI")
If X1 = vbYes Then
Set F = Application.FileDialog(msoFileDialogFolderPicker)
F.Title = "Seleziona la cartella contenente i flussi da importare"
CARTFLUSSI = F.Show
END IF
RANGE ("A1") = CURDIR

di patel data: 27/01/2014 12:47:02
allegare un pezzo di codice non serve per capire, sarebbe meglio allegare il file

di Grograman (utente non iscritto) data: 27/01/2014 13:06:32
Concordo, in mancanza di file, proposta alternativa!

Private Sub Sfoglia_Files()
    Dim strPath As String
    Dim fd As FileDialog
    Dim objfd As Variant
    
    Set fd = Application.FileDialog(msoFileDialogFolderPicker)
    With fd
      .Show
      For Each objfd In .SelectedItems
        strPath = objfd
      Next objfd
    End With
     If strPath = "" Then GoTo Uscita
Uscita:
    Set fd = Nothing
End Sub

di Rita (utente non iscritto) data: 27/01/2014 15:02:02
Vi ringrazio
in ogni caso ho apportato delle modifiche e sembrano funzionare

........................
Dim lngCount As Long
With Application.FileDialog(msoFileDialogFolderPicker)
.AllowMultiSelect = False
.Show
.Title = "SCEGLI CARTELLA DA COLLEGARE"
For lngCount = 1 To .SelectedItems.Count
Foglio3.Range("A6") = .SelectedItems(lngCount)
Next lngCount
End With
......................................................

Vuoi Approfondire?