Creating a chart from an external CSV file

**mrice** · 03-21-2008, 11:19 AM

Try

Set ws = ThisWorkbook.ActiveSheet

**jachiavelli** · 03-21-2008, 11:54 AM

Thanks again

I tried that and got this error:
http://img521.imageshack.us/my.php?image=errorlc6.jpg

This should be so simple but I can't seem to get it. There must be something terribly obvious that I'm overlooking. I've uploaded the file, if you want to have a look:
http://www.geocities.com/mtwstorage/energyBooks.zip

Any ideas where I'm going wrong?

**mrice** · 03-21-2008, 02:00 PM

The following code gets you as a graph although it might not be quite the graph that you are expecting. Adjust the Open line to the appropriate path.

Private Sub Workbook_Open()
Dim ws As Worksheet
    Set ws = ThisWorkbook.ActiveSheet
    Workbooks.Open "c:\energyOutput.csv"
    
    Dim n
    ThisWorkbook.Activate
    For i = ActiveSheet.ChartObjects.Count To 1 Step -1
        ActiveSheet.ChartObjects(i).Delete
    Next i
    
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.SetSourceData Source:=Workbooks("energyOutput.csv").Sheets("energyOutput").Range("$A1:$C" & Workbooks("energyOutput.csv").Sheets("energyOutput").Cells(65536, 1).End(xlUp).Row)
    ActiveChart.ChartType = xlLine
End Sub