New book as CSV

[kidalex]

Hi, I need your help please.
I need to generate a macro that opens a new workbook, fills in some data in this new workbook, and I need to save it as CSV.
For the new workbook, I have created an object. The steps I perform are as follows.

'I create object
Set Excel_App = CreateObject("Excel.Application")
Excel_App.Visible = True
Excel_App.Workbooks.Add

'I fill new workbook
With Excel_App
Cell_Value = 2
.ActiveCell.FormulaR1C1 = Cell value
End With

When I try to save the new workbook, it doesn't save the new workbook, but it triggers the macro that I run as CSV.
Can you help me with the code?


Translated with www.DeepL.com/Translator (free version)

 

[6StringJazzer]

What application is hosting this VBA code? If this code is in an Excel file there is no need to create a new instance of Excel. You also do not the code you are suing to save the workbook. The phrase "the macro that I run as CSV" did not translate well because I have no idea what that means.

Use this code instead:

   Dim NewCSV As Workbook
   
   Set NewCSV = Workbooks.Add
   NewCSV.Worksheets(1).Range("A1") = "Hello world!"
   
   NewCSV.SaveAs Filename:=ThisWorkbook.Path & "\MyNewFile.csv", FileFormat:=xlCSV
   NewCSV.Close savechanges:=False