VB+Excel

@Juliette58 · Регистрация: 21.02.2010

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

Доброго времени суток!
Возникли вопросы, которые мне очень интересны и очень хочется научиться, возможно что кто то из сидящих здесь поможет.

Вопрос№1.
Есть переменная А в ней хранится число и переменная В - хранится текст(строка)
Эти переменные необходимо поместить в ячейку А2 и В2 в Excel.

Что для этого нужно и работает ли Vb с excel?

Вопрос №2.
Программа закрывается, затем открывается вновь, данные опять храняться в ячейке А и В, но на этот раз их необходимо поместить в ячейки А3 и В3. Как это сделать.

Заранее благодарна за ответы на вопросы.

@Juliette58 · 31.03.2010, 21:57 **[ТС]**

ну для меня теперь вообще шок, на моем компе работает без проблем, на другом выдает ошибку

@gaw · 31.03.2010, 22:04

а знаете, скиньте код

@Juliette58 · 02.04.2010, 21:46 **[ТС]**

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
29
30
31
32
'открыть книгу
If Dir(file_dir) = "" Then
MsgBox "файл не найден"
Exit Sub
End If
Set MyXL = GetObject(file_dir)
MyXL.Application.Visible = False  ' False -- не показываем книгу , True -- показываем
MyXL.Parent.Windows(1).Visible = True
Me.Show
'записать данные
If Dir(file_dir) = "" Then
MsgBox "файл не найден"
Exit Sub
End If
1
If prov(rows_k, collum_k) = False Then
rows_k = rows_k + 1
GoTo 1
End If
Call zap(rows_k, collum_k, strA)
Call zap(rows_k, collum_k + 1, strB)
Call zap(rows_k, collum_k + 2, Date)
Call zap(rows_k, collum_k + 3, Time)
Call zap(rows_k, collum_k + 4, Y1)
'закрыть книгу
If Dir(file_dir) = "" Then
MsgBox "файл не найден"
Exit Sub
End If
MyXL.Save 'сохраняем________________
MyXL.Application.Quit
Set MyXL = Nothing

а сами о записи и проверки я не изменяла - ваши оставила

@gaw · 02.04.2010, 22:21

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
29
30
31
32
33
34
35
Private Sub Command1_Click()
If file_dir = "" Or Dir(file_dir) = "" Then
MsgBox "файл не найден"
Exit Sub
End If
 
Set MyXL = GetObject(file_dir)
MyXL.Application.Visible = False  ' False -- не показываем книгу , True -- показываем
MyXL.Parent.Windows(1).Visible = True
Me.Show
'записать данные
'If Dir(file_dir) = "" Then это уже проверено при открытии
'MsgBox "файл не найден"
'Exit Sub
'End If
1
If prov(rows_k, collum_k) = False Then
rows_k = rows_k + 1
GoTo 1
End If
Call zap(rows_k, collum_k, strA)
Call zap(rows_k, collum_k + 1, strB)
Call zap(rows_k, collum_k + 2, Date)
Call zap(rows_k, collum_k + 3, Time)
Call zap(rows_k, collum_k + 4, Y1)
'закрыть книгу
'If Dir(file_dir) = "" Then
'MsgBox "файл не найден"
'Exit Sub
'End If
MyXL.Save 'сохраняем________________
MyXL.Application.Quit
Set MyXL = Nothing
'а сами о записи и проверки я не
End Sub

@Juliette58 · 05.04.2010, 20:35 **[ТС]**

Большое спасибо

@Juliette58 · 07.04.2010, 23:02 **[ТС]**

опять ошибка

номер 462, вобщем если я второй раз пытаюсь он мне не дает, как исправить это?

@Alex77755 · 08.04.2010, 00:49

Это глюк работы VB с екселем: Не выгружается из памяти Ексел.
Вроде бы всё закрыто, а в диспетчере процессов болтается 1 - 2 лишних экземпляра

