Hi everyone, my data that I get is in .CSV format (ie the file extension is .csv) but there is no option to convert a .CSV in the convert section on the downloader, can anybody help? I can only find .xls and .txt.... From Andrew

Hello! I´m also stucked with this problem and would apprechiate any help =D> The EOD data provider, that I would like to use (besides EODdata), is Dukascopy (http://www.dukascopy.net/english/cquotes/CSV/), because you can download indicies and individual stock symbols with very long historical data. Their data formating looks like this: Date,Open,High,Low,Close,Volume,Adj. Close* 22-Nov-05,3.66,3.72,3.59,3.72,206200,3.72 21-Nov-05,3.55,3.75,3.46,3.65,185200,3.65 18-Nov-05,3.46,3.68,3.40,3.60,169000,3.60 g_stockman, you explained it nicely, that in order to import the data into Metastock, it should be formatted exactly like this: <TICKER>,<PER>,<DTYYYYMMDD>,<TIME>,<OPEN>,<HIGH>,<LOW>,<CLOSE>,<VOL>,<OPENINT> TEST,D,20050601,000000,60.0000,61.8000,59.6600,60.7700,34442,0 TEST,D,20050602,000000,60.9200,62.2800,60.7700,62.2100,15237,0 TEST,D,20050603,000000,62.5200,62.5200,60.6000,60.6000,16245,0 Dukascopy´s data is probably unusable as it is, so that reformatting would be necessary. But one another problem is that all of the data is written in only one column (column A in Excel). I really don´t have an idea, how could I, for example, highlight only dates, copy them into new column (column B) and reformat it accordingly. Does anyone know, if there is a way, how to do this? Thanks!

[code:1:54cbcc9f7f]Sub Convert() 'Create new worksheet If NewSheet("Convert") = True Then MsgBox "Sheet already exists!" Exit Sub End If Sheets.Add After:=Sheets(Sheets.Count) ActiveSheet.Name = "Convert" 'Delete extraneous data Columns("G:G").Delete Shift:=xlToLeft 'Adjust column width for data input Columns("A:J").ColumnWidth = 12 'Create workspace for column headers Rows("1:1").Insert Shift:=xlDown 'Set column headers and formatting With Range("a1") .FormulaR1C1 = "TICKER" .Font.Bold = True .HorizontalAlignment = xlLeft End With With Range("b1") .FormulaR1C1 = "PERIOD" .Font.Bold = True .HorizontalAlignment = xlLeft End With With Range("c1") .FormulaR1C1 = "DATE" .Font.Bold = True .HorizontalAlignment = xlLeft End With With Range("d1") .FormulaR1C1 = "TIME" .Font.Bold = True .HorizontalAlignment = xlLeft End With With Range("e1") .FormulaR1C1 = "OPEN" .Font.Bold = True .HorizontalAlignment = xlLeft End With With Range("f1") .FormulaR1C1 = "HIGH" .Font.Bold = True .HorizontalAlignment = xlLeft End With With Range("g1") .FormulaR1C1 = "LOW" .Font.Bold = True .HorizontalAlignment = xlLeft End With With Range("h1") .FormulaR1C1 = "CLOSE" .Font.Bold = True .HorizontalAlignment = xlLeft End With With Range("i1") .FormulaR1C1 = "VOL" .Font.Bold = True .HorizontalAlignment = xlLeft End With With Range("j1") .FormulaR1C1 = "OI" .Font.Bold = True .HorizontalAlignment = xlLeft End With 'Copy raw date Sheets("Raw").Select Range("A2").Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Sheets("Convert").Select Range("C2").Select ActiveSheet.Paste With Selection .HorizontalAlignment = xlLeft .NumberFormat = "mm/dd/yyyy" End With 'Calculate number of records for further formatting Dim intRecords As Integer intRecords = Selection.Count Dim intCounter As Integer intCounter = 0 'Validate and convert raw date Do While intCounter < intRecords With Range("C2").Offset(intCounter, 0) Select Case ValidateDate(.Value) Case True .Value = Val(Format(.Text, "yyyymmdd")) .NumberFormat = "0" Case False MsgBox "Invalid date format" 'Further management would need to go here, if desired End Select End With intCounter = intCounter + 1 Loop intCounter = 0 'Copy raw open Sheets("Raw").Select Range("B2").Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Sheets("Convert").Select Range("E2").Select ActiveSheet.Paste With Selection .HorizontalAlignment = xlLeft .NumberFormat = "0.00" End With 'Copy raw high Sheets("Raw").Select Range("C2").Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Sheets("Convert").Select Range("F2").Select ActiveSheet.Paste With Selection .HorizontalAlignment = xlLeft .NumberFormat = "0.00" End With 'Copy raw low Sheets("Raw").Select Range("D2").Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Sheets("Convert").Select Range("G2").Select ActiveSheet.Paste With Selection .HorizontalAlignment = xlLeft .NumberFormat = "0.00" End With 'Copy raw close Sheets("Raw").Select Range("E2").Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Sheets("Convert").Select Range("H2").Select ActiveSheet.Paste With Selection .HorizontalAlignment = xlLeft .NumberFormat = "0.00" End With 'Copy raw volume Sheets("Raw").Select Range("F2").Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Sheets("Convert").Select Range("I2").Select ActiveSheet.Paste With Selection .HorizontalAlignment = xlLeft .NumberFormat = "0" End With 'Ticker needs to be implemented or manually entered Do While intCounter < intRecords With Range("A2").Offset(intCounter, 0) .Value = "Unk" .HorizontalAlignment = xlLeft End With intCounter = intCounter + 1 Loop intCounter = 0 'Create period Do While intCounter < intRecords With Range("B2").Offset(intCounter, 0) .Value = "D" .HorizontalAlignment = xlLeft End With intCounter = intCounter + 1 Loop intCounter = 0 'Create time Do While intCounter < intRecords With Range("D2").Offset(intCounter, 0) .Value = "0" .NumberFormat = "000000" .HorizontalAlignment = xlLeft End With intCounter = intCounter + 1 Loop intCounter = 0 'Create open interest Do While intCounter < intRecords With Range("j2").Offset(intCounter, 0) .Value = "0" .NumberFormat = "0" .HorizontalAlignment = xlLeft End With intCounter = intCounter + 1 Loop intCounter = 0 'Postition cursor for new input Range("A2").Select End Sub Function ValidateDate(ByVal DateEntry) As Boolean Dim bTest As Boolean bTest = IsDate(DateEntry) If Not bTest Then ValidateDate = False Exit Function End If ValidateDate = True End Function Function NewSheet(ByVal SheetName) As Boolean Dim ws As Worksheet For Each ws In Sheets If ws.Name = SheetName Then NewSheet = True Exit Function End If NewSheet = False Next ws End Function [/code:1:54cbcc9f7f]

Wow, registered version price: USD $49.95. That seems like a lot. If you want to use their data (which they advertise as free), then give me a copy of the raw data format and I will write you an Excel macro to convert that to MS for free. I don't have a lot of spare time, so I'm only offering if you're actually going to use the data for your trading. If you're just curious, then the trial version of the converter sounds like a neat way to check it out.