Aloha,
Wie heeft er ervaring met het bouwen van een rapportage/evaluatie in Excel??
Ik probeer met onderstaande Easylanguage code gegevens te exporteren naar Excel, maar ik krijg dan de melding dat "file" niet gevonden kan worden of niet toegankelijk is. kan iemand me helpen
mvg,
douwe
Vars: FileName(""),TotTr(0),Prof(0),CumProf(1),ETop(1),TopBar(0),TopInt(0),
BotBar(0),BotInt(0),EBot(1),EDraw(1),TradeStr2("");
If CurrentBar=1 Then Begin
FileName = "C:\exportvestics\"+LeftStr(GetSymbolName,2)+".csv";
FileDelete(FileName);
TradeStr2="E Date" + "," + "Position" + "," + "E Price" + "," + "X Date" +
"," + "X Price" + "," + "Profit" + "," + "Cum.prof." + "," + "E-Top" + "," +
"E-Bottom" + "," + "Flat time" + "," + "Run up" + "," + "Drawdown" + Newline;
FileAppend(FileName,TradeStr2);
end;
TotTr=TotalTrades;
If TotTr [1] Then Begin
Prof=1 + PositionProfit(1)/(EntryPrice(1)*BigPointValue);
CumProf=CumProf*Prof;
ETop=MaxList(ETop,CumProf);
If ETop>ETop[1] Then Begin
TopBar=CurrentBar;
EBot=ETop;
end;
EBot=MinList(EBot,CumProf);
If EBot<EBot[1] Then
BotBar=CurrentBar;
TopInt=CurrentBar-TopBar;
BotInt=CurrentBar-BotBar;
EDraw=CumProf/ETop;
TradeStr2=NumToStr(EntryDate(1),0) + "," +
NumToStr(MarketPosition(1),0) + "," + NumToStr(EntryPrice(1),2) +
"," + NumToStr(ExitDate(1),0) + "," + NumtoStr(ExitPrice(1),2) + ","
+ NumToStr((Prof-1)*100,2) + "," + NumToStr((CumProf-1)*
100,2) + "," + NumToStr((ETop-1)*100,2) + "," +
NumToStr ((EBot-1)*100,2) + "," + NumToStr(TopInt,0) +
"," + NumToStr(BotInt,0) + "," + NumToStr((EDraw-1)*100,2) +
NewLine;
FileAppend(FileName,TradeStr2);
end;