troubleshooting Question

VB 6 & Excel Run-Time error '1004'

Avatar of sahinman
sahinmanFlag for United States of America asked on
Visual Basic ClassicWindows OS
5 Comments1 Solution8872 ViewsLast Modified:
I have the following VB 6 code (w/Office 2000) which is to load an XLS file and create a chart of the data in column F, rows 10 to 85. When I launch the program and run the SubProgram once it works, but if I try to run it a second time I get the following error message:
Run-time error '1004' Method 'Charts' of object '_Applicaiton' failed. What am I missing??

Private Sub Form_Click()
Dim xlApp As Excel.Application
Dim xlWkb As Excel.Workbook
Dim xlWrkSht As Excel.Worksheet
Dim xlChart As Excel.Chart
Dim xlRange As Excel.Range

Set xlApp = CreateObject("Excel.Application")

xlApp.Visible = True
Set xlWkb = xlApp.Workbooks.Open("C:\Summary.xls")
Set xlWrkSht = xlWkb.Sheets(1)
Set xlRange = xlWrkSht.Range("F10:F85")
Set xlChart = Application.Charts.Add
With xlChart
    .ChartType = xlLine
    .SetSourceData Source:=xlRange
    .Location Where:=xlLocationAsObject, Name:=xlWrkSht.Name
End With

xlApp.Application.SaveWorkspace "C:\Summary1.xls"
Set xlRange = Nothing
Set xlChart = Nothing
Set xlWrkSht = Nothing
Set xlWkb = Nothing
Set xlApp = Nothing

End Sub


Our community of experts have been thoroughly vetted for their expertise and industry experience.

Log in to continue reading
Become an EE member today7-DAY FREE TRIAL
Members can start a 7-Day Free trial then enjoy unlimited access to the platform for $9.99/mo
View membership options
Unlock 1 Answer and 5 Comments.
Learn why we charge membership fees
We get it - no one likes a content blocker. Take one extra minute and find out why we block content.
See how we're fighting big data
The Value of Experts Exchange in My Daily IT Life

Experts Exchange (EE) has become my company's go-to resource to get answers. I've used EE to make decisions, solve problems and even save customers. OutagesIO has been a challenging project and... Keep reading >>


Owner of Outages.IO
Phoenix, Arizona, United States
Member Since 2016
Join a full scale community that combines the best parts of other tools into one platform.
Unlock 1 Answer and 5 Comments.
View membership options
“All of life is about relationships, and EE has made a virtual community a real community. It lifts everyone's boat.”
William Peck

Member since 2004