Risultati da 1 a 4 di 4

Discussione: apriree chiudere file per aggiornamento collegamenti senza visualizzarli



  1. #1
    L'avatar di patel
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Livorno
    Età
    72
    Messaggi
    1121
    Versione Office
    2010
    Likes ricevuti
    146
    Likes dati
    1

    apriree chiudere file per aggiornamento collegamenti senza visualizzarli

    chiedo aiuto per questa discussione http://www.excelvba.it/Forum/thread.php?f=1&t=10246 risolta in parte, ma non perfettamente, in pratica si tratta di aprire e chiudere(senza visualizzarli) i file di una cartella in modo che possano aggiornare i collegamenti. Il problema da risolvere è evitare di visualizzarli.

  2. #2

    L'avatar di scossa
    Clicca e Apri
    Data Registrazione
    Jul 2015
    Località
    Verona Provincia
    Età
    57
    Messaggi
    1027
    Versione Office
    .
    Likes ricevuti
    368
    Likes dati
    0

    Re: apriree chiudere file per aggiornamento collegamenti senza visualizzarli

    Riporto le modifiche al codice come da risposta data ora dall'altra parte:

    Codice: 
    Dim exlApp As Excel.Application, exlWb As Excel.Workbook
    Sub ListFilesSubFolder()
        Dim objFSO As Object, objTopFolder As Object, strTopFolderName As String
        Set exlApp = CreateObject("Excel.Application")
        exlApp.Visible = False
        strTopFolderName = "C:\Temp\Excel"
        Set objFSO = CreateObject("Scripting.FileSystemObject")
        Set objTopFolder = objFSO.GetFolder(strTopFolderName)
        Call Recursive_Folder(objTopFolder, True)
        exlApp.Quit
        Set exlWb = Nothing
        Set exlApp = Nothing
        MsgBox ("fatto")
    End Sub
    Sub Recursive_Folder(objFolder As Object, IncludeSubFolders As Boolean)
        Dim objFile As Object
        Dim objSubFolder As Object
        Dim NextRow As Long
        NextRow = Cells(Rows.Count, "A").End(xlUp).Row + 1
        For Each objFile In objFolder.Files
          Set exlWb = exlApp.Workbooks.Open(objFolder.Path & "\" & objFile.Name)
          exlWb.Worksheets("Foglio1").Range("A1").Value = Now
          exlWb.Close savechanges:=True
        Next objFile
        If IncludeSubFolders Then
            For Each objSubFolder In objFolder.SubFolders
                Call Recursive_Folder(objSubFolder, True)
            Next objSubFolder
        End If
    End Sub

  3. #3

    L'avatar di scossa
    Clicca e Apri
    Data Registrazione
    Jul 2015
    Località
    Verona Provincia
    Età
    57
    Messaggi
    1027
    Versione Office
    .
    Likes ricevuti
    368
    Likes dati
    0

    Re: apriree chiudere file per aggiornamento collegamenti senza visualizzarli

    Ovviamente al posto di C:\Temp\Excel mettere il percorso originale.

  4. #4
    L'avatar di patel
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Livorno
    Età
    72
    Messaggi
    1121
    Versione Office
    2010
    Likes ricevuti
    146
    Likes dati
    1

    Re: apriree chiudere file per aggiornamento collegamenti senza visualizzarli

    Grazie scossa, problema risolto

Discussioni Simili

  1. Gestire i collegamenti a file e dati esterni
    Di emanuela.gio nel forum Domande su Excel in generale
    Risposte: 19
    Ultimo Messaggio: 01/03/17, 10:40
  2. Copia Incolla su altro file senza portare i riferimenti del vecchio File
    Di CarloM nel forum Domande su Excel in generale
    Risposte: 4
    Ultimo Messaggio: 05/02/17, 18:36
  3. Salvare dati su file esterno senza aprire il file di destinazione
    Di Vincenzo Damiani nel forum Domande su Excel VBA e MACRO
    Risposte: 17
    Ultimo Messaggio: 19/11/16, 09:28
  4. Aprire, modificare, salvare e chiudere il file indicato nella cella
    Di kellington90 nel forum Domande su Excel VBA e MACRO
    Risposte: 6
    Ultimo Messaggio: 19/05/16, 11:03
  5. Macro per creare/aprire/chiudere file
    Di Sbarba nel forum Domande su Excel VBA e MACRO
    Risposte: 8
    Ultimo Messaggio: 29/04/16, 15:52

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •