Выгрузка содержимого в txt файл

@TorvaldGot · Регистрация: 25.09.2015

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

Здравствуйте! Подскажите пожалуйста как выгрузить с ексель файла(прилагаю) в txt ничего не меняя методом vba.Заранее спасибо!

@Казанский · 16.10.2015, 12:18

TorvaldGot,

Visual Basic
1
2
3
4
5
6
7
8
9
10
Sub TorvaldGot()
Dim k%, v(), i&
  k = FreeFile
  Open ActiveWorkbook.FullName & ".txt" For Output As k
  v = ActiveSheet.UsedRange.Value
  For i = 1 To UBound(v)
    Print #k, Join(WorksheetFunction.Index(v, i, 0), "")
  Next
  Close k
End Sub

@TorvaldGot · 18.10.2015, 15:39 **[ТС]**

Ругается на строчку:
Print #k, Join(WorksheetFunction.Index(v, i, 0), "")
Пишет: method 'Index' of object 'WorksheetFunction' failed
run-time error: '-2147417848 (80010108)'

@Казанский · 18.10.2015, 18:47

TorvaldGot, ячейки длиннее 255 символов? Тогда так (кстати быстрее)

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub TorvaldGot()
Dim k%, v(), i&, j&
  k = FreeFile
  Open ActiveWorkbook.FullName & ".txt" For Output As k
  v = ActiveSheet.UsedRange.Value
  For i = 1 To UBound(v)
    For j = 1 To UBound(v, 2)
      Print #k, v(i, j);
    Next
    Print #k,
  Next
  Close k
End Sub

@TorvaldGot · 20.10.2015, 17:02 **[ТС]**

Теперь ругается на другую строчку:
v = ActiveSheet.UsedRange.Value
Пишет ошибку:
Run-time error 6: Overflow.
Заранее огромное спасибо за помощь и оказанную поддержку.

@kalbasiatka · 20.10.2015, 17:49

А сколько данных в файле?

@Казанский · 20.10.2015, 21:58

TorvaldGot, да что ж такое

Попробуйте считывать с листа построчно

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub TorvaldGot()
Dim k%, v(), i As Range, j&
  k = FreeFile
  Open ActiveWorkbook.FullName & ".txt" For Output As k
  For Each i In ActiveSheet.UsedRange.Rows
    v = i.Value
    For j = 1 To UBound(v, 2)
      Print #k, v(1, j);
    Next
    Print #k,
  Next
  Close k
End Sub

@TorvaldGot · 21.10.2015, 14:49 **[ТС]**

Спасибо огромное!!! То что надо!

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

@TorvaldGot 0 / 0 / 0 Регистрация: 25.09.2015 Сообщений: 51
	18.10.2015, 15:39 [ТС]
	Ругается на строчку: Print #k, Join(WorksheetFunction.Index(v, i, 0), "") Пишет: method 'Index' of object 'WorksheetFunction' failed run-time error: '-2147417848 (80010108)' 0

@TorvaldGot 0 / 0 / 0 Регистрация: 25.09.2015 Сообщений: 51
	20.10.2015, 17:02 [ТС]
	Теперь ругается на другую строчку: v = ActiveSheet.UsedRange.Value Пишет ошибку: Run-time error 6: Overflow. Заранее огромное спасибо за помощь и оказанную поддержку. 0

@kalbasiatka 416 / 263 / 83 Регистрация: 27.10.2012 Сообщений: 861
	20.10.2015, 17:49
	А сколько данных в файле? 0

@TorvaldGot 0 / 0 / 0 Регистрация: 25.09.2015 Сообщений: 51
	21.10.2015, 14:49 [ТС]
	Спасибо огромное!!! То что надо! 0