Risultati da 1 a 9 di 9

Discussione: file excel condiviso su owncloud



  1. #1
    L'avatar di Dagatos
    Clicca e Apri
    Data Registrazione
    Jun 2015
    LocalitÓ
    viareggio
    Messaggi
    88
    Versione Office
    live office
    Likes ricevuti
    1

    Smile file excel condiviso su owncloud

    Ciao a tutti , tenter˛ di essere pi¨ chiaro possibile.

    ho un server linux e su questo server ho installato owncloud ( quest ultimo permette la sincronizzazione dei dati )

    dopo di ci˛ ho creato una cartella chiamata excel all'interno di questo server , e ho inserito 2 file xlms

    adesso dal pc di casa , ufficio , ect ect posso collegarmi a questi file attraverso un unitÓ di rete che mi permette quindi di usare i file excel.

    Grazie a Raffaele_53 abbiamo ottenuto un file di excel che controlla se un determinato file xlms Ŕ aperto o chiuso , in questo caso quando l utente clicca su apri.xlms , questo non fa altro che controllare lo stato del file " calendario.xlms " chiuso o aperto ? , se fosse aperto allora eseguiamo una msgbox ( " file in uso , provare piu tardi ") , altrimenti apriamo il file " calendario.xlms "

    Provato in locale il file APRI.xlms funziona benissimo , controlla appunto che il file CALENDARIO.xlms non sia in uso e lo apre, qualora sia aperto ti butta fuori dicendoti che il file Ŕ in uso.

    ora c'Ŕ un problema che non riesco a superare , e sicuramente per la variabile T as variant , ( lo penso io , ma non Ŕ detto )
    perchŔ come detto prima , provando il file in locale va tutto bene , ma provando gli stessi file sul server , il file APRI.xlms dal server in prima battuta mi da errore : " ERRORE DI RUNTIME 13 , TIPO NON CORRISPONDENTE " , ma se chiudo l'errore e do nuovamente il via al file APRI.xlms allora funziona.
    andando a vedere sul DEBUG vba ( ecco la videata ) :
    Codice: 
    Option Explicit
    Sub Leggi_Chiuso()
    Dim sPath As String, sFile As String, S As String, T As Variant
        sPath = ThisWorkbook.Path & "\" ' ---- path= https://servergio/remote.php/webdav/excel\
        sFile = "calendario.xlsm"
        S = "'" & sPath & "[" & sFile & "]pianificazione annuale'!R1C1"
        T = ExecuteExcel4Macro(S)
        If T = 0 Then '------------------------------------------------- errore 2023 -------------
            Workbooks.Open filename:=sPath & sFile
            Sheets("pianificazione annuale").Cells(1, 1).FormulaR1C1 = Environ("ComputerName")
            ActiveWorkbook.Save
        Else
            MsgBox "File in uso, riprovare pi¨ tardi"
        End If
    ThisWorkbook.Close
    End Sub
    questo errore lo da solamente la prima volta che lanci APRI.xlms , perchŔ dopo aver chiuso l errore riclicco su AVVIA ( bottone che lancia il codice ) e funziona benissimo , ma solo la seconda volta . perchŔ in prima battuta non funziona ?
    grazie
    Ultima modifica fatta da:Rubik72; 29/08/16 alle 12:23
    Dagatos ˛˛˛˛˛˛˛˛˛˛˛˛˛˛˛˛˛˛˛

  2. #2
    L'avatar di Raffaele_53
    Clicca e Apri
    Data Registrazione
    Dec 2015
    LocalitÓ
    Binasco
    EtÓ
    64
    Messaggi
    506
    Versione Office
    2007
    Likes ricevuti
    85
    Likes dati
    7

    Re: file excel condiviso su owncloud

    Hai scritto in Rete Intranet
    Di sicuro sbaglio, ma pensavo che fosse una rete Aziendale.
    Quelle reti che per raggiungerle il percorso Ŕ simile \\server\cartella\ ecc ecc
    Leggo https://servergio/remote.php/webdav/excel\ e questa Ŕ un linK (internet)

    Tutto quanto scritto, NON s˛ se funziona in Internet (mi sembra pure che le macro non funzionerebbero)
    Confermato dall'errore di ExecuteExcel4Macro(S)
    Credo che stavolta non posso aiutarti.
    Ti allego un codice migliore del mio (almeno potri verificare se in internet funziona)
    Da mettere sul foglio Apri in un modulo
    Codice: 
    Option Explicit
    Private Sub Apri()
    Dim sPath As String, sFile As String, Occupato As Variant
        sPath = ThisWorkbook.Path & "\"
        sFile = "calendario.xlsm"
        If IsFileOpen(sPath & sFile) Then
            MsgBox "File in uso da " & Occupato & ", riprovare pi¨ tardi"
            Application.DisplayAlerts = False
            ThisWorkbook.Close
            Application.DisplayAlerts = True
        Else
            Application.DisplayAlerts = False
            Workbooks.Open (sPath & sFile)
            Sheets("Pianificazione_annuale").Cells(1, 1).FormulaR1C1 = Environ("ComputerName")
            ActiveWorkbook.Save
            ThisWorkbook.Close
            Application.DisplayAlerts = True
        End If
    End Sub
    Function IsFileOpen(filename As String)
        Dim filenum As Integer, errnum As Integer
        On Error Resume Next   ' Turn error checking off.
        filenum = FreeFile()   ' Get a free file number.
        ' Attempt to open the file and lock it.
        Open filename For Input Lock Read As #filenum
        Close filenum          ' Close the file.
        errnum = Err           ' Save the error number that occurred.
        On Error GoTo 0        ' Turn error checking back on.
        ' Check to see which error occurred.
        Select Case errnum
            ' No error occurred.
            ' File is NOT already open by another user.
            Case 0
             IsFileOpen = False
            ' Error number for "Permission Denied."
            ' File is already opened by another user.
            Case 70
                IsFileOpen = True
            ' Another error occurred.
            Case Else
                Error errnum
        End Select
    End Function
    Da mettere in calendario in un modulo
    Codice: 
    Option Explicit
    Private Sub Auto_Close()
    Application.DisplayAlerts = False
    Sheets("Pianificazione_annuale").Cells(1, 1) = ""
    ThisWorkbook.Save
    Application.DisplayAlerts = True
    End Sub
    EDIT mi corrego su Calendario non va messo il codice, perci˛ si prtrÓ chiamare Calendario.xlsx e forse forse potrebbe funzionare se IsFileOpen funziona in reteEDIT

  3. I seguenti utenti hanno dato un "Like"


  4. #3
    L'avatar di Dagatos
    Clicca e Apri
    Data Registrazione
    Jun 2015
    LocalitÓ
    viareggio
    Messaggi
    88
    Versione Office
    live office
    Likes ricevuti
    1

    Re: file excel condiviso su owncloud

    Nuovamente Raffaele !! , credo proprio che ci riusciremo... , sarÓ una chicca .
    provo e vi informo !!
    Dagatos ˛˛˛˛˛˛˛˛˛˛˛˛˛˛˛˛˛˛˛

  5. #4

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    LocalitÓ
    Cosenza
    EtÓ
    45
    Messaggi
    2801
    Versione Office
    Excel 2013
    Likes ricevuti
    1019
    Likes dati
    977

    Re: file excel condiviso su owncloud

    Ciao @Dagatos, per inserire codice e renderlo meglio visibile nel forum, puoi usare il TAG "CODE" tramite il tasto cancelletto (#)
    Questa volta l'ho modificato io.

  6. I seguenti utenti hanno dato un "Like"


  7. #5
    L'avatar di Dagatos
    Clicca e Apri
    Data Registrazione
    Jun 2015
    LocalitÓ
    viareggio
    Messaggi
    88
    Versione Office
    live office
    Likes ricevuti
    1

    Re: file excel condiviso su owncloud

    Grazie Rubik72 , utile consiglio
    Dagatos ˛˛˛˛˛˛˛˛˛˛˛˛˛˛˛˛˛˛˛

  8. #6
    L'avatar di Dagatos
    Clicca e Apri
    Data Registrazione
    Jun 2015
    LocalitÓ
    viareggio
    Messaggi
    88
    Versione Office
    live office
    Likes ricevuti
    1

    Re: file excel condiviso su owncloud

    Ciao Raffaele ,
    come richiamo la private sub se non c'Ŕ un evento ? , sul bottone non posso associarla a una macro su un bottone

    grazie
    Dagatos ˛˛˛˛˛˛˛˛˛˛˛˛˛˛˛˛˛˛˛

  9. #7
    L'avatar di Raffaele_53
    Clicca e Apri
    Data Registrazione
    Dec 2015
    LocalitÓ
    Binasco
    EtÓ
    64
    Messaggi
    506
    Versione Office
    2007
    Likes ricevuti
    85
    Likes dati
    7

    Re: file excel condiviso su owncloud

    Modific il nome delle sub togliendo il "Private" ed associa ad un bottone

  10. #8
    L'avatar di Dagatos
    Clicca e Apri
    Data Registrazione
    Jun 2015
    LocalitÓ
    viareggio
    Messaggi
    88
    Versione Office
    live office
    Likes ricevuti
    1

    Re: file excel condiviso su owncloud

    Ciao Raffaele

    ho provato come da tuo consiglio e codice vba , ma mi da un errore alla terz'ultima riga , che come valore assume 75 -errore di accesso al percorso file

    Codice: 
    Function IsFileOpen(filename As String)
        Dim filenum As Integer, errnum As Integer
        On Error Resume Next   ' Turn error checking off.
        filenum = FreeFile()   ' Get a free file number.
        ' Attempt to open the file and lock it.
        Open filename For Input Lock Read As #filenum
        Close filenum          ' Close the file.
        errnum = Err           ' Save the error number that occurred.
        On Error GoTo 0        ' Turn error checking back on.
        ' Check to see which error occurred.
        Select Case errnum
            ' No error occurred.
            ' File is NOT already open by another user.
            Case 0
             IsFileOpen = False
            ' Error number for "Permission Denied."
            ' File is already opened by another user.
            Case 70
                IsFileOpen = True
            ' Another error occurred.
            Case Else
                Error errnum
        End Select
    End Function
    Grazie per eventuale aiuto
    Dagatos ˛˛˛˛˛˛˛˛˛˛˛˛˛˛˛˛˛˛˛

  11. #9
    L'avatar di Raffaele_53
    Clicca e Apri
    Data Registrazione
    Dec 2015
    LocalitÓ
    Binasco
    EtÓ
    64
    Messaggi
    506
    Versione Office
    2007
    Likes ricevuti
    85
    Likes dati
    7

    Re: file excel condiviso su owncloud

    Il codice = Function IsFileOpen, Ŕ stato preso dal sito di Microsoft
    Sicuramente Ŕ giusto e (ormai capisco) che queste cose da Internet (non si possono fare).

    Con dovute precauzioni/diritti per le Due persone (Milano-Roma) si possano collegare al Tuo PC. Tramite una connessione VPN (migliore per me = Ultra VNC)
    http://www.navigaweb.net/2007/08/ins...er-creare.html

    In questo caso non hai bisogno di nulla, sia del VBA che del file APRI (farei prove in questo modo).
    L'unica cosa che non conosco.
    In locale il file risponde "in uso", in questo modo non saprei?

Discussioni Simili

  1. [Risolto] Stampare da un file excel fogli di lavoro presenti su un altro file excel
    Di Lorex nel forum Domande su Excel VBA e MACRO
    Risposte: 10
    Ultimo Messaggio: 09/12/16, 20:21
  2. [Risolto] Creare un nuovo file per ogni colonna presente in un file excel
    Di gianluca26 nel forum Domande su Excel VBA e MACRO
    Risposte: 10
    Ultimo Messaggio: 10/11/16, 18:50
  3. Risposte: 4
    Ultimo Messaggio: 11/04/16, 21:36
  4. Stampa unione da file Excel a file Excel
    Di Sandra nel forum Domande su Excel in generale
    Risposte: 10
    Ultimo Messaggio: 17/11/15, 17:46
  5. Excel condiviso
    Di Dino2015 nel forum Domande su Excel in generale
    Risposte: 3
    Ultimo Messaggio: 12/09/15, 13:30

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
  •