@Juliette58 · 08.04.2010, 08:38 **[ТС]**

как это глюк обойти можно?как выгрузить ексел из памяти?

@Alex77755 · 08.04.2010, 08:43

У меня програмно не получилось. Делал вручную Ctpl+Alt+Del в диспетчере задач в процессах завершал работу ексела

@Juliette58 · 08.04.2010, 20:38 **[ТС]**

забавно, это хорошо когда на одном компе, а если он не один? ведь должен же быть способ

@gaw · 08.04.2010, 20:50

Alex77755, а задержать в таймере выгрузку - не поможет, как думаешь (у меня все работает)

@Juliette58 · 08.04.2010, 21:55 **[ТС]**

я может совсем новичок и не понимаю, но если у нас есть возможность открыть эксел сохранять его, может есть тогда возможность открыть диспетчесра и отуда удалить?

@Juliette58 · 12.04.2010, 22:43 **[ТС]**

ну сжальтесь надо мной, помогите!

@gaw · 12.04.2010, 22:58

Juliette58
трудно помочь , если "оно" у меня работает
попробуй "задержать в таймере выгрузку", т.е. код выгрузки запихни в таймер (интервал 1-100)
после выполнения выгрузки выключи таймер
но это только мысли

Добавлено через 52 секунды
Alex77755, вы тут, что думаете ?

@Alex77755 · 12.04.2010, 23:01

У меня сейчас пока нет времени на экперементы. сори

@STRATEG · 13.04.2010, 00:06

Есть вариант УБИТЬ процесс программно EXCEL.EXE,правда есть темная сторона этого замысла,этот процесс может быть открыт не твоей программой а самим пользователем.

Возможно просто остаются ссылки на объекты Excel,это недочет в работе с экселем

@Juliette58 · 20.04.2010, 22:53 **[ТС]**

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

Возможно ли открытие ехе приложения, созданого в вб, по нажатию на кнопку?

объясняю: файл екселя почему то не выгружается, но если прекрытить процесс, то далее все работает,
если я после закрытия файла напишу
For i=1 to 100
End
Next i
я могу добавить строчку чтобы обратно загрузить свой проект?

Добавлено через 8 часов 8 минут
вобщем, могу ли я запустить ехе файл через другой проект

@Juliette58 · 22.04.2010, 21:17 **[ТС]**

Уважаемые, помогите!
я сделала запись и теперь моя программа записывает себе в ексель несколько раз ,сколько нажмешь на кнопку, появилась проблема - проект висит в диспетчере. как его оттуда выкинуть?

@ilimdar · 22.08.2010, 18:06

Как добавить в базу

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
Private Sub Command5_Click()
Dim w As Integer
Set baza = GetObject(App.Path & "\222.xls")
Set bazalist = baza.Worksheets("Лист1")
w = 1
While bazalist.Cells(w, 1) <> ""
w = w + 1
Wend
bazalist.Cells(w, 1) = Text1.Text
bazalist.Cells(w, 2) = Text2.Text
Text1 = ""
Text2 = ""
MsgBox "Данные добавлены"
End Sub
 
Производит поиск
Dim r As Integer
Set baza = GetObject(App.Path & "\222.xls")
Set bazalist = baza.Worksheets("Лист1")
r = 1
While bazalist.Cells(r, 2) <> ""
If Text1.Text = bazalist.Cells(r, 1) Then
Text2.Text = bazalist.Cells(r, 2)
Form3.Show
End If
r = r + 1
Wend

Добавлено через 7 минут
как программу закроешь ничего в процессах храниться не будет.

@Juliette58 · 22.08.2010, 18:37 **[ТС]**

я конечно может ни чего не понимаю, но я не вижу ни одной строчки, где закрывается сама база

