Как работать с файлом Excel, читать, записывать данные

@30rus · Регистрация: 15.06.2012

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

Здравствуйте. Вот, в общем, решил поинтересоваться Вашими советами насчёт моей проблемы.
Я имею некую «Базу данных» в Excel, т.е. Калькуляция блюд. В калькуляцию входят Название блюда и что нужно для него приготовления(ингредиенты), сколько чего надо гр\кг, стоимость и суммы, в общем, большая таблица.
А так же я имею похожую таблицу калькуляции, которую постоянно приходится заполнять вручную. Немного видоизменённая таблица, но большинство данных надо брать с прежней калькуляции ( названия блюд, ингредиенты, масса, стоимость и т.п.).

Так вот я бы хотел реализовать это в более автоматизированном виде. Чтобы не заоплнять все вручную, а на компьютере. Как лучше бы это сделать?

Думаю, через Microsoft Visual Studio... Сделать меню, справочники и все такое прочее. Перетащить калькуляцию в СУБД если потребуется ( по-моему можно и так вытаскивать ?). Сделать более комфортный интерфейс для ввода нужной информации или выбора из готовых уже столбцов. Но как мне реализовать коннект сделанного мной интерфейса, с Excel? Т.е Я ввожу в свой так сказать интерфейс информацию или же выбираю из своих баз данных, она должна вписывается в файл Excel в различные указанные графы (наименование, кол-во, виды ингредиентов, стоимости и тп.) И все это сохранять отдельные готовые бланки. Предварительно с интерфейса заполнять их, а все остальные расчеты проведутся в Excel автоматом.

Вот ка кто так. Простите если запутанно написал и грамотей с меня не очень.))) Жду вопросов и ответов. Надеюсь, дадите понять, в каком направлении мне идти. Можно даже мануалы, какие либо)

@30rus · 21.06.2012, 17:00 **[ТС]**

Спасибо. Хм, а обязателен ли вообще список? Допустим если знать все самому что может совпасть. Соответственно выбираем то, что может совпасть с каким либо блюдом, добавляется в пустую колонку отсутствующий ингридиент и в нужное место отправляется масса ингридиента. М?

Добавлено через 28 минут
хм... Что-то у меня в ВБ2010 не подключается к базам таким способом,

VB.NET
1
2
3
4
5
6
7
       
    Dim Path As String = "C:\Users\Сергей\Desktop\мои разработки\123\Кухня-Расчет2\Кухня-Расчет\БД.xlsx"
    Dim File_Name As String = "БД.xlsx"
    Dim fileOP17 As String = "ОП17.xlsx"
    Dim Path_to_OP17 As String = "C:\Users\Сергей\Desktop\мои разработки\123\Кухня-Расчет2\Кухня-Расчет\ОП17.xlsx"
        Exc.workbooks.open(Path_to_OP17 & fileOP17) ' открываем файл
        Exc.workbooks.open(Path & File_Name)

а если изменить то на половину пашет. Выбор блюд не работает что-то. А в файл ексель дата и номер документа вводится))
Вот что говорит при таком открытии:

VB.NET
1
2
   Exc.workbooks.open(Path_to_OP17 & fileOP17) ' открываем файл
              Exc.workbooks.open(Path & File_Name)

При выгрузки файла:
Не удалось найти "ОП17.xlsx". Проверьте правильность ввода имени и расположения файла.

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

Добавлено через 25 минут

765 просмотров, тема популярна

@kOS_77 · 21.06.2012, 17:05

Сообщение от 30rus

Спасибо. Хм, а обязателен ли вообще список? Допустим если знать все самому что может совпасть. Соответственно выбираем то, что может совпасть с каким либо блюдом, добавляется в пустую колонку отсутствующий ингридиент и в нужное место отправляется масса ингридиента. М?

Добавлено через 28 минут
хм... Что-то у меня в ВБ2010 не подключается к базам таким способом,

