VBA/excel macro per leggere un file csv

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.

VN:F [1.9.22_1171]
Rating: 0.0/10 (0 votes cast)
VN:F [1.9.22_1171]
Rating: +1 (from 1 vote)

VBA/excel macro per scrivere un file csv

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).

 

VN:F [1.9.22_1171]
Rating: 0.0/10 (0 votes cast)
VN:F [1.9.22_1171]
Rating: +1 (from 1 vote)

accesso non possibile a shared folder

Sono diventato matto davanti ad un computer con windows10 con l’utente joinato su Azure. Accedendo a delle cartelle condivise in rete (sia su nas che su un server windows) ricevo un errore generico “Windows cannot access \\miashare”. Coincidenza era anche una versione 1709 e cercando in rete escono una marea di soluzioni su samba versione3, su 1709 che disabilita la versione 1 e altri commenti che poertano decisamente fuori strada. La soluzione per abilitare l’accesso e:

– Cercare in windows “Credential manager”

– Cliccare su Windows Credential

– Add Windows Credential e impostare:

network address: \\share-name

username: share-name\user (attenzione! mettere share-name\ davanti al nome)

password: password

Tutto qui!

 

VN:F [1.9.22_1171]
Rating: 0.0/10 (0 votes cast)
VN:F [1.9.22_1171]
Rating: 0 (from 0 votes)

Applicazioni inutili in Windows 10

In windows10 ci sono parecchie applicazioni inutili preinstallate o installate in automatico che non si possono disinstallare.
Discorsi filosofici a parte, installando windows e cliccando su “accetta” nei vari disclaimer si accettano una serie di condizioni per cui sostanzialmente si acconsente di farsi informaticamente violentare (e non solo informaticamente). Alla fine dipende dal motivo per cui una persona utilizza il proprio pc, in molti casi comunque lo si usa per LAVORARE.
Ho fatto molte battaglie per sensibilizzare la gente a non installare software inutile nei propri pc (o peggio in quelli aziendali) e ora qualcuno potrebbe dubitare dei miei consigli. Per chi reputa che il pc puo’ lavorare meglio senza software inutile ecco una piccola guida per disinstallare programmi che nel pannello di controllo sono in grigetto, attenzione a rimuovere solo quelli inutili, per esempio Grove Music, bing news, xbox etc:

  1. Provare a rimuovere normalmente il programma dal pannello di controllo –> Apps
  2. Se il programma e’ “irrimovibile” aprire una powershell come amministratore (Start–> PowerShell–>Tasto destro–>Avvio come amministratore)
  3. ottenere l’elenco di tutti i programmi (oops App) installati con il comando Get-AppxPackage –AllUsers
  4. Si ottiene un lunghissimo elenco, quello che importa e’ il nome programma (parametro Name:) e il parametro PackageFullName
  5. Individuare cosa disinstallare scorrendo tutti i Name per esempio Microsoft.BingFinance e ottenere il corrispondente fullname, in questo caso Microsoft.BingFinance_4.22.3254.0_x64__8wekyb3d8bbwe
  6. Lanciare in PowerShell il comando remove-AppxPackage “fullname” nel nostro caso
  7. remove-AppxPackage Microsoft.BingFinance_4.22.3254.0_x64__8wekyb3d8bbwe
  8. Tutto qui, sembra difficile ma fatto per uno poi sono dei copia e incolla.
VN:F [1.9.22_1171]
Rating: 10.0/10 (1 vote cast)
VN:F [1.9.22_1171]
Rating: 0 (from 0 votes)

Mysql/MariaDB come muovere una tabella da un database ad un altro

Per muovere una tabella da un Database ad un altro in modo veloce e semplice usare questo comando:

alter table VECCHIO_DATABASE.NOMETABELLA rename NUOVO_DATABASE.NOMETABELLA

e’ possibile anche rinominare la tabella di arrivo immettendo:

alter table VECCHIO_DATABASE.NOMETABELLA rename NUOVO_DATABASE.NUOVO_NOMETABELLA

Questo comando a differenza del dump o di altri metodi e’ velocissimo.

VN:F [1.9.22_1171]
Rating: 0.0/10 (0 votes cast)
VN:F [1.9.22_1171]
Rating: 0 (from 0 votes)

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.

Chiudi