сделал немного по другому. М.б. кому поможет:
1. Запрос из PQ нужно поместить в модель данных, чтобы можно было обратиться к событию TableUpdate
2. Ссылки, т.е. формулы из PQ должны приходить в англоязычном формате.
3. Далее код
Код |
---|
Private Sub Worksheet_TableUpdate(ByVal Target As TableObject)
Dim tbl As ListObject
Dim lrow As Range
Dim val As String
Set tbl = ActiveSheet.ListObjects("yyy")
For Each lrow In tbl.ListColumns("xxx").DataBodyRange.Rows
val = lrow.Value
If val = "" Then
Else
val = Right(lrow.Value, Len(lrow.Value) - 1) 'в PQ у меня первый символ - кавычка, поэтому обрезаю строку.
lrow.FormulaR1C1 = val
End If
Next lrow
End Sub
|