Диаграмма sourcedata несколько диапазонов перестали работать

Question

У меня есть код в VBA, который динамически устанавливает sourcedata для двух диаграмм. Этот код работает с десятью пользователями за последние пять лет. До сегодняшнего дня, когда кто-то пытался запустить его на машине под Windows 10 и получил Application Error 1004, когда он попал во второй setourcedata - сначала работала нормально.

Разница между двумя заключается в том, что второй указывает два диапазона не один - кто-нибудь знает, почему это внезапно перестало работать?

with xlApp.Workbooks(1) 
.Charts("Patients").SetSourceData Source:=.Sheets("Patient Numbers").Range("A" & TopRow - 1 & ":C" & CurRow - 1), PlotBy:=xlColumns 
.Charts("Financial").SetSourceData Source:=.Sheets("Financial Monthly").Range("A" & TopRow - 1 & ":A" & CurRow - 1 & ",H" & TopRow - 1 & ":H" & CurRow - 1), PlotBy:=xlColumns 
end with 

Answer 1

Офис 64 бит - я думаю, что это, вероятно, то, что сломало его.

ли установил его с помощью союза вместо

with xlApp.Workbooks(1) 
    .Charts("Patients").SetSourceData Source:=.Sheets("Patient Numbers").Range("A" & TopRow - 1 & ":C" & CurRow - 1), PlotBy:=xlColumns 
    .Charts("Financial").SetSourceData Source:=Union(.Sheets("Financial Monthly").Range("A" & TopRow - 1 & ":A" & CurRow - 1 & "),.Sheets("Financial Monthly").RangeH" & TopRow - 1 & ":H" & CurRow - 1)), PlotBy:=xlColumns 
end with