Имя: Пароль:
IT
 
чтение и запись из 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 напихал, хотя с одним тож не работает..