Pannello di Controllo Moderatore ]

Problema macro

Discussioni sull'applicazione per i fogli di calcolo

Problema macro

Messaggioda Brontolo81 » lunedì 27 luglio 2020, 12:18

Ciao, come scritto nella presentazione non è tanto che uso openoffice Calc, ma chiedo gentilmente se qualcuno mi può aiutare.
Io ho una macro che funziona perfettamente con excel, ma non riesco a farla funzionare con Calc.
Ho capito che il linguaggio di programmazione è simile, ho provato a studiare e modificarlo, ma senza successo. Lascio il codice funzionante. HELP ME

Codice: Seleziona tutto   Espandi visualeStringi visuale
Sub ESTRAZIONE()
   Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Dim percorso As String
    Dim nomeFile As String
    Dim WB As Workbook
    Dim sh As Worksheet
    percorso = ThisWorkbook.Path & "\"
    nomeFile = Dir(percorso)
    Do While nomeFile <> ""
        If nomeFile <> ThisWorkbook.Name Then
            Set WB = Application.Workbooks.Open(percorso & nomeFile)
            Set sh = WB.Worksheets("Foglio1")
            sh.Range("G9").Copy
            ThisWorkbook.Sheets(1).Activate
            uR = Cells(Rows.Count, 1).End(xlUp).Row + 1
            If Cells(2, 1) = 1 Then
                Cells(uR, 1) = Cells(uR - 1, 1) + 1
            Else
                Cells(2, 1) = 1
            End If
            Cells(uR, 2).PasteSpecial Paste:=xlValues, Transpose:=True
           
            sh.Range("A9").Copy
            Cells(uR, 3).PasteSpecial Paste:=xlValues
           
            sh.Range("A13").Copy
            Cells(uR, 4).PasteSpecial Paste:=xlValues
           
            sh.Range("D13").Copy
            Cells(uR, 5).PasteSpecial Paste:=xlValues
           
            sh.Range("A39").Copy
            Cells(uR, 6).PasteSpecial Paste:=xlValues
           
            sh.Range("D9").Copy
            Cells(uR, 7).PasteSpecial Paste:=xlValues
           
           
            WB.Close False
        End If
        nomeFile = Dir
    Loop
    Application.ScreenUpdating = True
      Application.DisplayAlerts = True
    MsgBox "Dati Importati.", vbInformation, ""
End Sub
Ultima modifica di charlie il lunedì 27 luglio 2020, 13:11, modificato 1 volta in totale.
Motivazione: Argomento spostato
windows 10 openoffice 4.1.7
Brontolo81
 
Messaggi: 6
Iscritto il: lunedì 27 luglio 2020, 9:25

Re: Problema macro

Messaggioda patel » martedì 28 luglio 2020, 17:50

Il linguaggio non è affatto simile, anzi molto diverso, se hai intenzione di impararlo allega un file con i tuoi tentativi, se invece non ti interessa impararlo prova a fare le seguenti modifiche che funzionano con l'ultima versione di LibreOffice.
Codice: Seleziona tutto   Espandi visualeStringi visuale
Option VBASupport 1
Sub ESTRAZIONE()
CompatibilityMode(True)
segue il resto
-------------------
OpenOffice 4.1 e Libre Office 6.4.1.2 su Windows 10
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta
patel
Volontario attivo
Volontario attivo
 
Messaggi: 3521
Iscritto il: venerdì 30 aprile 2010, 8:04
Località: Livorno

Re: Problema macro

Messaggioda Brontolo81 » mercoledì 29 luglio 2020, 15:15

Ciao, ho seguito il tuo consiglio, adesso esegue la macro senza dare errore, ma non importa nessun dato.
Ti allego file, cosi puoi vedere. In tanto ti ringrazio per avermi risposto. :super:
Allegati
ESTRAZIONE.ods
(11.19 KiB) Scaricato 71 volte
201 gabriele.ods
(21.05 KiB) Scaricato 60 volte
190 ANDREA.ods
(14.82 KiB) Scaricato 60 volte
windows 10 openoffice 4.1.7
Brontolo81
 
Messaggi: 6
Iscritto il: lunedì 27 luglio 2020, 9:25

Re: Problema macro

Messaggioda patel » giovedì 30 luglio 2020, 7:42