VB.NET
1
2
3
4
5
6
7
       
    Dim Path As String = "C:\Users\Сергей\Desktop\мои разработки\123\Кухня-Расчет2\Кухня-Расчет\БД.xlsx"
    Dim File_Name As String = "БД.xlsx"
    Dim fileOP17 As String = "ОП17.xlsx"
    Dim Path_to_OP17 As String = "C:\Users\Сергей\Desktop\мои разработки\123\Кухня-Расчет2\Кухня-Расчет\ОП17.xlsx"
        Exc.workbooks.open(Path_to_OP17 & fileOP17) ' открываем файл
        Exc.workbooks.open(Path & File_Name)

а если изменить то на половину пашет. Выбор блюд не работает что-то. А в файл ексель дата и номер документа вводится))

Смотрите путь до файла, возможно у вас "С:" на русском языке написана. Скопируй путь из свойств самого файла.

Вот что говорит при таком открытии:

VB.NET
1
2
   Exc.workbooks.open(Path_to_OP17 & fileOP17) ' открываем файл
              Exc.workbooks.open(Path & File_Name)

При выгрузки файла:
Не удалось найти "ОП17.xlsx". Проверьте правильность ввода имени и расположения файла.

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

Тут все доступно описано, комментарии излишни, ищите проблему в пути до файла.

Добавлено через 2 минуты
Не, ну правильно, в строке Path должен быть только путь, а вы туда и название файла дописали.

VB.NET
1
2
3
4
5
6
7
8
Dim Path As String = "C:\Users\Сергей\Desktop\мои разработки\123\Кухня-Расчет2\Кухня-Расчет\БД.xlsx"
'Из этой строки уберите БД.xlsx
    Dim File_Name As String = "БД.xlsx"
    Dim fileOP17 As String = "ОП17.xlsx"
    Dim Path_to_OP17 As String = "C:\Users\Сергей\Desktop\мои разработки\123\Кухня-Расчет2\Кухня-Расчет\ОП17.xlsx"
'Из этой тоже
        Exc.workbooks.open(Path_to_OP17 & fileOP17) ' открываем файл
        Exc.workbooks.open(Path & File_Name)

@30rus · 21.06.2012, 17:09 **[ТС]**

kOS_77, Я только что писал вам, нашел свою ошибку извиняюсь

Добавлено через 54 секунды

смешно до чего доводит невнимательность

Добавлено через 2 минуты
Спасибо большое, теперь достаточно разобрался

@30rus · 22.06.2012, 16:15 **[ТС]**

kOS_77, Здравствуйте, появился такой вот вопрос: Возможно ли сделать авто заполнение пустых ячеик в Excel? т.е. прочерки т.к. заставляют их проставлять... Вот я и подумал, может возможно как то сделать автоматическое выставление прочерков.
П.С. скрин

Как работать с файлом Excel, читать, записывать данные

Памирыч · 22.06.2012, 16:51

Комментарий модератора

30rus, Работа с Excel предусматривает различные манипуляции с книгой.
Поэтому в этой теме уже свалка. На каждый новый вопрос создавайте по теме.

@30rus · 22.06.2012, 16:54 **[ТС]**

Памирыч, ок

@kOS_77 · 22.06.2012, 17:06

Конечно можно, в конце процедуры кнопки прямо перед End Sub вставляете вот этот код:

