Risolto salva csv in xlsx in un percorso di rete

frank_ciccio

Utente abituale
4 Luglio 2019
975
20
onara - padova
2007 - 365
19
Ciao a tutti.
Ho creato con il registratore questa macro che dovrebbe aprire un file csv e salvarlo in xlsx.

Visual Basic:
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
 

frank_ciccio

Utente abituale
4 Luglio 2019
975
20
onara - padova
2007 - 365
19
Il formato mi sembra esatto:

Visual Basic:
ActiveWorkbook.SaveAs Filename:=twb & "\Cartel1.xlsx" _
        , FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
ma è tutto in una colonna
 

Rubik72

Excel/VBA Expert
Supermoderatore
12 Dicembre 2015
9.365
345
48
Cosenza
Excel 2016
646
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

Utente abituale
4 Luglio 2019
975
20
onara - padova
2007 - 365
19
Ho copiato una parte di questo file, la parte
ActiveWorkbook.SaveAs Replace

Visual Basic:
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
Visual Basic:
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.
 

Sostieni ForumExcel

Aiutaci a sostenere le spese e a mantenere online la community attraverso una libera donazione!