Macro per aprire cartella

Question

Buongiorno, non sono molto pratico, credo che sia una banalità ma non ci riesco.

Vorrei creare una macro con excel 2010 chi mi apra una deteminata cartella in rete aziendale tipo Q:\Attività\lavori...   solo questo.

Grazie, saluti.

Answer 1

Ciao Andrea,

nonostante non sia esperto sono riuscito a farla funzionare.

Bravo! L'unica cosa che devi portare è fede e speranza! 

Ti chiedo però, posso fermarmi all'apertura della cartella senza necessariamente aprire il file?

Prova di sostituire il codice precedente con la seguente versione:

'=========>>

Option Explicit

'--------->>

Public Sub Tester()

    Dim WB As Workbook

    Dim sPathSeparator As String, sPath As String

    Dim FName As Variant

    Const sPercorso As String = "**Q:\Attività\lavori**"         '<<=== Modifica

    sPathSeparator = Application.PathSeparator

    sPath = sPercorso & sPathSeparator

    If Right(sPercorso, 1) = sPathSeparator Then

        sPath = sPercorso

    Else

        sPath = sPercorso & sPathSeparator

    End If

    FName = FileOpen(sPath, _

                     "File di Andrea", _

                     "*.xls; *.xlsx; *.xlsm, *.xlsb")

    If FName <> "" Then

        Set WB = Workbooks.Open(FName)

    End If

End Sub

'--------->>

Public Function FileOpen(initialFilename As String, _

                  Optional sDesc As String = "Excel (*.xls)", _

                  Optional sFilter As String = "*.xls") As String

    With Application.FileDialog(msoFileDialogOpen)

        .ButtonName = "&Open"

        .initialFilename = initialFilename

        .Filters.Clear

        .Filters.Add sDesc, sFilter, 1

        .Title = "File Open"

        .AllowMultiSelect = False

        If .Show = -1 Then

            FileOpen = .SelectedItems(1)

        End If

    End With

End Function

'<<=========

===

Regards,

Norman

Answer 2

Ciao Andrea,

Perfetto, grazie 1000.

Ti ringrazio per il cortese riscontro.

===

Regards,

Norman

Answer 3

Perfetto, grazie 1000.

Answer 4

Ciao Andrea,

non sono molto pratico, credo che sia una banalità ma non ci riesco.

Vorrei creare una macro con excel 2010 chi mi apra una deteminata cartella in rete aziendale tipo Q:\Attività\lavori...   solo questo.

Prova qualcosa del genere:

• Alt+F11 per aprire l'editor di VBA
• Alt+IM per inserire un nuovo modulo di codice
• Nel nuovo modulo vuoto, incolla il seguente codice:

'=========>>

Option Explicit

'--------->>

Public Sub Tester()

    Dim WB As Workbook

    Dim sStr As String, sPath As String

    Const sPercorso As String = _

                                    "**Q:\Attività\lavori**"           '<<=== Modifica

    Const sFile As String = "Pippo.xlsx"                    '<<=== Modifica

    sStr = Application.PathSeparator

    sPath = sPercorso & sStr

    If Right(sPercorso, 1) = sStr Then

        sPath = sPercorso

    Else

        sPath = sPercorso & sStr

    End If

    Set WB = Workbooks.Open(Filename:=sPath & sFile)

End Sub

'<<=========

• Alt+Q per chiudere l'editor di VBA e tornare a Excel
• Salva il file con l’estensione xlsm
• Alt+F8 per aprire  la finestra di gestione delle macro
• Seleziona Tester
• Esegui

===

Regards,

Norman

Grazie Norman, gentilissimo.

nonostante non sia esperto sono riuscito a farla funzionare.

Ti chiedo però, posso fermarmi all'apertura della cartella senza necessariamente aprire il file?

Grazie ancora.

Andrea.

Answer 5

Ciao Andrea,

non sono molto pratico, credo che sia una banalità ma non ci riesco.

Vorrei creare una macro con excel 2010 chi mi apra una deteminata cartella in rete aziendale tipo Q:\Attività\lavori...   solo questo.

Prova qualcosa del genere:

• Alt+F11 per aprire l'editor di VBA
• Alt+IMper inserire un nuovo modulo di codice
• Nel nuovo modulo vuoto, incolla il seguente codice:

'=========>>

Option Explicit

'--------->>

Public Sub Tester()

    Dim WB As Workbook

    Dim sStr As String, sPath As String

    Const sPercorso As String = _

                                    "**Q:\Attività\lavori**"           '<<=== Modifica

    Const sFile As String = "Pippo.xlsx"                    '<<=== Modifica

    sStr = Application.PathSeparator

    sPath = sPercorso & sStr

    If Right(sPercorso, 1) = sStr Then

        sPath = sPercorso

    Else

        sPath = sPercorso & sStr

    End If

    Set WB = Workbooks.Open(Filename:=sPath & sFile)

End Sub

'<<=========

• Alt+Q per chiudere l'editor di VBA e tornare a Excel
• Salva il file con l’estensione xlsm
• Alt+F8 per aprire  la finestra di gestione delle macro
• Seleziona Tester
• Esegui

===

Regards,

Norman