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

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

Новые блоги и статьи Все статьи Все блоги /
Установка ChatGPT (Codex) на Windows без использования Microsoft Store Fabien159 28.10.2026 Здравствуйте всем читающим! Опишу процесс установки ChatGPT (Codex) на Windows, если по каким-то причинам у вас не получается устанавить его через Microsoft Store. И так: 1. Скачиваем с. . .	Программное добавление префикса в нумерацию документов Maks 27.10.2026 Реализация из решения ниже выполнена в самописной конфигурации на БСП (помощь начинающему коллеге). Задача: Программно добавить префикс в нумерацию документов. Решение: В модуле объекта. . .	После закрытия оутлука продолжает висеть процесс в диспетчере задач Maks 27.10.2026 С недавнего времени в продакшене возникла проблема: при закрытии оутлука в диспетчере задач продолжал висеть процесс outlook. exe. Проблема возникла после установки MS Office 2021 LTSC на машинах, под. . .	Baragoz - DPS/HPS бот для WoW 3.3.5a, многоязычный AmbA 26.10.2026 Хотите ещё ботов? У меня есть один! А я пока отдохну от него. https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=12062&stc=1&d=1793007952 Инструкция внутри. https:/ / youtu. be/ VpfFZSUDGnQ. . .
Особенности gif сгенерированных в Си russiannick 21.10.2026 Рассмотрим генерацию gif файлов, которые в Си имеют свои особенности. Gif представляет собой графический формат популярный в интернете. Посмотрим на палитру. Gif файл сгенерированный в си отличается. . .	FPS контроллер с анимированными Y-Bot и 3D-звуком miniaudio (Box3D, Recast, BehaviorTree.CPP, ozz-animation, ImGui, OpenGL и SDL3) 8Observer8 18.10.2026 Содержание блога \| English Version Полное мультиплатформенное руководство по стартовому проекту с FPS-контроллером игрока, анимированными роботами Y-Bot с 4-слойным блендингом, 3D-физикой Box3D,. . .	Локальный http сервер Argus19 17.10.2026 Локальный http сервер На работе, на двух локальных компьютерах круглосуточно работают программы опроса приборов с записью в книги Excel,которые раз в сутки записываются на сервер компании. Т. к. . . .	Копировать Windows на новый диск на UEFI damix 17.10.2026 https:/ / uriesk. wordpress. com/ 2016/ 11/ 01/ move-window-10-to-ssd-on-a-uefi-dualboot-system-with-basic-linux-tools/ TL DR Вставляем диск, а старый подключаем через переходник, грузимся с лайва. . .

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

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