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 **[ТС]**

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

Новые блоги и статьи Все статьи Все блоги /
Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" Adler 06.10.2026 Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .

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

	VB+Excel 22.03.2010, 18:52. Показов 10462. Ответов 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