Excel

[sashar2]

Давно меня тут не было, да и VB забрасывал. Но все же пришлось вернуться. У меня есть следующий код:

Код: Выделить всё

Dim oXL As Object
Dim oBook As Object
Dim oSheet As Object
Set oXL = CreateObject("Excel.application")
Set oBook = oXL.Workbooks.Add
Set oSheet = oBook.Worksheets.Item(1)
Dim n As Long
Dim str As String

str = "="
For n = 1 To Len(Text7.Text)
    If Mid(Text7.Text, n, 1) = "x" Then
        str = str + "b1"
    Else
        If Mid(Text7.Text, n, 1) = "y" Then
            str = str + "c1"
        Else
            str = str + Mid(Text7.Text, n, 1)
        End If
    End If
Next
oSheet.Cells(1, 1) = str

В Text7 содержится формула, получается в переменной str вполне нормальная вещь, например, "=b1*b1+c1*c1". Но ошибочка 1004 (Application-defined or object-defined error) выходит после выполнения последней строки, причем, если записать тоже самое в ручную, то все нормально... В чем проблема? Мне бы просто нужно загонять програмно формулу в ячейку и потом получать от туда результат.

И после этого кода, когда я открываю excel У меня новая книга появляется, что надо написать, чтобы удалить новую книгу?

[GSerg]

В чем проблема?

В том, что надо использовать свойство .formula, наверное?

[sashar2]

В чем проблема?

В том, что надо использовать свойство .formula, наверное?

Пробовал - не работает...

[Kostyan]

Так правильно, и немного компактнее:

Код: Выделить всё

Dim n As Long
Dim str As String
Set oXL = New Excel.Application
oXL.SheetsInNewWorkbook = 1
oXL.Workbooks.Add

str = "="
For n = 1 To Len(Text7.Text)
    If Mid(Text7.Text, n, 1) = "x" Then
        str = str + "b1"
    Else
        If Mid(Text7.Text, n, 1) = "y" Then
            str = str + "c1"
        Else
            str = str + Mid(Text7.Text, n, 1)
        End If
    End If
Next

oXL.Cells(1, 1) = str
oXL.Visible = True
Set oXL = Nothing

[GSerg]

Так хуже как раз.
Да ещё и параметр Excel сбивается и не восстанавливается.

[Kostyan]

Честно сказать про параметр слышу впервые, можно по подробнее?
А в остальном чем хуже?

P.S. Саму замену символов тоже хорошо бы скомпоновать:

Код: Выделить всё

str = Text7.Text
str = Replace$(str, "x", "b1")
str = Replace$(str, "y", "c1")
str = "=" & str

[GSerg]

Параметр SheetsInNewWorkbook, который ставится в 1 и остаётся таким насовсем.
В остальном хуже тем, что обращение к ActiveSheet, а не к конкретной переменной листа, хуже. Хотя бы тем, что ActiveSheet возьмёт и неожиданно сменится.

[sashar2]

Проблема была в том, что в конце ставился лишний символ, который я midом отсек, всем спасибо. Символ конца строки или что-то вроде того...

[Kostyan]

Параметр SheetsInNewWorkbook, который ставится в 1 и остаётся таким насовсем.

Да, есть косячок Мотаю на ус.

В остальном хуже тем, что обращение к ActiveSheet, а не к конкретной переменной листа, хуже. Хотя бы тем, что ActiveSheet возьмёт и неожиданно сменится.

Наврятли ActiveSheet сменится, хотябы потому что сменить её может только твоя программа, посколько окно экселя пока не видимо.

[GSerg]

Труднее отслеживать (тебе же). Навскидку приведёшь полный список событий, которые меняют активный лист?

[Kostyan]

GSerg
Только наверное не событие а метод?
Навскидку: oXL.Sheets.Item(Номер листа).Select

[GSerg]

А ещё добавление нового листа (он автоматически становится активным).
А ещё копирование листа (копия автоматически становится активной).
А ещё создание новой книги (она автоматически становится активной).

И мне совершенно не хочется думать, какие ещё события могут привести к активации другого листа. У меня просто ссылка на нужный есть.

[Kostyan]

Хорошо, сдаюсь
Конечно лучше сразу указать нужный лист, твоя взяла.