convert csv file into .xlsm file and delete the empty row between the data

[Leonardo1234]

Convert csv file into .xlsm(csv file name=1) and delete that csv file,in xlsm file delete the empty row between the data
see both the attachments

 

[YasserKhalil]

Try this code

Sub Test()
    Dim wb          As Workbook
    Dim sPath      As String

    Application.ScreenUpdating = 0
        sPath = ThisWorkbook.Path & "\"
        Set wb = Application.Workbooks.Open(sPath & "1.csv")
        Application.DisplayAlerts = False
            wb.SaveAs Filename:=Environ("userprofile") & "\Desktop\1.xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled
        Application.DisplayAlerts = True
   
        With Workbooks("1.xlsm")
            On Error Resume Next
                .Worksheets(1).Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
            On Error GoTo 0
            .Close True
        End With
    Application.ScreenUpdating = 1
End Sub

 

[Leonardo1234]

my csv file is located in C:\Users\user\Desktop
file location where i will place the vba code is C:\Users\user\Desktop\Stock Market\Sholtan

 

[YasserKhalil]

Change the path in the code to suit your needs ...

sPath = ThisWorkbook.Path & "\"

Change to

Environ("userprofile") & "\Desktop\

And change the following part

Environ("userprofile") & "\Desktop\1.xlsm"

To

Environ("userprofile") & "\Desktop\Stock Market\Sholtan\1.xlsm"

 

[Leonardo1234]

Thnx Yasser for giving ur precious time and great support to this post
Problem Solved

 

[YasserKhalil]

You're welcome. Glad I can offer some help