Страница: 1 |
может есть у кого ссылки по subj? неработает следующий код: On Error GoTo on_error_exit Dim aXl As New Excel.Application Dim aBook As Workbook Dim fileToOpen As String Set aXl = CreateObject("excel.application") aXl.Visible = True fileToOpen = "D:\Temp\test\Rn230401.706" aXl.Application.Workbooks.Open (fileToOpen) Set aBook = aXl.Workbooks.Item(1) With aBook.Worksheets(1) .Activate .Range("B:B").Select '.Selection.Copy ' тут и дальше падаем ощущение такое что метод не поддерживается '.Sheets.Add ' хотя из VBA (книги Excel) все работает. '.ActiveSheet.Paste '.Rows("1:1").Select '.Application.CutCopyMode = False '.Selection.Delete Shift:=xlUp End With aXl.Application.Workbooks.Close Set aBook = Nothing Set aXl = Nothing on_error_exit: aXl.Application.Workbooks.Close Set aBook = Nothing aXl.Quit Set aXl = Nothing End Sub Проект VB6
Ошибок у тебя больших и не очень-ТЬМА! Свойства и методы используешь не верно.Почаще заглядывай в Object Browser.И при использовании With.......End With(особенно в Excel) будь внимательней. Что нашел,исправил на скорую руку.Сам правда не проверял-попробуешь.Если не пойдет- пиши на мыло. On Error GoTo on_error_exit Страница: 1 |
Вопрос: как управлять книгой Excel посредством OLE из B...
Добавлено: 30.04.03 09:14
Автор вопроса: denisn
Ответы
Всего ответов: 2
Номер ответа: 1
Автор ответа:
EROS
Вопросов: 58
Ответов: 4255
Профиль | | #1
Добавлено: 01.05.03 04:26
Dim aXl As New Excel.Application
Dim aBook As Workbook
Dim fileToOpen As String
Set aXl = New Excel.Application
aXl.Visible = True
fileToOpen = "D:\Temp\test\Rn230401.706"
aXl.Application.Workbooks.Open (fileToOpen)
Set aBook = aXl.Workbooks.Item(1)
With aBook.Worksheets(1)
.Activate
.Range("B:B").Copy
End With
With aBook
.Sheets.Add
.ActiveSheet.Paste Destination:=ActiveSheet.Range("A:A")
.Worksheets(1).Rows("1:1").Select
End With
With aXl.Application
.CutCopyMode = False
.Selection.Delete Shift:=xlUp
End With
'вот сюда желательно вставить код для очистки
'Clipboard,чтоб мозги компу не забивать
aBook.Close SaveChanges:=False
Set aBook = Nothing
Set aXl = Nothing
on_error_exit:
aXl.Application.Workbooks.Close
Set aBook = Nothing
aXl.Quit
Set aXl = Nothing
Номер ответа: 2
Автор ответа:
Banzoy
Вопросов: 5
Ответов: 8
Профиль | | #2
Добавлено: 03.05.03 15:34
у меня с Excel'ом есть небльшая трабла... после первой же загрузки (Set) повисает в процессах и не выгружается... и никакие Nothing не помогают... выгружается только после закрытия проги, которая его вызвала... как же его выковырять оттуда?