Risolto salva csv in xlsx in un percorso di rete

[frank_ciccio]

Ciao a tutti.
Ho creato con il registratore questa macro che dovrebbe aprire un file csv e salvarlo in xlsx.

Sub crea_cartella_query_ufficio_3()

Dim Path As String
Dim twb As String
Dim WorkbookName As String
Dim percorso As String

WorkbookName = "csv.CSV"

twb = ThisWorkbook.Path

  percorso = "\\pava\Avan\data_base_2\" & WorkbookName

'Workbooks.Open Filename:="\\pava\Avan\data_base_2\csv.CSV"

Workbooks.Open Filename:=percorso


    Windows("csv").Activate
   
   
     '------------------------------------------------------------------------------------------------------------------

ActiveWorkbook.SaveAs Filename:=twb & "\Cartel1.xlsx" _
        , FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
       
'------------------------------------------------------------------------------------------------------------------

  'ActiveWorkbook.SaveAs Filename:=twb & "\Cartel1.xlsx", FileFormat:= _
        'xlExcel8, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        ', CreateBackup:=False
                                     
       
       
    'ActiveWindow.Close
   
End Sub

non lo salva senza le virgolette, ma tutto in una colonna.
fc

 

[Rubik72]

rivedi l'argomento FileFormat QUI

 

[frank_ciccio]

Il formato mi sembra esatto:

ActiveWorkbook.SaveAs Filename:=twb & "\Cartel1.xlsx" _
        , FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

ma è tutto in una colonna

 

[Rubik72]

Avevo capito il contrario (da .xlsx a cvs).
Allora allega un file di esempio

 

[frank_ciccio]

Esempio

 

[Rubik72]

Non hai allegato il file .csv (il file .xlsm era ovvio in quanto è un file vuoto e contiene solo la macro allegata al post#1)

 

[frank_ciccio]

Per il csv è aziendale vedo di eliminare molti dati sensibili lasciando lo stesso formato

 

[frank_ciccio]

Ho copiato una parte di questo file, la parte
ActiveWorkbook.SaveAs Replace

Option Explicit

Sub CSVtoXLSX()

    Dim xFd As FileDialog
    Dim xSPath As String
    Dim xCSVFile As String
    Dim xWsheet As String
    Application.DisplayAlerts = False
    Application.StatusBar = True
    xWsheet = ActiveWorkbook.Name
    Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
    xFd.Title = "Select a folder:"
    If xFd.Show = -1 Then
        xSPath = xFd.SelectedItems(1)
    Else
        Exit Sub
    End If
    If Right(xSPath, 1) <> "\" Then xSPath = xSPath + "\"
    xCSVFile = Dir(xSPath & "*.csv")
    Do While xCSVFile <> ""
    
        Application.StatusBar = "Converting: " & xCSVFile
        
        Workbooks.Open Filename:=xSPath & xCSVFile
        ActiveWorkbook.SaveAs Replace(xSPath & xCSVFile, ".csv", ".xlsx", vbTextCompare), xlWorkbookDefault
        
        ActiveWorkbook.Close
        Windows(xWsheet).Activate
        xCSVFile = Dir
    Loop
    Application.StatusBar = False
    Application.DisplayAlerts = True
End Sub

Option Explicit

Sub crea_cartella_query_ufficio_333()

Dim Path As String
 Dim twb As String
 Dim WorkbookName As String
 Dim percorso As String
 
 WorkbookName = "csv.CSV"
 
 twb = ThisWorkbook.Path
 
 
  'Workbooks.Open Filename:="\\pava\Avan\data_base_2\csv.CSV"
  'Workbooks.Open Filename:="\\pava\Avan\data_base_2\" & WorkbookName
 
  'Workbooks.Open Filename:="C:\Users\franco_g\Desktop\ciao\csv.CSV"
  Workbooks.Open Filename:="C:\Users\franco_g\Desktop\ciao\" & WorkbookName
 
                            
      Windows("csv").Activate
    'Windows("data_base").Activate
      
        
'ActiveWorkbook.SaveAs Replace("\\pava\Avan\data_base_2\", ".csv", ".xlsx", vbTextCompare), xlWorkbookDefault

'ActiveWorkbook.SaveAs Replace("C:\Users\franco_g\Desktop\ciao\csv.xlsx", ".csv", ".xlsx", vbTextCompare), xlWorkbookDefault
ActiveWorkbook.SaveAs Replace(twb & "\csv.xlsx", ".csv", ".xlsx", vbTextCompare), xlWorkbookDefault
    
End Sub

però sempre una sola colonna.

 

[muni]

Ma dov'è il file csv??

 

[frank_ciccio]

Il file è aziendale, se tolgo dati sensibili da questo non è più nel formato, come formattazione, come l'originale.

 

[frank_ciccio]

Non potento inserire il file aziendale chiudo il post

 

[Powerwin]

Non potento inserire il file aziendale chiudo il post

F @frank_ciccio non funziona così, lo spazio sul forum va utilizzato per condividere soluzioni e non per aprire e chiudere post senza soluzione.