Авторизация

После авторизации можно скачивать файлы бесплатно!



Важный отпрос!

Помог ли Вам наш сайт?
 
Импорт данных из текстового файла в Excel
+ 15
- 3
VBA Excel - Макросы Excel

Как записать данные в Excel из текстового файла.

В следующих трех примерах показываются способы копирования данных из текстового файла в Excel

 

1
2
3
4
5
6
7
8
9
Dim TextLine
i = 1
Open "C:\MyFile.txt" For Input As #1 
Do While Not EOF(1) 
Line Input #1, TextLine 
ThisWorkbook.Worksheets("Лист1").Cells(i, 1).Value = TextLine 
i = i + 1
Loop
Close #1

 

1
2
3
4
5
6
7
8
Sub Range2TXT()
  MyFile = "C:\File.txt" 'задаем путь к файлу
  Open MyFile For Output As #1 'открываем для записи
  For Each i In Selection 'перелистываем ячейки выделенного диапазона
    Print #1, i 'записываем (с начала)
  Next
  Close #1 'ну и закрываем
End Sub

 

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub SaveAsText()
   Dim cell As Range
   ' открываем файл для сохранения (имя файла соответствует имени _
    рабочей книги, но отличается расширением - TXT)
   Open ThisWorkbook.Path & "\" & ThisWorkbook.Name & ".txt" _
    For Output As #1
   ' Записываем содержимое заполненных ячеек таблицы в файл
   For Each cell In ActiveSheet.UsedRange
      If Not IsEmpty(cell) Then
         Print #1, cell.Address, cell.Formula
      End If
   Next
   ' закрываем файл
   Close #1
End Sub

 

Добавить комментарий

Комментарий должен быть логичным, не должен содержать спама!


Защитный код
Обновить

Похожие материалы

© 2011 Мир VBA - Excel, Access, листинги, примеры, готовые базы данных Access, функции VBA и многое другое!