| |
|
|
| | У меня нет Office 2010
У меня установлен Office 2003
Для него и всё и делал......
Public xl As Object
Public xlBook As Object
Public xlSheet As Object
Public row, col
Set xl = CreateObject("Excel.Application")
Set xlBook = xl.Workbooks.Open(Patch_Name & "Blank.xls")
Set xlSheet = xl.Worksheets("СТР1")
xlSheet.Activate
................................
' Set RST_ORG = New ADODB.Recordset
xl.Range("A7").Value = RST_ORG("FIRMA")
xl.Range("AF7").Value = RST_ORG("OKPO")
xl.Range("AF8").Value = RST_ORG("INN")
.....................................
xl.ActiveWorkbook.SaveAs GLB_PATCH_DOCS & "Книжка ехцелевская"
Set xlSheet = Nothing
Set xlBook = Nothing
Set RST_ORG = Nothing
|
у меня работает, а на месте не работает.
теперь выясняется что всё это надо для Office 2010
А я в ступоре - че надо поменять?
Ведь всё и так (по моему) должно работать... 
Или нет? | |
| |
| |
| |
|
|
| | а библиотеку excel 2010 подключил?
или это все под excel написано | |
| |
| |
| |
|
|
| | по поводу библиатеки - это вряд ли - у мну позднее связывание с Excel
Это всё написано под vb6 
Привет!!!
--_________________--
Я вот сомневаюсь....
Связывание изменилось в связи с приходом нового office ? или осталось прежним...... | |
| |
| |
| |
|
|
| | А что именно не работает? Ошибка? Номер? На какой строке?
Вы обработчик ошибок используете?
По поводу кода:
Зачем вы активируете worksheet?
Для того, чтобы потом использовать xl.Range?
Как-то это некомильфо. Почему не используете xlSheet.Range? | |
| |
| |
| |
|
|
| | Почему не используете xlSheet.Range?
из за незнаниев.....  | |
| |
| |
| |
|
|
| | ОКАЗАЛОСЬ ЭТО ВЬЮВЕР
Просмотрщик а не полноценный Excel.
Кто нибуть в связывался с просмотрщиком поздним связыванием? | |
| |
| |
| |
|
|
| |  Кто нибуть в связывался с просмотрщиком поздним связыванием?
| |
| |
| |
