MACRO EXCEL (MAC) CON EXCEL OFFICE 365

Question

Buongiorno, ho la necessità di iniziare a utilizzare i fogli di excel creati e salvati con estensione (xls)  ricreandoli con le macro già registrare precedentemente sui nuovi file di excel (xlsx).

Con il nuovo pacchetto di office 365 x MAC non riesco ad effettuare la registrazione ex novo di una macro che mi consenta di aprire i file sulla directory del mio desktop all'interno di una cartella i file in essa contenuti. 

LA MACRO REGISTRATA PER FARMI QUESTA OPERAZIONE SOTTO WINDOWS L' HO TRASFORMATA E MI FUNZIONA ED E' LA SEGUENTE:

SERVE PER APRIRE I FILE NECESSARI 

' Macro157 Macro

' Macro registrata il 18-11-1996 da FRANCESCO CINA'

Sub Macro157()

    Workbooks.Open Filename:="RIEPILOGO PRODUZIONE"

    Workbooks.Open Filename:="FORM. PLASTICI"

    Workbooks.Open Filename:="FORM. PRIMER"

    Workbooks.Open Filename:="FORM. CONVERT./FONDI"

    Workbooks.Open Filename:="FORM. SMALTI"

    Workbooks.Open Filename:="FORM. IMPREGNANTI"

    Workbooks.Open Filename:="FORM. COLLANTI"

    Workbooks.Open Filename:="FORM. CREACROM"

    Workbooks.Open Filename:="FORM. MANTOVANI"

    Workbooks.Open Filename:="FORM. DEKORTE'"

    Workbooks.Open Filename:="FORM. DILUENTI"

    Workbooks.Open Filename:="FORM. LEROY MERLIN"

    Workbooks.Open Filename:="FORM. PUGLISI ANGELA"

    Workbooks.Open Filename:="FORM. SIPAFER"

    Workbooks.Open Filename:="FORM. INGENIUM"

    Workbooks.Open Filename:="FORM. ANTICORROSIONE"

    Workbooks.Open Filename:="FORM. STUCCHI"

    Workbooks.Open Filename:="FORM. ELIOCOLOR"

    Workbooks.Open Filename:="RIEP. MAT. PRIME"

    Workbooks.Open Filename:="RIEP. IMBAL."

    Workbooks.Open Filename:="SOTTOSCORTA IMB."

    Workbooks.Open Filename:="SOTTOSCORTA M.P."

    Workbooks.Open Filename:="SOTTOSCORTA SEM."

    Workbooks.Open Filename:="RIEP. SEMILAVORATI"

    Windows("FORM.IDROP.").Activate

    Range("F25").Select

End Sub

 DOMANDO : SOTTO IL SISTEMA MAC COME SI REGISTRANO LE MACRO, IN QUANTO NON CI RIESCO.

Grazie

Saluti da Francesco Cinà

Answer 1

Ciao Francesco,

Per ottenere il percorso del Desktop sul Mac, prova la seguente routine:

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

Option Explicit

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

Public Sub SpecialFolderExample()

'\ https://www.rondebruin.nl/mac/mac007.htm

' Call AppleScript to get a special folder

    Dim NameFolder As String

    Dim SpecialFolder As String

' You can use : home, documents, desktop, music, pictures, movies, applications

    NameFolder = "desktop"      '"documents"

    If Int(Val(Application.Version)) > 14 Then

    SpecialFolder = _

    MacScript("return POSIX path of (path to " & NameFolder & " folder) as string")

    'Replace line needed for the special folders Home and documents

    SpecialFolder = _

    Replace(SpecialFolder, "/Library/Containers/com.microsoft.Excel/Data", "")

    Else

    SpecialFolder = MacScript("return (path to " & NameFolder & " folder) as string")

    End If

    MsgBox SpecialFolder

End Sub

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

Per ottenere il percorso (Mac) di una directory selezionata da te, prova:

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

Option Explicit

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

Public Sub Select_Folder_On_Mac()

