Attribute VB_Name = "testbooknew9"
Sub ƒeƒXƒg()
    
    Dim book1 As Workbook

    Set book1 = Workbooks("VBAsample.xls")
    book1.SaveAs filename:="C:\excelsample\test.csv", _
        FileFormat:=xlCSV
        
End Sub