Các cuộc gọi lặp lại của Chart.SetSourceData cho lỗi 1004

Question

Tôi gặp sự cố với một ứng dụng được tạo trong Excel 2003 trong công ty của tôi. Ứng dụng truy xuất dữ liệu từ một nguồn và cập nhật Biểu đồ bằng cách sử dụng SetSourceData trong quy trình VBA thông qua Phạm vi chứa các ô nơi dữ liệu có liên quan được ghi.

Ứng dụng này chỉ chạy tốt trong Office 2003, nhưng khi ứng dụng được thực hiện trong Office 2010 nó mang lại cho lỗi này:

Run-time error '1004': Method 'SetSourceData' of object'_Chart' failed.

Tôi đã tạo ra một vòng lặp For trong một file Excel đơn giản trong Office 2010 và tùy về số cột được chuyển trong Phạm vi tới Biểu đồ, lỗi sẽ sớm xuất hiện. Càng nhiều cột được truyền trong phạm vi thì càng sớm càng xuất hiện. Tôi đoán điều này phải được liên quan với số lượng các chuỗi trong bảng xếp hạng (nhiều cột hơn loạt).

Đây có phải là một số loại cơ chế/bộ đệm trong đối tượng biểu đồ hoặc chuỗi được triển khai trong Office 2010 không tồn tại trong Office 2003 không? Các vòng lặp For giống nhau không bao giờ cho thấy một vấn đề khi nó được chạy trong Office 2003 và tôi không chắc chắn làm thế nào để giải quyết vấn đề này.

Cho đến nay tôi chỉ có thể xóa tất cả Chuỗi kiểm soát lỗi bằng lệnh Goto để xóa tất cả chuỗi trong SeriesCollection bằng cách sử dụng vòng lặp For Each để chọn tất cả các đối tượng trong SeriesCollection của Biểu đồ. Nếu tôi làm điều này và tiếp tục thực hiện các ứng dụng khi tôi vượt qua dãy một lần nữa tất cả các dữ liệu được vẽ trong đối tượng biểu đồ đúng.

Ví dụ để tạo lại lỗi. Mã sau đây được đặt trong mô-đun VBA trong sổ làm việc Excel 2010 mới. Chạy Sub setDataChart và ứng dụng sẽ chạy cho đến khi thông báo lỗi hiển thị.

Sub setDataChart() 
    Call createAColValues 
    ActiveSheet.Shapes.AddChart.Select 
    ActiveChart.ChartType = xlXYScatterSmoothNoMarkers 
    ActiveChart.SetSourceData Source:=Range("A1:FA6"), PlotBy:=xlColumns 
    ActiveSheet.ChartObjects(1).Activate 
    With ActiveChart.Parent 
     .Height = 325 
     .Width = 900 
     .Top = 120 
     .Left = 10 
    End With 
    Call updateValues 
    Call sendData 
End Sub 

    Sub sendData() 
    Dim cht As ChartObject 
    Set cht = ActiveSheet.ChartObjects(1) 

    'On Error GoTo delSeries: 
    For i = 0 To 1000 
     cht.Chart.SetSourceData Source:=ActiveSheet.Range("A1:FA6"), PlotBy:=xlColumns 
    Next i 
End Sub 

Sub createAColValues() 
    Range("A1").Select 
    ActiveCell.FormulaR1C1 = "1" 
    Range("A2").Select 
    ActiveCell.FormulaR1C1 = "2" 
    Range("A1:A2").Select 
    Selection.AutoFill Destination:=Range("A1:A6"), Type:=xlFillDefault 
    Range("A1:A6").Select 
End Sub 

Sub updateValues() 
    Range("B1").Select 
    ActiveCell.FormulaR1C1 = "=RANDBETWEEN(0,10)" 
    Range("B1").Select 
    Selection.AutoFill Destination:=Range("B1:B6"), Type:=xlFillDefault 
    Range("B1:B6").Select 
    Selection.AutoFill Destination:=Range("B1:FA6"), Type:=xlFillDefault 
    Range("B1:FA6").Select 
End Sub 

Answer 1

Điều này không giải thích tại sao lỗi xảy ra. Đây là một giải pháp.

Trước khi gọi SetSourceData, hãy xóa tất cả chuỗi hiện có hiện có trong biểu đồ và mã sẽ chạy như mong đợi.

For j = cht.Chart.SeriesCollection.Count To 1 Step -1 
    cht.Chart.SeriesCollection(j).Delete 
Next j 

Tôi không chắc chắn tại sao lỗi xảy ra ngay từ đầu, nhưng điều này làm cho nó biến mất.

Answer 2

Một khả năng khác là xác định phạm vi được đặt tên cho dữ liệu được xác định bằng cách sử dụng công thức Offset và các ô tham chiếu thích hợp. Điều này yêu cầu dữ liệu tiếp giáp, không thay đổi hàng đầu tiên & cột bắt đầu và để bạn thiết lập ít nhất một công thức tham chiếu (=COUNTA() trên cột/hàng chứa dữ liệu) có thể được sử dụng để đặt chiều cao/chiều rộng của phạm vi bù đắp.

Nếu không, hãy sử dụng các macro và đặt nó vào trong bảng tính logic.