'\ https://www.rondebruin.nl/mac/mac017.htm

    Dim folderPath As String

    Dim RootFolder As String

    Dim scriptstr As String

    On Error Resume Next

    RootFolder = MacScript("return (path to desktop folder) as String")

    'Or use RootFolder = "Macintosh HD:Users:YourUserName:Desktop:TestMap:"

    'Note : for a fixed path use : as seperator in 2011 and 2016

    If Val(Application.Version) < 15 Then

        scriptstr = "(choose folder with prompt ""Select the folder""" & _

            " default location alias """ & RootFolder & """) as string"

    Else

        scriptstr = "return posix path of (choose folder with prompt ""Select the folder""" & _

            " default location alias """ & RootFolder & """) as string"

    End If

    folderPath = MacScript(scriptstr)

    On Error GoTo 0

    If folderPath <> "" Then

        MsgBox folderPath

    End If

End Sub

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

===

Regards,

Norman

Answer 2

Ciao Francesco, 

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

Sub Macro1()

       Workbooks.Open Filename:= "C:\Users\NDJ\Documents\Demo.xlsm"

End Sub

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

Credo che l'istruzione corrispondente per un Mac sarebbe qualcosa del genere:

         Workbooks.Open Filename:="Macintosh HD:Users:NDJ:Documents:Demo.xlsm"

Oppure, per Excel 2016 per Mac:

        Workbooks.Open Filename:="Macintosh HD/Users:NDJ/Documents/Demo.xlsm"

===

Regards,

Norman

Answer 3

Ciao Francesco, 

Con il Mac non registra nel foglio macro le aperture del percorso dei file da aprire, trascrive soltanto l'apertura del Sub e End sub non rilevandole il percorso dell'aperture dei file.

Pertanto chiedo, se la versione che ho è mancante di qualche utility per il progetto di trascrizione del  VBA.

Se registro una macro mentre apro un file, ottengo codice del seguente genere:

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

Sub Macro1()

        Workbooks.Open Filename:="C:\Users\NDJ\Documents\Demo.xlsm"

End Sub

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

Se la tua esperienza è diversa, ti chiederei gentilmente di postare il codice che ottieni tu.

P.S.: EVENTUALMENTE MI POTETE TRASCRIVERE IN VBA UNA MACRO CHE MI CONSENTA DI COPIARE IL PROGETTO DA INCOLLARE SUL FOGLIO, ED INOLTRE QUALE E' L'ISTRUZIONE DEL PERCORSO DEL DISCO MAC

CHE HO NOMINATO GDM-APPLE ?

Per favore, potresti spiegare queste due esigenze in modo più dettagliato?

===

Regards,

Norman

Answer 4

Con il Mac non registra nel foglio macro le aperture del percorso dei file da aprire, trascrive soltanto l'apertura del Sub e End sub non rilevandole il percorso dell'aperture dei file.

Pertanto chiedo, se la versione che ho è mancante di qualche utility per il progetto di trascrizione del  VBA.

Attendo notizie 

Grazie, Saluti

Francesco Cinà

P.S.: EVENTUALMENTE MI POTETE TRASCRIVERE IN VBA UNA MACRO CHE MI CONSENTA DI COPIARE IL PROGETTO DA INCOLLARE SUL FOGLIO, ED INOLTRE QUALE E' L'ISTRUZIONE DEL PERCORSO DEL DISCO MAC

CHE HO NOMINATO GDM-APPLE ?

Answer 5

Ciao Francesco,

Benvenuto alla Community!

ho la necessità di iniziare a utilizzare i fogli di excel creati e salvati con estensione (xls)  ricreandoli con le macro già registrare precedentemente sui nuovi file di excel (xlsx).

Con il nuovo pacchetto di office 365 x MAC non riesco ad effettuare la registrazione ex novo di una macro che mi consenta di aprire i file sulla directory del mio desktop all'interno di una cartella i file in essa contenuti. 

LA MACRO REGISTRATA PER FARMI QUESTA OPERAZIONE SOTTO WINDOWS L' HO TRASFORMATA E MI FUNZIONA ED E' LA SEGUENTE:

SERVE PER APRIRE I FILE NECESSARI 

' Macro157 Macro

' Macro registrata il 18-11-1996 da FRANCESCO CINA'

Sub Macro157()

    Workbooks.Open Filename:="RIEPILOGO PRODUZIONE"

    Workbooks.Open Filename:="FORM. PLASTICI"

    Workbooks.Open Filename:="FORM. PRIMER"

    Workbooks.Open Filename:="FORM. CONVERT./FONDI"

    Workbooks.Open Filename:="FORM. SMALTI"

    Workbooks.Open Filename:="FORM. IMPREGNANTI"

    Workbooks.Open Filename:="FORM. COLLANTI"

    Workbooks.Open Filename:="FORM. CREACROM"

    Workbooks.Open Filename:="FORM. MANTOVANI"

    Workbooks.Open Filename:="FORM. DEKORTE'"

    Workbooks.Open Filename:="FORM. DILUENTI"

    Workbooks.Open Filename:="FORM. LEROY MERLIN"

    Workbooks.Open Filename:="FORM. PUGLISI ANGELA"

    Workbooks.Open Filename:="FORM. SIPAFER"

    Workbooks.Open Filename:="FORM. INGENIUM"

    Workbooks.Open Filename:="FORM. ANTICORROSIONE"

    Workbooks.Open Filename:="FORM. STUCCHI"

    Workbooks.Open Filename:="FORM. ELIOCOLOR"

    Workbooks.Open Filename:="RIEP. MAT. PRIME"

    Workbooks.Open Filename:="RIEP. IMBAL."

    Workbooks.Open Filename:="SOTTOSCORTA IMB."

    Workbooks.Open Filename:="SOTTOSCORTA M.P."

    Workbooks.Open Filename:="SOTTOSCORTA SEM."

    Workbooks.Open Filename:="RIEP. SEMILAVORATI"

    Windows("FORM.IDROP.").Activate

    Range("F25").Select

End Sub

Senza recreare le macro, potresti anche semplicemente copiarle in un modulo di codice del nuovo file. Inoltre, senza creare nuovi file, potresti aprirle nella nuova versione di Office e salvarle con un nuovo formatto. Nota, però, che per salvare un file con macro, sarà necessario salvalo con il formato xlsm

 DOMANDO : SOTTO IL SISTEMA MAC COME SI REGISTRANO LE MACRO, IN QUANTO NON CI RIESCO.

Vedi l'articolo di Support Creare o eliminare macro in Excel 2016 per Mac

===

Regards,

Norman