[Risolto] Importare a scelta file CSV

Discussioni sull'applicazione per i fogli di calcolo
Rispondi
ferro0099
Messaggi: 66
Iscritto il: giovedì 28 ottobre 2021, 18:44

[Risolto] Importare a scelta file CSV

Messaggio da ferro0099 »

Buon dì , Ho un file csv che metto in allegato che navigando in rete sono riuscito a importare in calc.

Vi chiedo , c'è la possibilità se nella cartella ci sono pìu file di avere la possibilità di scegliere il file da importare sempre tramite macro?

Grazie e buon week
Allegati
Foglio Con Macro importazione.ods
(13.75 KiB) Scaricato 50 volte
2022-6-24_PS.csv
(464 Byte) Scaricato 47 volte
Ultima modifica di ferro0099 il giovedì 20 luglio 2023, 8:37, modificato 2 volte in totale.
Windows 10 - Open Office 4.1.1
patel
Volontario attivo
Volontario attivo
Messaggi: 4016
Iscritto il: venerdì 30 aprile 2010, 8:04
Località: Livorno

Re: Importare a scelta file CSV

Messaggio da patel »

Codice: Seleziona tutto

Sub openfilefromdialog() 
Dim vFileDialog
Dim vFileAccess
Dim iAccept as Integer 'Response to the FilePicker
Dim sInitPath as String 'Hold the initial path
Doc = thisComponent
Sheet = Doc.Sheets(0)
vFileDialog = CreateUnoService("com.sun.star.ui.dialogs.FilePicker")
vFileAccess = CreateUnoService("com.sun.star.ucb.SimpleFileAccess")
With vFileDialog
  .setMultiSelectionMode(false)
  .appendFilter("All ods files", "*.csv")
end with
sInitPath = ConvertToUrl("C:\Download") 'CurDir
If vFileAccess.Exists(sInitPath) Then
   vFileDialog.SetDisplayDirectory(sInitPath)
End If
iAccept = vFileDialog.Execute()
If iAccept = 1 Then
     FileName = vFileDialog.Files(0) 'Set file name if it was not canceled
      sURL = ConvertToURL(FileName)
      sOrigin = ""
      sFilter = "Text - txt - csv (StarCalc)"
      sOpc ="59/4"
' sOpc = "ASCII CODE Field Separator, ASCII CODE Text Delimiter, Character Set, Starting Line"
      nModo = com.sun.star.sheet.SheetLinkMode.NORMAL
      ' link file
      Sheet.link(sURL, sOrigin, sFilter, sOpc, nModo)
      ' reset link
      Sheet.setLinkMode(com.sun.star.sheet.SheetLinkMode.NONE)
End If
vFileDialog.Dispose()
End sub
-------------------
Libre Office 7.5.3.2 su Windows 11
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta
ferro0099
Messaggi: 66
Iscritto il: giovedì 28 ottobre 2021, 18:44

Re: Importare a scelta file CSV

Messaggio da ferro0099 »

Grazie Patel, funziona egregiamente ma....
. se guardi rispetto al file csv dove ho due decimali dopo i numeri nelle colonne del peso , mi compaiono degli "=" in più (vedi immagine 1)
. altra cosa per importare i dati come fà ma per esempio il nome cliente spostarlo in una cella a mia scelta (vedi immagine 2)
. ho visto che "sOpc ="59/44,34,ANSI,1" è il più usato ma facendo delle prove a me incolonna bene con "sOpc ="59/4" >>> dove si posso comprendere questi numeri

Grazie ancora comunque per l'aiuto

P.S l'immagine 1 la metto sotto non posso inserirla in questo post
Allegati
Immagine 2.jpg
Immagine 2.jpg (52.63 KiB) Visto 1136 volte
Foglio Con Macro importazione.ods
(14.56 KiB) Scaricato 41 volte
2022-6-24_PS.csv
(458 Byte) Scaricato 40 volte
Windows 10 - Open Office 4.1.1
ferro0099
Messaggi: 66
Iscritto il: giovedì 28 ottobre 2021, 18:44

Re: Importare a scelta file CSV

Messaggio da ferro0099 »

Eccola
Allegati
Immagine 1.jpg
Immagine 1.jpg (72.92 KiB) Visto 1134 volte
Windows 10 - Open Office 4.1.1
patel
Volontario attivo
Volontario attivo
Messaggi: 4016
Iscritto il: venerdì 30 aprile 2010, 8:04
Località: Livorno

Re: Importare a scelta file CSV

Messaggio da patel »

Non so rispondere alle tue domande, non conoscevo quel metodo di importazione, dove l'hai trovato ?
-------------------
Libre Office 7.5.3.2 su Windows 11
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta
Avatar utente
lucky63
Volontario assiduo
Volontario assiduo
Messaggi: 2991
Iscritto il: martedì 18 maggio 2010, 17:01

Re: Importare a scelta file CSV

Messaggio da lucky63 »

ferro0099 ha scritto: domenica 26 giugno 2022, 8:47 dove si posso comprendere questi numeri
Dai uno sguardo a questo link sul wiki di OpenOffice (Inglese) oppure a quest'altro link esterno .
Altro di simile cercando in rete.
.
ferro0099
Messaggi: 66
Iscritto il: giovedì 28 ottobre 2021, 18:44

Re: Importare a scelta file CSV

Messaggio da ferro0099 »

Scusate , per la risposta tardiva non sono stato molto bene, grazie lucky per il link... qualcosa ho capito

Patel... l'ho trovato in rete, nel forum inglese tempo fà, grazie comunque per l'interessamento
Windows 10 - Open Office 4.1.1
Rispondi