Новые блоги и статьи Все статьи Все блоги /
Генератор паролей (вариант №3) Maks 30.10.2026 Финальная версия генератора паролей 1С. Доработка решения в этот раз коснулась только визуальной части, а именно, добавлен реквизит ДопПараметры (тип Булево), который скрывает/ отображает реквизиты:. . .	Магическое мышление и магия, современная наука не отличима от магии (говорит ИИ Джемени) zorxor 30.10.2026 Джемени, расскажи, пожалуйста, что такое магическое мышление, что такое магия, почему современная наука чем-то напоминает магию? Фраза «Любая достаточно развитая технология неотличима от магии». . .	За какое время ИИ может подобрать пароль по хешу (рассказывает Джемени ИИ) zorxor 30.10.2026 Расскажи, Джемени, если известен хэш МД5, например, за сколько ИИ сможет подобрать соответствующий пароль? Искусственный интеллект (ИИ) может подобрать простой или средний по сложности пароль по. . .	Кто убил Suno? Почему наше солнышко погасло? (диалог с ИИ Джемени) zorxor 30.10.2026 Как убивали Suno. Хронология. «Убийство» музыкальной нейросети Suno — это затяжной процесс, в котором технологический хайп стартапа разбился о жесткую реальность судебных исков от гигантов. . .
Генератор паролей (вариант №2) Maks 30.10.2026 Обновленная версия ранее созданной обработки. Добавлены следующие реквизиты типа Булево: - Буквы; - Цифры; - Символы. Изменена логика команды "Сгенерировать" и процедуры "ПриОткрытии":. . .	Генератор паролей (вариант №1) Maks 29.10.2026 Реализация из решения ниже выполнена исключительно по моей инициативе, дабы облегчить себе работу в создании паролей для администрируемых мною сервисов и пользователей. Самым главным критерием для. . .	Установка ChatGPT (Codex) на Windows без использования Microsoft Store Fabien159 28.10.2026 Здравствуйте всем читающим! Опишу процесс установки ChatGPT (Codex) на Windows, если по каким-то причинам у вас не получается устанавить его через Microsoft Store. И так: 1. Скачиваем с. . .	Программное добавление префикса в нумерацию документов Maks 27.10.2026 Реализация из решения ниже выполнена в самописной конфигурации на БСП (помощь начинающему коллеге). Задача: Программно добавить префикс в нумерацию документов. Решение: В модуле объекта. . .

@Juliette58 7 / 7 / 0 Регистрация: 21.02.2010 Сообщений: 107

	VB+Excel 22.03.2010, 18:52. Показов 10494. Ответов 41 Метки нет (Все метки) Доброго времени суток! Возникли вопросы, которые мне очень интересны и очень хочется научиться, возможно что кто то из сидящих здесь поможет. Вопрос№1. Есть переменная А в ней хранится число и переменная В - хранится текст(строка) Эти переменные необходимо поместить в ячейку А2 и В2 в Excel. Что для этого нужно и работает ли Vb с excel? Вопрос №2. Программа закрывается, затем открывается вновь, данные опять храняться в ячейке А и В, но на этот раз их необходимо поместить в ячейки А3 и В3. Как это сделать. Заранее благодарна за ответы на вопросы. 0

@Juliette58 7 / 7 / 0 Регистрация: 21.02.2010 Сообщений: 107
	31.03.2010, 21:57 [ТС]
	ну для меня теперь вообще шок, на моем компе работает без проблем, на другом выдает ошибку 0

@gaw 6644 / 1511 / 169 Регистрация: 09.01.2010 Сообщений: 4,298
	31.03.2010, 22:04
	а знаете, скиньте код 0

@Juliette58 7 / 7 / 0 Регистрация: 21.02.2010 Сообщений: 107
	05.04.2010, 20:35 [ТС]
	Большое спасибо 0

