We have another option now: QuandlLinkQuandlLink package. Using this package you can compute this as:
Needs["QuandlLink`"]
dowJonesOHLCV =
QuandlFinancialData[
"YAHOO/INDEX_DJI",
startDate -> "2015-01-01",
column -> 1 ;; 6];
TradingChart[Rest@dowJonesOHLCV, PlotLabel -> "OHLCV"]