Создание файла Excel

@Argus19 · Регистрация: 24.09.2017

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

Раньше с подобным не сталкивался. Нашёл пример в интернете. Файл создаётся, но почему-то только для чтения. Что не так?

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Public XLOut As Excel.Application
Public xlb As Excel.Workbook
'.........................
Public Sub CreateExcel()
Set XLOut = CreateObject("Excel.Application")
XLOut.Workbooks.Add
Set xlb = XLOut.Workbooks(1)
XLOut.Sheets("Лист1").Name = "Texts"
xlb.SaveAs App.Path & "\Zipfile.xlsx"
xlb.Close
XLOut.Quit
End Sub

При попытке записи в любую ячейку возникает ошибка "1004".
В диспетчере задач остаётся EXCEL.EXE

@Карян · 11.10.2020, 17:24

Argus19,
Вот более подробно, может пригодится
'К проекту подключена библиотека Excel
'Для поключениz библиотек заходим проект => Информация => Выбираем Microsoft Excel 14.0 object library

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
    Range("D6:E6").Select 'Выделение диапазона ячеек
    Selection.Merge 'объединение выделенного диапазона
    
    Range("D6").Select 'Выделение  ячейки
    With Selection 'В выделенном диапазоне
        .HorizontalAlignment = xlCenter 'выравнивание текста по центру ячейки
    End With
 
    Range("D6").Select
    Selection.NumberFormat = "0.00" 'Числовой формат два знака после запятой
    'Selection.NumberFormat = "General" ' общий формат
    'Slection.NumberFormat = "0.00" ' числовой формат
    'Selection.NumberFormat = "#,##0.00 $" 'Денежный формат
    'Selection.NumberFormat = "_($* #,##0.00_);_($* (#,##0.00);_($* ""-""??_);_(@_)" 'Финансовый формат
    'Selection.NumberFormat = "m/d/yyyy" 'формат дата
    'Selection.NumberFormat = "[$-F400]h:mm:ss AM/PM" 'формат время
    'Selection.NumberFormat = "0.00%" 'формат проценты
    'Selection.NumberFormat = "# ?/?" ' дробный формат
    'Selection.NumberFormat = "0.00E+00" 'Экспотенциональный формат
    'Selection.NumberFormat = "@" 'текстовый формат
    
    Columns("A:A").ColumnWidth = 47.5 'устанавливаем ширину столбца
   
    Rows("1:1").RowHeight = 65.4 'Устанавливаем высоту строки
    
    Rows("4:4").Select
    Selection.EntireRow.Hidden = True 'Скрываем строку

В архиве прикреплен пример работы с файлами Excel средствами VB6.

I can · 11.10.2020, 18:36

Сообщение от Карян

К проекту подключена библиотека Excel

Сразу видно, что на эти грабли Вы ни разу не наступали.

@UBUNTU · 11.10.2020, 19:15

I can, ничего не будет если установлен офис он любой версии будет использовать. Исключение составляет вин хп но слава богу уже давно думаю этот динозавр многие не используют. Единственное проблема будет если 64 битный подключен тогда в 86 будет проблема.

@Карян · 11.10.2020, 19:16

I can, Поясните пожалуйста, что вы имейте в виду.
Я понимаю, что программа будет работать только на компьютере с установленным Excel, других проблем не должно быть.

Новые блоги и статьи Все статьи Все блоги /
Транслитерация текста с кириллицы на латиницу (вариант №2) Maks 13.11.2026 Обновленная версия ранее созданной обработки. Добавлено: - Проверка исходного текста на кириллицу, через обращение к стандартной функции "ТолькоКириллицаВСтроке" из общего модуля. . .	Часы с термометром и праздничным календарем yariko 12.11.2026 Сегодня мы рассмотрим как можно сделать отличные многофункциональные часы. Итак, поставим конкретную задачу: разработать часы с календарем, двумя термодатчиками, выводом поздравительных сообщений. . .	Транслитерация текста с кириллицы на латиницу (вариант №1) Maks 11.11.2026 Решил облегчить жизнь себе и коллегам админам при создании электронных почтовых ящиков для пользователей, в результате написал обработку "Транслитерация текста" с кириллицы на латиницу, а в ней. . .	Книги по геймдизайну, левел-дизайну, игровым механикам и проектированию игрового опыта 8Observer8 08.11.2026 Содержание блога \| English Version 1. 2003 - 06 - Designing Virtual Worlds (1st Edition) Автор: Richard A. Bartle \| Объем: 768 стр. Ссылки: Amazon . . .
Родители токсичные абьюзеры по отношению к своим детям ругают их оскорбляют не любят zorxor 08.11.2026 Жить в атмосфере постоянных оскорблений, критики и холодности со стороны родителей — это тяжелое и болезненное испытание, которое оставляет глубокие эмоциональные раны. Токсичное и абьюзивное. . .	Как только я захожу к себе в свою комнату я сразу же с себя снимаю свои трусы. Ответ от Джемени ИИ. zorxor 08.11.2026 Джемени, как только я захожу к себе в свою комнату я сразу же с себя снимаю свои трусы. Многие люди, возвращаясь домой, сразу переодеваются в максимально свободную одежду или вовсе предпочитают. . .	Паттерн очереди действий/команд (Action / Command Queue). Система очереди действий и кат-сцен с SDL3 Callbacks, cglm и OpenGL 8Observer8 07.11.2026 Содержание блога \| English Version Руководство для начинающих по реализации паттерна очереди действий/ команд (Action / Command Queue) на C++ (C++20) с использованием официального SDL3 Callbacks. . .	Проверка полного ФИО в типовом справочнике Maks 07.11.2026 Решение реализовано в конфигурации КА2, на примере справочника "КонтактныеЛицаПартнеров". Задача: Запрет инициалов. Не допускаеть использование сокращений вида "И. И. ", "И. И. ", "И И" и. . .

@UBUNTU 352 / 213 / 42 Регистрация: 04.02.2015 Сообщений: 1,344
	11.10.2020, 19:15
	I can, ничего не будет если установлен офис он любой версии будет использовать. Исключение составляет вин хп но слава богу уже давно думаю этот динозавр многие не используют. Единственное проблема будет если 64 битный подключен тогда в 86 будет проблема. 0

@Карян 92 / 58 / 21 Регистрация: 09.05.2019 Сообщений: 184
	11.10.2020, 19:16
	I can, Поясните пожалуйста, что вы имейте в виду. Я понимаю, что программа будет работать только на компьютере с установленным Excel, других проблем не должно быть. 0