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
[Risolto] Importare a scelta file CSV
[Risolto] Importare a scelta file CSV
- Allegati
-
- Foglio Con Macro importazione.ods
- (13.75 KiB) Scaricato 51 volte
-
- 2022-6-24_PS.csv
- (464 Byte) Scaricato 48 volte
Ultima modifica di ferro0099 il giovedì 20 luglio 2023, 8:37, modificato 2 volte in totale.
Windows 10 - Open Office 4.1.1
Re: Importare a scelta file CSV
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
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
Re: Importare a scelta file CSV
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
. 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 (52.63 KiB) Visto 1276 volte
-
- Foglio Con Macro importazione.ods
- (14.56 KiB) Scaricato 43 volte
-
- 2022-6-24_PS.csv
- (458 Byte) Scaricato 42 volte
Windows 10 - Open Office 4.1.1
Re: Importare a scelta file CSV
Eccola
- Allegati
-
- Immagine 1.jpg (72.92 KiB) Visto 1274 volte
Windows 10 - Open Office 4.1.1
Re: Importare a scelta file CSV
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
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
Re: Importare a scelta file CSV
Dai uno sguardo a questo link sul wiki di OpenOffice (Inglese) oppure a quest'altro link esterno .
Altro di simile cercando in rete.
.
Re: Importare a scelta file CSV
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
Patel... l'ho trovato in rete, nel forum inglese tempo fà, grazie comunque per l'interessamento
Windows 10 - Open Office 4.1.1