Исправить ошибки в коде

@ara_gorn · Регистрация: 07.06.2011

Студворк — интернет-сервис помощи студентам

подскажите плиз, почему работает так

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub Command1_Click()
    Dim objXL As Object
    Dim objExlBook As Object
    Dim lSecur As Long
    Dim ind As Integer
    Set objXL = CreateObject("Excel.Application")
    'Set objExlBook = objXL.ActiveWorkbook
    
    objXL.Visible = True
    lSecur = objXL.AutomationSecurity
    objXL.AutomationSecurity = 1
    objXL.Workbooks.Open "C:\Documents and Settings\biryukovr\Мои документы\запуск базы.xls", , , , "r0m2n@1980"
    objXL.AutomationSecurity = lSecur
    objXL.ActiveWorkbook.Worksheets(1).Cells(2, 2) = "opa"
    If objXL.ActiveWorkbook.Worksheets(1).Cells(1, 1) = "" Then
    Text1.Text = "ind"
    Else
        Text1.Text = "opa"
    End If
    Set objXL = Nothing
 
End Sub

и не работает так

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Private Sub Command1_Click()
    Dim objXL As Object
    Dim objExlBook As Object
    Dim lSecur As Long
    Dim ind As Integer
    Set objXL = CreateObject("Excel.Application")
    'Set objExlBook = objXL.ActiveWorkbook
    
    objXL.Visible = True
    lSecur = objXL.AutomationSecurity
    objXL.AutomationSecurity = 1
    objXL.Workbooks.Open "C:\Documents and Settings\biryukovr\Мои документы\запуск базы.xls", , , , "r0m2n@1980"
    objXL.AutomationSecurity = lSecur
    objXL.ActiveWorkbook.Worksheets(1).Cells(2, 2) = "opa"
    Call exelMod.Kol_voStrokSub(1, ind)
end sub
' в модуле
Public Sub Kol_voStrokSub(ByVal nomer As Integer, ByRef i As Integer) 'где nomer- № листа, i -получаемое кол-во строк
    Dim z As String
    i = 1
    Do
        If (objXL.ActiveWorkbook.Worksheets(nomer).Cells(i, 1) = "") And (objXL.ActiveWorkbook.Worksheets(nomer).Cells(i + 1, 1) = "") And (objXL.ActiveWorkbook.Worksheets(nomer).Cells(i + 2, 1) = "") Then 'на этой строке выдает ошибку
            i = i - 1
            Exit Do
        End If
        i = i + 1
    Loop
End Sub

Добавлено через 1 час 45 минут
сначала думал что нужно в процедуре нужно дописать

Visual Basic
1
2
        Dim objXL As Object
    Set objXL = CreateObject("Excel.Application")

то есть процедура должна выглядеть так

Visual Basic
1
2
3
4
5
Public Sub Kol_voStrokSub(ByVal nomer As Integer, ByRef i As Integer) 'где nomer- № листа, i '-получаемое кол-во строк
    Dim objXL As Object
    Set objXL = CreateObject("Excel.Application")
objXL.ActiveWorkbook.Worksheets(nomer).Cells(i, 1) = "ghbvth"
End Sub

но на строке objXL.ActiveWorkbook.Worksheets(nomer).C ells(i, 1) = "ghbvth" все равно вылетает ошибка

@The_Prist · 22.06.2011, 21:34

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub Command1_Click()
    Dim objXL As Object
    Dim objExlBook As Object
    Dim lSecur As Long
    Dim ind As Integer
    Set objXL = CreateObject("Excel.Application")
 
    objXL.Visible = True
    lSecur = objXL.AutomationSecurity
    objXL.AutomationSecurity = 1
    Set objExlBook = objXL.Workbooks.Open("C:\Documents and Settings\biryukovr\Мои документы\запуск базы.xls", , , , "r0m2n@1980")
 
    objExlBook.Worksheets(1).Cells(2, 2) = "opa"
    If objExlBook.Worksheets(1).Cells(1, 1) = "" Then
        Text1.Text = "ind"
    Else
        Text1.Text = "opa"
    End If
    objXL.AutomationSecurity = lSecur
    Set objExlBook = Nothing: Set objXL = Nothing
