VBA

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
VBA Тип данных при позднем связывании Меняю раннее связывание на позднее, вот такой код работает отлично: Dim g_WordApp As New Word.Application Dim Pic As Shape Проблема с типом "Shape", как его передать? Dim Pic As Object Set... https://www.cyberforum.ru/ vba/ thread2398890.html	VBA Прошу подсказать с кодом, массивы мб Добрый день подскажите, пожалуйста, задача в общем виде: имеется: - две книги, а именно книга1 на диске по адресу, книга 2 открыта(в открытой книге из персональной книги есть кнопка для...
VBA Скопировать несколько столбцов в один без пустых ячеек Здравствуйте! Подскажите, пожалуйста, можно ли воплотить следующую вещь. В прикрепленном файле в листе 1 в отдельных ячейках имеются данные, например: 45 - Иванов \| 53 - Сидоров \| 24 - Петров... https://www.cyberforum.ru/ vba/ thread2398870.html	VBA Как вернуть удаленную строку после выполнения макроса Rows(n).Delete https://www.cyberforum.ru/ vba/ thread2398839.html Доброго времени суток!) Столкнулся со следующей проблемой, по нажатию кнопки, по заданному номеру строки в текстбоксе, удаляет всю строку. Как можно вернуть удаленную строку? Отмена действия, как при...
VBA Cоздание макросов, разработка функций пользователя, модулей Задание. 1. Создать макрос с именем Макрос_F, доступный во всей рабочей книге, в процессе активизации которого отображаются все формулы активного рабочего листа. Для активизации использовать...	VBA Совместимость макроса https://www.cyberforum.ru/ vba/ thread2398385.html Всем. здравствуйте. Я новенькая в VBA. на практике столкнулась с проблемой: написала по аналогии с предоставленным мне ранее кодом свой макрос для вывода таблицы, при заполнении которой формируется...
VBA Проверка, является ли квадратная матрица полу-магическим квадратом Помогите пожалуйста с программой: "Пользователь вводит размерность и задаёт поочерёдно элементы квадратной матрицы, а программа определяет является ли она полу-магическим квадратом(квадратная... https://www.cyberforum.ru/ vba/ thread2398378.html	VBA Копирование ячеек в определённые ячейки на другой лист Добрый день! Прошу окажите помощь в создании макроса имеется таблица данных на листе 1 (сведения), необходимо чтобы при активации строки или её активации, сведения из определённых ячеек в таблице...
VBA Подсчет накопленной доли https://www.cyberforum.ru/ vba/ thread2398367.html Здравствуйте,помогите,пожалуйста Надо написать макро ,которые считает накопленную долю Т.е. у меня есть столбец в таблице экселя,где есть данные , в конце столбца в последней ячейке сумма всех...	VBA Word макрос для копирования документа с учетом формата Добрый день, форумчане! Подскажите пожалуйста, есть задачка. Макросом открывается файл Word копируется имеющаяся информация (могут быть и таблицы) и файл закрывается. Затем открывается новый... https://www.cyberforum.ru/ vba/ thread2398340.html
Выбор данных из листа Excel в TreeView VBA Всем Добрейшего времени суток! Подскажите эффективный способ выбора информации из листа Excel в TreeView. Делаю вот так (но длительный процесс): Public Sub StructTREE() Dim strYes As String ...	VBA Поиск (Проверка) значений в столбце А на наличие данных удовлетворяющих условиям Здравствуйте!!!! У кого есть свободное время, помогите плиз ( Если в столбце А начиная с ячейки А2 есть значение "▄Х", где "Х" больше или равно 100 но меньше 200, то в ячейке В2 столбца В... https://www.cyberforum.ru/ vba/ thread2398262.html

Казанский

15137 / 6411 / 1730

Регистрация: 24.09.2011

Сообщений: 9,999

04.02.2019, 21:37

Добавляется 0 при чтении содержимого бинарного файла - VBA - Ответ 13297652

04.02.2019, 21:37. Показов 1355. Ответов 3

Метки (Все метки)

Ответ

Святой НякаЛайк, pincet, а можно определить двумерный массив и обойтись без цикла. Лишние заполненные ячейки в последней строке почистить.

Visual Basic

Sub PutContents()
Const DX& = 7, R0& = 9, C0& = 9 'ширина, левый верхний угол
Dim fileInt As Integer, n&
  fileInt = FreeFile
  Open "c:\temp\bins.txt" For Binary Access Read As fileInt '"f://input.bin"
  ReDim i(1 To DX, 0 To LOF(fileInt) \ DX) As Byte
  Get fileInt, , i
  n = LOF(fileInt) Mod DX
  Cells(R0, C0).Resize(UBound(i, 2) + 1, DX).Value = WorksheetFunction.Transpose(i)
  Cells(R0 + UBound(i, 2), C0).Offset(, n).Resize(, DX - n).ClearContents
  Close fileInt
End Sub

Вернуться к обсуждению:
Добавляется 0 при чтении содержимого бинарного файла VBA

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

04.02.2019, 21:37

Готовые ответы и решения:

Разделитель при чтении csv-файла
всем привет, ребята, код внизу отлично считывает в Excel csv-файл, когда разделитель полей в...

Удаление содержимого ячейки, если в другую добавляется такое же содержимое
Подскажите, как можно решить такую задачу. В столбце пять ячеек. В первой знак "+". Я добавляю знак...

"Нарушение прав доступа при чтении по адресу" при чтении структур из бинарного файла
Пытаюсь разобраться со структурами в бинарных файлах. Допустим, есть массив структур. Записываю...

Ошибка при чтении бинарного файла
почему у меня выводит два раза последнюю запись при чтении??(а файл записываю класс с 3...

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

04.02.2019, 21:37

Помогаю со студенческими работами здесь

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

Ошибка при чтении бинарного файла
пытаюсь прочитать 63мб бинарного файла и заполнить структуру к примеру вот std::fstream...

Ошибка при чтении/записи из бинарного файла
Сделал простую программу для работы с бинарными файлами, но когда запускаю ее вылетает ошибка....

Нечастые крякозябры при чтении из бинарного файла
Вообщем читаю строки с бинарника и вылазит строки например жирафа(верхнее)@ тигр(нижнеее)@...

Наверх