Appunti su informatica e dintorni
Se capita di aprire un excel con macro da un percorso di rete e excel non da possibilita’ di accettare questo percorso come affidabile (neanche dal centro protezione) bisogna abilitarlo nelle proprieta’ di internet:
Ringrazio Mario per l’utile segnalazione!
Creare una macro e inserire questo codice:
Dim FileDaLeggere As String
Dim riga As String
FileDaLeggere = “C:\temp\ciao.csv”
On Error Resume Next
Range(“A1”).Activate
row_number = 0
Open FileDaLeggere For Input As #1
Do Until EOF(1)
Line Input #1, riga
campi = Split(riga, “,”)
ActiveCell.Offset(row_number, 0).Value = Replace(campi(0), Chr(34), “”)
ActiveCell.Offset(row_number, 1).Value = Replace(campi(1), Chr(34), “”)
ActiveCell.Offset(row_number, 2).Value = Replace(campi(2), Chr(34), “”)
row_number = row_number + 1
Loop
Close #1
Sostituire FileDaLeggere con il file effettivo e campi(0) , campi(1) etc con il numero della colonna interessata.
Creare una nuova macro e inserire questo codice:
Dim FileDaScrivere As String
Dim campo As String
Dim rng As Range
Dim riga As Integer
FileDaScrivere = “C:\temp\ciao.csv”
Open FileDaScrivere For Output As #1
For riga = 1 To 10
campo = ActiveSheet.Range(“A” & riga)
Write #1, campo,
campo = ActiveSheet.Range(“B” & riga)
Write #1, campo,
campo = ActiveSheet.Range(“C” & riga)
Write #1, campo,
campo = ActiveSheet.Range(“D” & riga)
Write #1, campo
Next riga
Close #1
Cambiare il percorso di output e le colonne da scrivere (FileDaScrivere e ActiveSheet.Range).
Segnalo questo post dove si spiega come rendere operative le macro di Microsoft Office sulla piattaforma OpenOffice/LibreOffice:
https://forum.openoffice.org/it/forum/viewtopic.php?f=6&t=1574
In breve vanno aggiunte le istruzioni in testa alla macro per renderle compatibili:
Rem Attribute VBA_ModuleType=VBAModule
Option VBASupport 1
Segnalo che macro complesse vanno riscritte nativamente
Utilizzo i cookie per essere sicuro che tu possa avere la migliore esperienza sul mio sito. Se continui ad utilizzare questo sito assumo che tu ne sia felice.. maggiori informazioni
Questo sito utilizza i cookie per fonire la migliore esperienza di navigazione possibile. Continuando a utilizzare questo sito senza modificare le impostazioni dei cookie o clicchi su "Accetta" permetti al loro utilizzo.