End Sub

Правда, не совсем понятно откуда Вы все это вызываете...

Во втором коде совершенно правильно выдает ошибку. Что объект не найден, верно? У Вас ведь переменная objXL не является глобальной(т.е. переменной уровня проекта). И в Kol_voStrokSub Вы эту переменную тоже не передаете. Значит работать с ней в этой процедуре не можете.

Почитайте для общего образования статью про объявление переменных. Там я расписал все типы и где и как применять.

@ara_gorn · 22.06.2011, 22:41 **[ТС]**

прошу прощения, но чуть ниже я написал немного измененую процедуру (в моем же сообщении) если вдруг произошла накладка и вы не увидели измененое сообщение, то вот она опять, там как раз учтены переменные, но ошибка все равно вылетает

Visual Basic
1
2
3
4
5
6
Public Sub Kol_voStrokSub(ByVal nomer As Integer, ByRef i As Integer) 'где nomer- № листа, i '-получаемое кол-во строк
    Dim objXL As Object
    Set objXL = CreateObject("Excel.Application")
i=1
objXL.ActiveWorkbook.Worksheets(nomer).Cells(i, 1) = "ghbvth"
End Sub

@The_Prist · 22.06.2011, 22:45

А Вы явно не читали мое сообщение. Вместо этого Вы прочитали свое. У Вас НИЧЕГО не учтено.

У Вас ведь переменная objXL не является глобальной(т.е. переменной уровня проекта). И в Kol_voStrokSub Вы эту переменную тоже не передаете. Значит работать с ней в этой процедуре не можете.

Если бы Вы прочитали статью в ссылке - то поняли бы свою ошибку. Но Вам некогда или лень читать то, что советуют другие. Значит мне больше нечего Вам сказать.

@ara_gorn · 22.06.2011, 23:32 **[ТС]**

Сообщение от The_Prist

А Вы явно не читали мое сообщение. Вместо этого Вы прочитали свое. У Вас НИЧЕГО не учтено.

Если бы Вы прочитали статью в ссылке - то поняли бы свою ошибку. Но Вам некогда или лень читать то, что советуют другие. Значит мне больше нечего Вам сказать.

зато я ее объявил в процедуре, (простите мне не лень, просто я уже читал про глобальные переменные) и в коде я тоже писал в модуле Public objXL As Object, но это тоже уже не главное, с этим я в конце концов разобрался

эту переменную тоже не передаете

спасибо за мысль, а то в голове сумбур...
теперь вопрос несколько иной

почему не работает

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
    Dim objXL As Object
    Dim objExlBook As Object
    Dim lSecur As Long
    Dim ind As Integer
    Set objXL = CreateObject("Excel.Application")
    Set objExlBook = objXL.ActiveWorkbook
        objXL.Visible = True
    lSecur = objXL.AutomationSecurity
    objXL.AutomationSecurity = 1
    objXL.workbooks.Open "C:\Documents and Settings\admin\Мои документы\масив.xls"
    objXL.AutomationSecurity = lSecur
    objExlBook.Worksheets(1).Cells(2, 2) = "uopa" ' здесь вылетает ошибка (что то про set)
    'objXL.ActiveWorkbook.Worksheets(1).Cells(2, 2) = "uopa"

что не правильно в строке Set objExlBook = objXL.ActiveWorkbook... или вообще что то не правильно... ?

@Gibboustooth · 23.06.2011, 20:01

Сообщение от ara_gorn

что не правильно в строке Set objExlBook = objXL.ActiveWorkbook... или вообще что то не правильно... ?

Созданное с помощью метода CreateObject() приложение эксель не содержит ни одной книги. Поэтому и выдается ошибка. Верно:

Visual Basic
1
Set objExlBook = objXL.workbooks.Add

@ara_gorn · 23.06.2011, 20:21 **[ТС]**

спасибо

Новые блоги и статьи Все статьи Все блоги /
Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка SDL3 и Box2D из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»

@ara_gorn 2 / 2 / 1 Регистрация: 07.06.2011 Сообщений: 95
	23.06.2011, 20:21 [ТС]
	спасибо 0