экспорт на лист Excel, на который ссылаются формулы |
| + |
| Set Exap = CreateObject("Excel.Application") Set ExApWo = Exap.workbooks.Open("Файл экспорта") Set mysheet = ExApWo.Sheets("Лист1") With mysheet FiR = .UsedRange.Row FiC = .UsedRange.Column LaR = .UsedRange.Row + .UsedRange.Rows.Count - 1 LaC = .UsedRange.Column + .UsedRange.Columns.Count - 1 .Range(Cells(FiR + 1, FiC), Cells(LaR, LaC)).delete Set rs = CurrentDb.OpenRecordset("result") .Range("A2").CopyFromRecordset rs |
http://www.sql.ru/forum/1116926/eksport-na-list-excel-na-kotoryy-ssylautsya-formuly
| Комментировать | « Пред. запись — К дневнику — След. запись » | Страницы: [1] [Новые] |