Подскажите, можно ли в качестве источника данных сводной таблицы использовать тип данных Variant?
Что я хочу сделать:
1. Получить данные из базы данных
2. Преобразовать набор данных в Variant (чтобы можно было изменить данные)
3. Изменить данные
4. Измененный набор указать в качестве источника данных в сводной таблице
Что я хочу сделать:
1. Получить данные из базы данных
2. Преобразовать набор данных в Variant (чтобы можно было изменить данные)
3. Изменить данные
4. Измененный набор указать в качестве источника данных в сводной таблице
| Код |
|---|
Private Sub CommandButton1_Click()
Dim CN As ADODB.Connection
Dim rst As ADODB.Recordset
Dim vDat As Variant
Set CN = CreateObject("ADODB.Connection")
CN.ConnectionString = "Driver={Oracle in OraClient11g_home1};Dbq=DBNAME;Uid=User;Pwd=Pass;"
CN.Open
sqlStr1 = "select * from mytable where id < 20 "
Set rst = CN.Execute(sqlStr1)
vDat = rst.GetRows
CN.Close
vDat(1, 4) = "12345"
Set ActiveSheet.PivotTables(1).PivotCache.Recordset = vDat 'Тут я застрял
ActiveSheet.PivotTables(1).PivotCache.Refresh
End Sub
|
