VBA to create .csv

[jas1980]

I have tried to use this VBA code:

Sub csvcreate()
Workbooks.Add.SaveAs fileName:=Range("P2"), FileFormat:=xlCSV, _
CreateBackup:=False
End Sub

to create a csv file, in P2 is this address:

C:\Users\jamie\AppData\Roaming\MetaQuotes\Terminal\06980EAAF7FCC460D7BD131105CC8618\MQL4\Files\NF\NF.csv

and is created by changeable values using an & formula, this gives me an error and after many different tries I cannot get to work. Could someone please show me what I need to add or change.

 

[Logit]

Why are you saving the file to such an obscure location ?

Here is a sample code from my toolbox :

Option Explicit


Sub test()
Dim TempWB As Workbook
Dim fd As String
Application.DisplayAlerts = False
Application.ScreenUpdating = False
ActiveSheet.Copy
Set TempWB = ActiveWorkbook

fd = "C:\Users\My\Desktop"   'Edit path as required. Assumes the folder Test already exists on the desktop
'fd now holds the path to the folder
 
With TempWB
'Exchange Sheet is the name of the saved CSV file. Edit name as required.
    .SaveAs Filename:=fd & "\Exchange_Sheet", FileFormat:=xlCSVWindows, CreateBackup:=False
    .Close
End With

Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

 

[jas1980]

Why are you saving the file to such an obscure location ?

Here is a sample code from my toolbox :

Option Explicit


Sub test()
Dim TempWB As Workbook
Dim fd As String
Application.DisplayAlerts = False
Application.ScreenUpdating = False
ActiveSheet.Copy
Set TempWB = ActiveWorkbook

fd = "C:\Users\My\Desktop"   'Edit path as required. Assumes the folder Test already exists on the desktop
'fd now holds the path to the folder

With TempWB
'Exchange Sheet is the name of the saved CSV file. Edit name as required.
    .SaveAs Filename:=fd & "\Exchange_Sheet", FileFormat:=xlCSVWindows, CreateBackup:=False
    .Close
End With

Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

Thank you I will see if I can get this code to work for me. The location is created by an MT4 expert advisor but, sometimes I need to create to add data so the EA can still access, bit of a pain but if used on a different PC then the xl docs still need to access.

 

[jas1980]

Why are you saving the file to such an obscure location ?

Here is a sample code from my toolbox :

Option Explicit


Sub test()
Dim TempWB As Workbook
Dim fd As String
Application.DisplayAlerts = False
Application.ScreenUpdating = False
ActiveSheet.Copy
Set TempWB = ActiveWorkbook

fd = "C:\Users\My\Desktop"   'Edit path as required. Assumes the folder Test already exists on the desktop
'fd now holds the path to the folder

With TempWB
'Exchange Sheet is the name of the saved CSV file. Edit name as required.
    .SaveAs Filename:=fd & "\Exchange_Sheet", FileFormat:=xlCSVWindows, CreateBackup:=False
    .Close
End With

Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

Thank you very much for this code it works perfectly

 

[Logit]

You are welcome.