alin
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Troitsky, Yuk и The okk.
Больше года назад помогли написать этот код, сильно благодарен им за это, т.к он всё это время работал без перебоев!
Код: strDate = Day(Now()) & "." & Month(Now())
intHour = Hour(Now()) + 1
Set objExcel = CreateObject("Excel.Application")
objExcel.Workbooks.Open "test.xls"
With objExcel.ActiveWorkbook
If .Sheets(1).Name <> strDate Then ' создаем лист если его не существует
.ActiveSheet.Copy .Sheets(1)
.Sheets(1).Name = strDate
' перенос данных с 24:00 на 0:00
.Sheets(1).Range("E3:E25").Value = .Sheets(1).Range("AD3:AD25").Value
.Sheets(1).Range("E27:E31").Value = .Sheets(1).Range("AD27:AD31").Value
' очистка области
.Sheets(1).Range("F3:AD25", "F27:AD31").ClearContents
End If
With objExcel.ActiveWorkbook.Sheets(1)
' в зависимости от часа заполняем нужные области
.Range(.Cells(3, 6 + intHour), .Cells(18, 6 + intHour)).Value _
= .Range("AE3:AE18").Value
.Range(.Cells(22, 6 + intHour), .Cells(25, 6 + intHour)).Value _
= .Range("AE22:AE25").Value
.Range(.Cells(27, 6 + intHour), .Cells(31, 6 + intHour)).Value _
= .Range("AE27:AE31").Value
End With
.Close True
End With
Set objExcel = Nothing |
Сейчас рабочая программа изменилась и возникли трудности, с которыми спешу поделится.
Ссылки которые сейчас копируются берутся не из сторонней программы, а из базы SQL. В следствии чего в EXСEL, добавлена надстройка, позволяющая получать ссылки из базы.
Программа (test.vbs с данным кодом) запускается в фоновом режиме и при открытии данные с базы не получаются.
Пробовал поставить задержку WScript.Sleep не помогло. Выяснилось, что книга открывается, но данные в ссылках не обновляются, т.к надстройка вроде как подключена, но не идёт обновление данных.
Помогите, каким образом мне можно подправить ситуацию.
Заранее благодарен! |
Всего записей: 683 | Зарегистр. 05-08-2004 | Отправлено: 21:37 11-07-2008 | Исправлено: alin, 12:13 14-07-2008 |
|
