Привет!
Из Access в Excel кидаю данные. Затем из среды Access применяю разделение текста на столбцы функцией TextToColumns. Код ниже. Но каждый раз из Акса, перед открытием Exce, меня спрашивают: "Заменить содержимое конечных ячеек?" Я не хотела бы, чтобы это сообщение вообще выводилось. Как его подавить. не соображу. Не подскажете?
Из Access в Excel кидаю данные. Затем из среды Access применяю разделение текста на столбцы функцией TextToColumns. Код ниже. Но каждый раз из Акса, перед открытием Exce, меня спрашивают: "Заменить содержимое конечных ячеек?" Я не хотела бы, чтобы это сообщение вообще выводилось. Как его подавить. не соображу. Не подскажете?
| Код |
|---|
obj_sheet.Range("AN11:AN55").Select
Selection.TextToColumns Destination:=Range("E11"), DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array _
(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array _
(12, 1), Array(13, 1), Array(14, 1), Array(15, 1), Array(16, 1), Array(17, 1), Array(18, 1), _
Array(19, 1), Array(20, 1), Array(21, 1), Array(22, 1), Array(23, 1), Array(24, 1), Array( _
25, 1), Array(26, 1), Array(27, 1), Array(28, 1), Array(29, 1), Array(30, 1), Array(31, 1)) _
, TrailingMinusNumbers:=True, ConsecutiveDelimiter:=True
|
