Период между сообщениями больше года.
Читали тему (1): Анонимы (1)
Читали форум (1): Анонимы (1)
|
|
|
Как закрыть 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&tid=2154832&gotonew=1]: |
0ms |
get settings: |
0ms |
get forum list: |
6ms |
check forum access: |
0ms |
check topic access: |
0ms |
track hit: |
27ms |
get topic data: |
9ms |
get first new msg: |
2ms |
get forum data: |
1ms |
get page messages: |
17ms |
update_topic_read_status (2154832): 16.02.2020 12:25:28: |
0ms |
get tp. blocked users: |
1ms |
get online users: |
62ms |
check new: |
1ms |
| others: | 79ms |
| total: | 205ms |
| 0 / 0 |
