Подскажите, можно ли в качестве источника данных сводной таблицы использовать тип данных 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 |