VB.NET
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
36
37
38
39
40
41
42
43
44
45
 For i = 1 To 8
            If Exc.workbooks("ОП17.xlsx").sheets(1).range("B" & i + 27).value = "" Then
                Exc.workbooks("ОП17.xlsx").sheets(1).range("B" & i + 27).value = "---"
            End If
            If Exc.workbooks("ОП17.xlsx").sheets(1).range("E" & i + 27).value = "" Then
                Exc.workbooks("ОП17.xlsx").sheets(1).range("E" & i + 27).value = "---"
            End If
            If Exc.workbooks("ОП17.xlsx").sheets(1).range("P" & i + 27).value = "" Then
                Exc.workbooks("ОП17.xlsx").sheets(1).range("P" & i + 27).value = "---"
            End If
            If Exc.workbooks("ОП17.xlsx").sheets(1).range("S" & i + 27).value = "" Then
                Exc.workbooks("ОП17.xlsx").sheets(1).range("S" & i + 27).value = "---"
            End If
            If Exc.workbooks("ОП17.xlsx").sheets(1).range("AH" & i + 27).value = "" Then
                Exc.workbooks("ОП17.xlsx").sheets(1).range("AH" & i + 27).value = "---"
            End If
            If Exc.workbooks("ОП17.xlsx").sheets(1).range("AK" & i + 27).value = "" Then
                Exc.workbooks("ОП17.xlsx").sheets(1).range("AK" & i + 27).value = "---"
            End If
            If Exc.workbooks("ОП17.xlsx").sheets(1).range("AT" & i + 27).value = "" Then
                Exc.workbooks("ОП17.xlsx").sheets(1).range("AT" & i + 27).value = "---"
            End If
            If Exc.workbooks("ОП17.xlsx").sheets(1).range("BB" & i + 27).value = "" Then
                Exc.workbooks("ОП17.xlsx").sheets(1).range("BB" & i + 27).value = "---"
            End If
            If Exc.workbooks("ОП17.xlsx").sheets(1).range("BJ" & i + 27).value = "" Then
                Exc.workbooks("ОП17.xlsx").sheets(1).range("BJ" & i + 27).value = "---"
            End If
            If Exc.workbooks("ОП17.xlsx").sheets(1).range("BR" & i + 27).value = "" Then
                Exc.workbooks("ОП17.xlsx").sheets(1).range("BR" & i + 27).value = "---"
            End If
            If Exc.workbooks("ОП17.xlsx").sheets(1).range("BZ" & i + 27).value = "" Then
                Exc.workbooks("ОП17.xlsx").sheets(1).range("BZ" & i + 27).value = "---"
            End If
            If Exc.workbooks("ОП17.xlsx").sheets(1).range("CH" & i + 27).value = "" Then
                Exc.workbooks("ОП17.xlsx").sheets(1).range("CH" & i + 27).value = "---"
            End If
            If Exc.workbooks("ОП17.xlsx").sheets(1).range("CP" & i + 27).value = "" Then
                Exc.workbooks("ОП17.xlsx").sheets(1).range("CP" & i + 27).value = "---"
            End If
            If Exc.workbooks("ОП17.xlsx").sheets(1).range("BB" & i + 27).value = "" Then
                Exc.workbooks("ОП17.xlsx").sheets(1).range("BB" & i + 27).value = "---"
            End If
 
        Next

Извиняюсь, чуть по другому код изменил. Только у тебя там проблемы будут с формулами... вообщем сам увидишь...

@30rus · 22.06.2012, 17:16 **[ТС]**

kOS_77, Спасибо огромное.

посмотрю, разберусь.

@Razor64 · 10.07.2012, 18:06

Сообщение от kOS_77

Вот полный пример работы с эксель, только перед этим вам необходимо подключить библиотеку эксель, вверху нажимаем Проект\Добавить ссылку\COM\Microsoft office 14 object library

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Public Class Form1
 
    Dim Exc As Object = CreateObject("Excel.Application")
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        Exc.workbooks.open("C:\Users\Константин\Desktop\БД.xlsx") 'Открываем книгу эксель по указанному адресу
 
        Exc.visible = True 'Видимость книги Эксель - False - Невидима и выполняется все в срытном режиме
 
        Exc.sheets(1).activate() 'Активируем первый лист в книге (Если необходимо)
 
        Label1.Text = Exc.sheets(1).range("A1").value ' Присваиваем  Label1 Значение из ячейки
        Label2.Text = Exc.sheets(1).range("A2").value ' Присваиваем  Label2 Значение из ячейки
 
        'Exc - объект эксель: sheets(1) - лист в книге : .range("A1") - ячейка
    End Sub
End Class

Начните что то делать, а мы подскажем, подправим, расскажем...

А как сделать запись нужного текста в excel, в нужную ячейку?

@ZuMiks · 10.07.2012, 20:20

VB.NET
1
Exc.sheets(1).range("A1").value = TextBox1.text

@Razor64 · 11.07.2012, 19:03

Сообщение от ZuMiks

VB.NET
1
Exc.sheets(1).range("A1").value = TextBox1.text

Большое спасибо, ОТЛИЧНО!!!

Добавлено через 1 час 32 минуты

Сообщение от ZuMiks

VB.NET
1
Exc.sheets(1).range("A1").value = TextBox1.text

