Создание файла средствами VBA

@tkrainyk · Регистрация: 09.12.2016

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

Добрый день!

Возможно кто-то может посоветовать как создать файл с помощью VBA и заполнить его бинарными данными (например изображения с поля OLE).
Затем открыть.

Заранее спасибо за любой ответ.

mobile · 04.11.2017, 19:17

Создать файл не проблема. А вот заполнить данными из OLE не так просто. Поле OLE имеет заголовок, который надо удалять, чтобы получить данные самого файла. Рекомендую поискать по другим форумам посты Бенедикта (ссылку дать не могу, правила кибера запрещают). В них есть ответы на все Ваши вопросы. А также на Вами не заданные, но на которые безусловно придется отвечать для решения задачи.

@tkrainyk · 04.11.2017, 19:28 **[ТС]**

Спасибо, mobile, . Буду искать. Но все же, если бы вы могли предоставить пример создания файла. Это было бы уже половина вопроса.

Я искал в Google, но чего-то хорошего не нашел.

mobile · 04.11.2017, 19:37

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

пример создания файла

Открытие файла для записи

Visual Basic
1
Open "TESTFILE" For Binary Access Write As #1

Открытие бинарного файла для чтения

Visual Basic
1
Open "TESTFILE" For Binary Access Read As #1

Читайте в хелпе инструкцию Open

Добавлено через 2 минуты
Подсказка где искать Бенедикта, не нарушая правил форума : Написание статей. В самом низу поста ссылка "Источник"

@tkrainyk · 05.11.2017, 17:49 **[ТС]**

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

Читайте в хелпе инструкцию Open

Извините, mobile, но вы объясняете так, как для умного, а я, к сожалению, не очень.

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

В моем понимании процесс таков: создаем файл, или на диске, или в оперативной памяти (как лучше не знаю). Уже здесь проблема. Наверное должен быть метод типа CreateObject, но в хелпе на английском языке разобраться не могу.

Затем в этот файл записываем бинарные данные из таблицы.

Затем выводим файл на экран.

Но даже первый вопрос - создать файл, решить не могу.

Добавлено через 32 минуты
Только что нашел в разделе "Написание статей" - Объектная модель FSO. Надеюсь, это поможет.

Добавлено через 1 час 35 минут
Еще раз извините, mobile, но только после часового чтения статьи понял, что оператор Open создает файл, если он не существует.

Я понимал Open, как открытие чего-то, что уже существует.

mobile · 05.11.2017, 17:59

tkrainyk, выкладываю файл Бенедикта, один из многих им созданных. И хотя там нет создания и записи в файл, но есть множество другого полезного для работы с оле. Например, есть чтение файла имаджа и запись в таблицу. Смотрите, изучайте

@tkrainyk · 05.11.2017, 18:08 **[ТС]**

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

выкладываю файл Бенедикта

Спасибо, открыл, ваш пример работает без ошибок.

@tkrainyk · 06.11.2017, 09:38 **[ТС]**

Между прочим, mobile, с помощью вас и интернета, после недели тяжелого труда, написал "очень солидную" процедуру

. Прошу оценить.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub OpenFile(fil As String)
    
    ' метка файла
    Dim hFile As Long
    hFile = FreeFile
    
    ' создание файла
    Open fil For Binary Access Write As hFile
    
    ' проверка
    MsgBox fil & " = " & hFile
    
    Close hFile
    
End Sub

mobile · 06.11.2017, 19:47

tkrainyk, попробуйте для тренировки воспользоваться процедурами LoadFile и WriteFile, предложенными Eugene-LS в его сайте http://msa.polarcom.ru/st/s0000333.htm. Если к ним дописать маленькую процедурку, то можно скопировать файл изображения в другой

Visual Basic
1
2
3
4
5
6
7
Sub ReadWriteFile()
    Dim pathIn As String, pathOut As String, f
    pathIn = "диск:\путь\имя.jpg"  'Путь к исходному файлу
    pathOut== "диск:\путь\имя.jpg" 'Путь выходного файла
    f = LoadFile(pathIn)           'Прочитать файл в переменную
    WriteFile f, pathOut           'Записать изображение в новый файл
End Sub

@tkrainyk · 07.11.2017, 09:20 **[ТС]**

Спасибо. Мне как раз это и нужно было: не очень сложная и понятная процедура.

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

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

http://msa.polarcom.ru/st/s0000333.htm.

Очень хорош в Eugene-LS сайт. Есть что почитать, и чему поучиться. Советую всем его посетить.

Почему он об этом не признавался ранее.

Новые блоги и статьи Все статьи Все блоги /
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .

@tkrainyk 775 / 256 / 43 Регистрация: 09.12.2016 Сообщений: 855

	Создание файла средствами VBA 04.11.2017, 18:48. Показов 4596. Ответов 9 Метки нет (Все метки) Добрый день! Возможно кто-то может посоветовать как создать файл с помощью VBA и заполнить его бинарными данными (например изображения с поля OLE). Затем открыть. Заранее спасибо за любой ответ. 0

mobile 26826 / 14506 / 3192 Регистрация: 28.04.2012 Сообщений: 15,782
	04.11.2017, 19:17
	Создать файл не проблема. А вот заполнить данными из OLE не так просто. Поле OLE имеет заголовок, который надо удалять, чтобы получить данные самого файла. Рекомендую поискать по другим форумам посты Бенедикта (ссылку дать не могу, правила кибера запрещают). В них есть ответы на все Ваши вопросы. А также на Вами не заданные, но на которые безусловно придется отвечать для решения задачи. 1

@tkrainyk 775 / 256 / 43 Регистрация: 09.12.2016 Сообщений: 855
	04.11.2017, 19:28 [ТС]
	Спасибо, mobile, . Буду искать. Но все же, если бы вы могли предоставить пример создания файла. Это было бы уже половина вопроса. Я искал в Google, но чего-то хорошего не нашел. 0

Создание файла средствами VBA

Решение