|
Как закрыть Excel???
|
|||
---|---|---|---|
#18+
AlexJuice - сделал всё в точности, как рекомендовано Dim xl As Excel.Application ' ======================== Private Sub .... Set xl = New Excel.Application xl.Workbooks.Open (nameF) xl.Worksheets.Select ("Таблица") 'Заполнение ТАБЛИЦЫ For i = 1 To kol1 For j = 1 To kol2 Range(nomerS).Value = <инфо> 'и т.д. заполняется таблица по колонкам Next 'и т.д. заполняется таблица по строкам с аналогичным кодом Next xl.ActiveWorkbook.Save xl.Quit Set xl = Nothing End Sub И всё с тем же результатом, как описано выше. Всё из-за этой вонючей Range! Нет ни одной строчки Set EXL = CreateObject("Excel.Application") ' запускаем Excel и никаких упоминаний о CreateObject (проверено поиском по всему проекту). И слово <Excel> упоминается только 2 раза - в сточке dim... И set... ПРИЧЁМ! - всё это выше приведённое, перенесённое в новый проект (вот только что осенило проверить), где "больше нет никто", а только вот это самое, даёт аналогичный результат... Чего бы это означало??? Я то думал, что где-то что-то серьёзно делаю не так, а оказывается, всё, как рекомендовано. Чего ещё нажать-то? Люди! Помоги-и-и-ите!!! ... |
|||
:
Нравится:
Не нравится:
|
|||
31.12.2003, 05:39 |
|
Как закрыть Excel???
|
|||
---|---|---|---|
#18+
А что такое nomerS и как оно соотносится с kol1 & kol2? (Я не вижу, где здесь задается их значение) И какого типа эти переменные? ... |
|||
:
Нравится:
Не нравится:
|
|||
01.01.2004, 11:11 |
|
Как закрыть Excel???
|
|||
---|---|---|---|
#18+
авторxl.Worksheets.Select ("Таблица") Я же писАл: xl.Worksheets("Таблица").Activate ИМХО в Ёкселе происходит ошибка, которую VB не кажет (On Error есть?) Цикл по ячейкам можно сделать так: Код: plaintext 1. 2. 3. 4. 5. 6.
... |
|||
:
Нравится:
Не нравится:
|
|||
01.01.2004, 12:00 |
|
Как закрыть Excel???
|
|||
---|---|---|---|
#18+
IMHO здеся какая-то глюкота с обьектами те Range создает что-то свое сокровенное, а не работает с xl, который Dim xl As New Excel.Application я бы попробовал Dim ar As Excel.Range --дальше примерно так Set ar = что-то про Application...Range("A1:Z1") --и в конце set ar.Applicatiom=Nothing Удачи ... |
|||
:
Нравится:
Не нравится:
|
|||
09.01.2004, 12:07 |
|
Как закрыть Excel???
|
|||
---|---|---|---|
#18+
за 16 лет никто не ответил ... Все просто. У меня работает так (Excel закрывается, в диспетчере задач его нет): Set xlSheet = Nothing xlApp.Quit Set xlApp = Nothing В программе используется Range ... |
|||
:
Нравится:
Не нравится:
|
|||
15.02.2020, 21:25 |
|
Как закрыть Excel???
|
|||
---|---|---|---|
#18+
alexsun Все просто 1. Так обращаться нельзя: Код: vbnet 1.
правильно Код: vbnet 1.
а еще проще вообще ничего не выделять, ибо это лишнее. Изначально у автора так и было: Код: vbnet 1. 2.
2. VB не знает что такое Range и поэтому надо явно указывать откуда его брать: Код: vbnet 1.
а это мне изначально непонятно: Код: vbnet 1.
что откуда берется и зачем там Mid, особенно учитывая тот факт, что kolStrok явно числовая переменная, т.к. она используется как счетчик. ... |
|||
:
Нравится:
Не нравится:
|
|||
16.02.2020, 12:25 |
|
|
start [/forum/topic.php?fid=60&msg=32367650&tid=2154832]: |
0ms |
get settings: |
10ms |
get forum list: |
15ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
42ms |
get topic data: |
11ms |
get forum data: |
3ms |
get page messages: |
44ms |
get tp. blocked users: |
1ms |
others: | 275ms |
total: | 409ms |
0 / 0 |