Наконец-то меня осенило, как можно обойти поведение хостинга при сохранении страниц, выпиливающее все символы табуляции, в том числе и в тегах, предназначенных для кода.
Это приводило к такой печальной картине:
Sub Handle_Cells_1(parRange As Range)
For i = 1 To parRange.Count
parRange(i, 5) = parRange(i).Address & " = " & parRange(i)
Next
End Sub
и до меня только что дошло, как сделать так:
Sub Handle_Cells_1(parRange As Range)
For i = 1 To parRange.Count
parRange(i, 5) = parRange(i).Address & " = " & parRange(i)
Next
End Sub
Я просто заменяю символы табуляции в коде на нужное мне количество неразрывных пробелов HTML. Так просто, но почему-то раньше мне это в голову не приходило...
Public Sub ALV_CUS_Exit() Dim objs As ChartObjects Dim obj As ChartObject Dim sheet As Worksheet Dim r As Range For Each sheet In Sheets Set objs = sheet.ChartObjects For Each obj In objs Set r = Sheets("RawData").UsedRange obj.Chart.SetSourceData Source:=r Next obj Next sheet End Sub
0