Вопрос, нужно чтобы производился поиск по таблице excel и при нахождении заданной информации выполнялось нужное мне действие...

@kOS_77 · 11.07.2012, 21:38

Поиск по столбцу А

VB.NET
1
2
3
4
5
6
7
8
9
Dim Ячейка As Integer = 1
 
Do Until .Range("A" & Ячейка).Value Is Nothing
   If Exc.Range("A" & Ячейка).Value Is Nothing  Then MsgBox ("НЕ НАЙДЕНО !")                
   If Exc.Range("A" & Ячейка).Value = "Стоп" Then MsgBox ("НАШЕЛ !")
 
   Ячейка += 1
 
 Loop

Вместо "Стоп" можете подставить к примеру TextBox1.Text и он будет искать текст из текстбокса.

Новые блоги и статьи Все статьи Все блоги /
Особенности 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 Вставляем диск, а старый подключаем через переходник, грузимся с лайва. . .
ИИ не может найти нужный язык в списке 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 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .

@30rus 0 / 0 / 0 Регистрация: 15.06.2012 Сообщений: 36

	Как работать с файлом Excel, читать, записывать данные 15.06.2012, 19:07. Показов 26776. Ответов 71 Метки нет (Все метки) Здравствуйте. Вот, в общем, решил поинтересоваться Вашими советами насчёт моей проблемы. Я имею некую «Базу данных» в Excel, т.е. Калькуляция блюд. В калькуляцию входят Название блюда и что нужно для него приготовления(ингредиенты), сколько чего надо гр\кг, стоимость и суммы, в общем, большая таблица. А так же я имею похожую таблицу калькуляции, которую постоянно приходится заполнять вручную. Немного видоизменённая таблица, но большинство данных надо брать с прежней калькуляции ( названия блюд, ингредиенты, масса, стоимость и т.п.). Так вот я бы хотел реализовать это в более автоматизированном виде. Чтобы не заоплнять все вручную, а на компьютере. Как лучше бы это сделать? Думаю, через Microsoft Visual Studio... Сделать меню, справочники и все такое прочее. Перетащить калькуляцию в СУБД если потребуется ( по-моему можно и так вытаскивать ?). Сделать более комфортный интерфейс для ввода нужной информации или выбора из готовых уже столбцов. Но как мне реализовать коннект сделанного мной интерфейса, с Excel? Т.е Я ввожу в свой так сказать интерфейс информацию или же выбираю из своих баз данных, она должна вписывается в файл Excel в различные указанные графы (наименование, кол-во, виды ингредиентов, стоимости и тп.) И все это сохранять отдельные готовые бланки. Предварительно с интерфейса заполнять их, а все остальные расчеты проведутся в Excel автоматом. Вот ка кто так. Простите если запутанно написал и грамотей с меня не очень.))) Жду вопросов и ответов. Надеюсь, дадите понять, в каком направлении мне идти. Можно даже мануалы, какие либо) 0

@30rus 0 / 0 / 0 Регистрация: 15.06.2012 Сообщений: 36
	21.06.2012, 17:09 [ТС]
	kOS_77, Я только что писал вам, нашел свою ошибку извиняюсь Добавлено через 54 секунды смешно до чего доводит невнимательность Добавлено через 2 минуты Спасибо большое, теперь достаточно разобрался 0

@30rus 0 / 0 / 0 Регистрация: 15.06.2012 Сообщений: 36
	22.06.2012, 16:15 [ТС]
	kOS_77, Здравствуйте, появился такой вот вопрос: Возможно ли сделать авто заполнение пустых ячеик в Excel? т.е. прочерки т.к. заставляют их проставлять... Вот я и подумал, может возможно как то сделать автоматическое выставление прочерков. П.С. скрин 0

@30rus 0 / 0 / 0 Регистрация: 15.06.2012 Сообщений: 36
	22.06.2012, 16:54 [ТС]
	Памирыч, ок 0

@30rus 0 / 0 / 0 Регистрация: 15.06.2012 Сообщений: 36
	22.06.2012, 17:16 [ТС]
	kOS_77, Спасибо огромное. посмотрю, разберусь. 0