Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
VBA Запросы по базам данных https://www.cyberforum.ru/ vba/ thread880813.html
Добрый день. Подскажите пожалуйста в решении следующих задач. Насколько я понимаю через селект кейс нужно делать но точно не знаю как) Есть несколько таблиц: СLIENT Client ID Email Phone LOYALTY
Чтение файла в бинарном виде ЧАСТЯМИ VBA
Собственно вопрос в самом названии темы. Возможно ли читать файл функцией Open sFile For Binary As #1 по частям? Как мы выцепляем например часть текста из целого текста функцией MID. Данный способ чтения мне требуется для отправки файла в интернет, просто пока дождешься пока весь файл считается в переменную.. это состариться можно, а еслиб он читал бы и отправлял попеременно, то это как-то...
VBA Работа с несколькими Файлами Excel Привет всем. Задача такая, нужно заливать данные, вводимые в форме, в разные файлы Excel. Например нужно в файл1.лист2.ячейка(1,3) залить слово "Принтеры". https://www.cyberforum.ru/ vba/ thread880804.html VBA ВПР или макрос? https://www.cyberforum.ru/ vba/ thread880501.html
Уважаемые, добрый день! 25.05.2013 A 22334 25.05.2013 E 232345 25.05.2013 H 454545 25.05.2013 N 676776 25.05.2013 P 89797 25.05.2013 S 34423 25.05.2013 K 5656 25.05.2013 L 77687
VBA Провести частотный анализ текста
Помогите пожалуйста. Дана строка,содержащая текст,набранный заглавными русскими буквами.Провести частотный анализ текста(указать в процентах),сколько раз встречается каждая буква.Для вывода результата на форму пользуйтесь ListBox.Также можно вывести результат и на активный рабочий лист
VBA массивы Что не правильно?? Дан массив размера N. Найти номер его первого локального минимума (элемент, который меньше от любого соседнего) Sub Mas() Const N = 10 Dim A(1 To N) As Integer, i As Integer Dim S As String https://www.cyberforum.ru/ vba/ thread880386.html
VBA Мелкие задачи по VBA Ребят, помогите кто чем может)) Задание 2. Составить программу, находящую максимальное число из четырех заданных. Задание 3. Для каждого листа рабочей книги установить полужирное начертание шрифта (свойство шрифта – Bold=True). Задание 3. Для каждого листа рабочей книги установить курсивное начертание шрифта (свойство шрифта – Italic=True). https://www.cyberforum.ru/ vba/ thread880064.html Как сохранить документ по выделенному слову VBA
Нужно создать макрос в ворде. Который будет сохранять документ по имени выделенного файла. Т.е. мы выделяем нужное слово, выполняем макрос, и ворд автоматически сохраняет документ под именем этого выделения. Ума не приложу как его сделать. Простой командой "по действиям" не получилось, все говорят надо писать на Basic. Добавлено через 1 час 7 минут Нужно создать макрос в ворде. Который будет...
VBA сортировка массива https://www.cyberforum.ru/ vba/ thread879925.html
нужно отсортировать массив в ecxel'e методом прямого включения постоянно выдаёт ошибку на цикл, иногда работает, но редко В чём дело не могу разобраться( Помогите пожалуйста! Sub прямое_включение() Dim a() As Integer, i As Integer, p As Integer, j As Integer Rows(1).Delete N = InputBox("Введите количество чисел в массиве") ReDim a(1 To N) Randomize
VBA Синтаксическая ошибка https://www.cyberforum.ru/ vba/ thread879795.html
Вформе есть 2 списка (Список8 и Список12). в Списке8 в соответствии с запросом выводит данные поля таблицы (STAT, KODDIAN, KODDIAZ). При двойном клике по Спискок8 в Списке12 должно открытся данные с табллицы MSXK но в строках & "WHERE STAT = " & Forms!Form5!STAT _ & "AND KODDIAZ = '" & Список8.Column(2) & "'" _ & "ORDER BY NDIA ASC" выводит синтаксическую ошибку. Помогите исправить....
VBA Создание кнопок
Мне нужно реализовать задачку. В ячейку А1 вводится с клавиатуры число. Рядом кнопка при нажатии которой создается то количество кнопок которое указано в ячейке А1. При нажатии любой созданной кнопки в ячейку В1 должен появляться порядковый номер нажатой кнопки.
VBA Проект «Создание счет-фактуры на отпуск товара» Создать программу, которая по введенным в соответствующие текстовые поля формы данным автоматизирует ввод данных на отпуск товара с некоторого склада и формирует счет-фактуру за определенный период времени. Кроме этого, программа должна вычислять данные по столбцам, отмеченным звездочками. Вывод данных предусмотреть на лист excel. https://www.cyberforum.ru/ vba/ thread879424.html
0 / 0 / 0
Регистрация: 27.05.2013
Сообщений: 9
0

Макрос на загрузку текстового файла в таблицу Excel - VBA - Ответ 4625124

27.05.2013, 17:45. Показов 19915. Ответов 11
Метки (Все метки)

Author24 — интернет-сервис помощи студентам
Есть макрос для загрузки текста из текстового документа в таблицу эксель, изначально выполняется.
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub Main()
    Dim TextLine As String
    Dim myRow
    Dim myCount
    Open "Z:\Filename.txt" For Input As #1
    Лист1.Range("A17:L8000") = Clear
    myRow = Лист1.Cells.End(xlDown).Row
      Do While Not EOF(1)
    myRow = myRow + 1
    myCount = 1
    Line Input #1, TextLine
    While TextLine <> "***" And Not EOF(1)
    Лист1.Cells(myRow, myCount) = TextLine
    myCount = myCount + 1
    Line Input #1, TextLine
    Wend
    Loop
    Close #1
End Sub

Но при создании нового документа эксель и при запуске вставленного макроса выдает ошибку "Run-time error '1004' Application-defined or object-defined error". Далее нажимаю Debug - выделяется строка "Лист1.Cells(myRow, myCount) = TextLine". Вопрос - что я делаю неверно и как это исправить?

Вернуться к обсуждению:
Макрос на загрузку текстового файла в таблицу Excel VBA
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
27.05.2013, 17:45
Готовые ответы и решения:

Макрос на загрузку из файла
Добрый день, помогите пожалуйста, стоит следующая задача: Необходимо в Excel, чтобы при нажатии на...

Макрос для замены текстового значения в ячейке Excel
Добрый день. Необходимо написать макрос для замены в ячейки текстового значения &quot;Заказ&quot; на...

Макрос, который переворачивает таблицу (Excel)
Здраствуйте. Помогите, пожалуйста, написать макрос который переворачивает таблицу. Вот пример:...

Макрос для экспорта из excel файла в excel файл шаблон
здравствуйте. подскажите как написать макрос. есть 1 файл со столбиками : город , дом, квартира,...

11
27.05.2013, 17:45
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.05.2013, 17:45
Помогаю со студенческими работами здесь

Нужно, чтобы макрос не загружал Excel таблицу.
Господа есть макрос Dim cn As ADODB.Connection Dim rs As ADODB.Recordset Dim sSql As String...

Макрос для загрузки значений из текстового файла по строкам
Подскажите макрос для загрузки значений из текстового файла по строкам, т.е. допустим есть...

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

Дополните загрузку с текстового файла (Шахматы)
Помогите добавить в прорамму загрузку с файла нужно что бы с файла считывались переменные fig,...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru