|
чтение и запись из exel в exel с помощью VBS |
☑ |
0
DrunkWolf
01.02.11
✎
07:39
|
получил два xls файла с помощью Excel.Application. Один пустой, другой с отчетом, выгруженным из 1С-ки.
Подскажите пжл код, как на vbs скопировать ВСЕ данные из заполненного в пустой...
|
|
1
1Сергей
01.02.11
✎
07:40
|
Запиши макрос и посмотри
|
|
2
big
01.02.11
✎
08:24
|
Предлагаю все-таки использовать VBA
|
|
3
DrunkWolf
01.02.11
✎
08:26
|
мне VBS надо, т.к. это делается в веб-приложении.. К сожалению не все из VBA там будет работать..
|
|
4
VladZ
01.02.11
✎
08:28
|
(0) Нифига не понял: зачем копировать в пустой? Скопируй файл. :)
|
|
5
Рэйв
01.02.11
✎
08:37
|
(3)Так может для ВЭБ выгружать не в Эксель, а сразу в хтмл? Скопируешь на ресурс файл,вставишь ссылку и все:)
|
|
6
DrunkWolf
01.02.11
✎
09:06
|
в веб существует ссылка на файл. Прежде чем его открыть необходимо скриптом скопировать в него данные из другого файла.. Как то вот так...
|
|
7
Рэйв
01.02.11
✎
09:08
|
(6) Как вариант При открытом отчете в 1С: Файл->Сохранить копию->формат HTML потом тупо копируешь и затираешь файл на который ссылка
|
|
8
DrunkWolf
02.02.11
✎
07:17
|
вот тут накодил кое-что, только не работает.. Проходит без ошибок, только файл приёмник все равно в итоге оказывается пустым. Set oXL = CreateObject("Excel.Application") 'создать объект MS Excel Application. Set oXLSource = CreateObject("Excel.Application") oXL.Visible = False Set oWB = oXL.Workbooks.Open("***\приемник.xls") Set oSheet = oWB.Worksheets(1) oXLSource.Visible = False Set oWBSource = oXLSource.Workbooks.Open("***\источник.xls") 'открываем файл отчета Set oSheetSource = oWBSource.Worksheets(1) 'oSheetSource.Cells.Select For i = 1 To 100 oSheet.Cells(i,1).value = oSheetSource.Cells(i,1).value Next oWB.Save 'сохраняем файл oWB.Close Set oSheet = Nothing Set oWB = Nothing oXL.Quit 'закрываем MS Excel Set oXL = Nothing oWBSource.Save 'сохраняем файл oWBSource.Close Set oSheetSource = Nothing Set oWBSource = Nothing oXLSource.Quit 'закрываем MS Excel Set oXLSource = Nothing Может быть зря я 2 Excel.Application напихал, хотя с одним тож не работает..
|
|