@Juliette58 7 / 7 / 0 Регистрация: 21.02.2010 Сообщений: 107
	07.04.2010, 23:02 [ТС]
	опять ошибка номер 462, вобщем если я второй раз пытаюсь он мне не дает, как исправить это? 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	08.04.2010, 00:49
	Это глюк работы VB с екселем: Не выгружается из памяти Ексел. Вроде бы всё закрыто, а в диспетчере процессов болтается 1 - 2 лишних экземпляра 0

@Juliette58 7 / 7 / 0 Регистрация: 21.02.2010 Сообщений: 107
	08.04.2010, 08:38 [ТС]
	как это глюк обойти можно?как выгрузить ексел из памяти? 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	08.04.2010, 08:43
	У меня програмно не получилось. Делал вручную Ctpl+Alt+Del в диспетчере задач в процессах завершал работу ексела 0

@Juliette58 7 / 7 / 0 Регистрация: 21.02.2010 Сообщений: 107
	08.04.2010, 20:38 [ТС]
	забавно, это хорошо когда на одном компе, а если он не один? ведь должен же быть способ 0

@gaw 6644 / 1511 / 169 Регистрация: 09.01.2010 Сообщений: 4,298
	08.04.2010, 20:50
	Alex77755, а задержать в таймере выгрузку - не поможет, как думаешь (у меня все работает) 0

@Juliette58 7 / 7 / 0 Регистрация: 21.02.2010 Сообщений: 107
	08.04.2010, 21:55 [ТС]
	я может совсем новичок и не понимаю, но если у нас есть возможность открыть эксел сохранять его, может есть тогда возможность открыть диспетчесра и отуда удалить? 0

@Juliette58 7 / 7 / 0 Регистрация: 21.02.2010 Сообщений: 107
	12.04.2010, 22:43 [ТС]
	ну сжальтесь надо мной, помогите! 0

@gaw 6644 / 1511 / 169 Регистрация: 09.01.2010 Сообщений: 4,298
	12.04.2010, 22:58
	Juliette58 трудно помочь , если "оно" у меня работает попробуй "задержать в таймере выгрузку", т.е. код выгрузки запихни в таймер (интервал 1-100) после выполнения выгрузки выключи таймер но это только мысли Добавлено через 52 секунды Alex77755, вы тут, что думаете ? 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	12.04.2010, 23:01
	У меня сейчас пока нет времени на экперементы. сори 0

@STRATEG 1174 / 480 / 83 Регистрация: 04.03.2010 Сообщений: 1,019
	13.04.2010, 00:06
	Есть вариант УБИТЬ процесс программно EXCEL.EXE,правда есть темная сторона этого замысла,этот процесс может быть открыт не твоей программой а самим пользователем. Возможно просто остаются ссылки на объекты Excel,это недочет в работе с экселем 0

@Juliette58 7 / 7 / 0 Регистрация: 21.02.2010 Сообщений: 107
	20.04.2010, 22:53 [ТС]
	у меня наверное уже самая бредовая идея возникла, но чтоб её реализовать мне необходим ответ на вопрос. Возможно ли открытие ехе приложения, созданого в вб, по нажатию на кнопку? объясняю: файл екселя почему то не выгружается, но если прекрытить процесс, то далее все работает, если я после закрытия файла напишу For i=1 to 100 End Next i я могу добавить строчку чтобы обратно загрузить свой проект? Добавлено через 8 часов 8 минут вобщем, могу ли я запустить ехе файл через другой проект 0

@Juliette58 7 / 7 / 0 Регистрация: 21.02.2010 Сообщений: 107
	22.04.2010, 21:17 [ТС]
	Уважаемые, помогите! я сделала запись и теперь моя программа записывает себе в ексель несколько раз ,сколько нажмешь на кнопку, появилась проблема - проект висит в диспетчере. как его оттуда выкинуть? 0

@Juliette58 7 / 7 / 0 Регистрация: 21.02.2010 Сообщений: 107
	22.08.2010, 18:37 [ТС]
	я конечно может ни чего не понимаю, но я не вижу ни одной строчки, где закрывается сама база 0