La tua macro non funzionerebbe neppure con file excel perché è concettualmente sbagliata, se la esegui con F8 ti puoi accorgere degli errori. Quando apri un file ThisWorkbook diventa il file aperto e non quello originale.
-------------------
OpenOffice 4.1 e Libre Office 6.4.1.2 su Windows 10
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta
patel
Volontario attivo
Volontario attivo
 
Messaggi: 3521
Iscritto il: venerdì 30 aprile 2010, 8:04
Località: Livorno

Re: Problema macro

Messaggioda Gaetanopr » giovedì 30 luglio 2020, 12:03

Ciao, vedo che hai letto tutte le istruzioni per i nuovi arrivati :D :D
https://forum-test.openoffice.org/it/forum/viewtopic.php?f=2&t=5089&sid=0359e472e407676b2cb79822d87ca658

Saluti
Openoffice 4.1 su windows xp
Gaetanopr
Volontario
Volontario
 
Messaggi: 2811
Iscritto il: mercoledì 21 novembre 2012, 21:07

Re: Problema macro

Messaggioda Brontolo81 » giovedì 30 luglio 2020, 12:51

Gaetanopr ha scritto:Ciao, vedo che hai letto tutte le istruzioni per i nuovi arrivati :D :D
https://forum-test.openoffice.org/it/forum/viewtopic.php?f=2&t=5089&sid=0359e472e407676b2cb79822d87ca658

Saluti


Chiedo umilmente scusa.
windows 10 openoffice 4.1.7
Brontolo81
 
Messaggi: 6
Iscritto il: lunedì 27 luglio 2020, 9:25

Re: Problema macro

Messaggioda Brontolo81 » venerdì 31 luglio 2020, 11:33

patel ha scritto:La tua macro non funzionerebbe neppure con file excel perché è concettualmente sbagliata, se la esegui con F8 ti puoi accorgere degli errori. Quando apri un file ThisWorkbook diventa il file aperto e non quello originale.

Ciao, ti assicuro che funziona con Excel. Se vuoi ho fatto un video, ti chiedo scusa anticipatamente per la qualità del video, ma non potevo installare software sul pc di lavoro.
https://drive.google.com/file/d/1b4gOQcjCBdXprMPtqTWRG2r0Z_Z1Y67Q/view?usp=sharing
Comunque, tralasciando se funziona o no con Excel, come posso fare la stessa cosa con Open office calc?
windows 10 openoffice 4.1.7
Brontolo81
 
Messaggi: 6
Iscritto il: lunedì 27 luglio 2020, 9:25

Re: Problema macro

Messaggioda patel » sabato 1 agosto 2020, 12:23

patel ha scritto:Il linguaggio non è affatto simile, anzi molto diverso, se hai intenzione di impararlo allega un file con i tuoi tentativi .....
confermo quanto detto prima, per il resto non ho trovato il modo di utilizzare con successo il codice scritto in VBA, funziona soltanto se lanciato step by step con F8.
-------------------
OpenOffice 4.1 e Libre Office 6.4.1.2 su Windows 10
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta
patel
Volontario attivo
Volontario attivo
 
Messaggi: 3521
Iscritto il: venerdì 30 aprile 2010, 8:04
Località: Livorno

Re: Problema macro

Messaggioda Brontolo81 » sabato 1 agosto 2020, 13:50

Ok, lasciamo perdere tutto, ora non conoscendo il linguaggio di open office, mi potete dare informazione per come fare questo macro per favore.
windows 10 openoffice 4.1.7
Brontolo81
 
Messaggi: 6
Iscritto il: lunedì 27 luglio 2020, 9:25

Re: Problema macro

Messaggioda patel » domenica 2 agosto 2020, 11:25

Il forum aiuta a programmare, non produce codice per gli altri
Devi studiare:
1) come aprire un file
2) come copiare i dati delle celle
Un buon testo per imparare con molti esempi è questo http://www.pitonyak.org/oo.php
Tutti pronti ad aiutarti a risolvere i problemi che incontrerai
-------------------
OpenOffice 4.1 e Libre Office 6.4.1.2 su Windows 10
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta
patel
Volontario attivo
Volontario attivo
 
Messaggi: 3521
Iscritto il: venerdì 30 aprile 2010, 8:04
Località: Livorno


Torna a Calc

Chi c’è in linea

Visitano il forum: Nessuno e 3 ospiti

cron