Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Импорт из txt в excel - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Импорт из txt в excel (Макросы/Sub)
Импорт из txt в excel
baaur Дата: Суббота, 07.06.2014, 21:08 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 70
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Всем добрый вечер, форумчане.
Подскажите что делаю не так,
есть текстовый файл, который нужно импортировать в excel. Сделал макрос макро рекордером и чуть подкорректировал, но работает не совсем так ка нужно,
то есть работает только с определенным файлом "апрель".

[vba]
Код
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\Users\**********\Desktop\файлы\апрель.txt", Destination:= _
Range("$A$1"))

.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote

.TextFileSemicolonDelimiter = True

.TextFileColumnDataTypes = Array(1, 1, 2, 2, 2, 1, 1, 2, 1, 2, 4)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
[/vba]

Нужно что бы можно было выбирать любой текстовый файл, добавляю строку в начале макроса

[vba]
Код
Filename = Application.GetOpenFilename("Text files (*.txt),", , "Выбрать текстовый файл", "Load data")
[/vba]

и удаляю[vba]
Код
ActiveSheet.QueryTables.Add(Connection:="TEXT;C:\Users\**********\Desktop\файлы\апрель.txt", Destination:= Range("$A$1")
[/vba]

макрос перестает работать.
Подскажите пожалуйста, что делаю не так?
 
Ответить
СообщениеВсем добрый вечер, форумчане.
Подскажите что делаю не так,
есть текстовый файл, который нужно импортировать в excel. Сделал макрос макро рекордером и чуть подкорректировал, но работает не совсем так ка нужно,
то есть работает только с определенным файлом "апрель".

[vba]
Код
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\Users\**********\Desktop\файлы\апрель.txt", Destination:= _
Range("$A$1"))

.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote

.TextFileSemicolonDelimiter = True

.TextFileColumnDataTypes = Array(1, 1, 2, 2, 2, 1, 1, 2, 1, 2, 4)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
[/vba]

Нужно что бы можно было выбирать любой текстовый файл, добавляю строку в начале макроса

[vba]
Код
Filename = Application.GetOpenFilename("Text files (*.txt),", , "Выбрать текстовый файл", "Load data")
[/vba]

и удаляю[vba]
Код
ActiveSheet.QueryTables.Add(Connection:="TEXT;C:\Users\**********\Desktop\файлы\апрель.txt", Destination:= Range("$A$1")
[/vba]

макрос перестает работать.
Подскажите пожалуйста, что делаю не так?
Автор - baaur
Дата добавления - 07.06.2014 в 21:08
RAN Дата: Суббота, 07.06.2014, 21:18 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Если кратко - всё.

Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеЕсли кратко - всё.
Автор - RAN
Дата добавления - 07.06.2014 в 21:18
baaur Дата: Суббота, 07.06.2014, 21:47 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 70
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Цитата RAN, 07.06.2014 в 21:18, в сообщении № 2
Если кратко - всё.

то есть? :(
 
Ответить
Сообщение
Цитата RAN, 07.06.2014 в 21:18, в сообщении № 2
Если кратко - всё.

то есть? :(
Автор - baaur
Дата добавления - 07.06.2014 в 21:47
RAN Дата: Суббота, 07.06.2014, 22:16 | Сообщение № 4
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Цитата baaur, 07.06.2014 в 21:47, в сообщении № 3
добавляю строку в начале макроса
Filename = Application.GetOpenFilename("Text files (*.txt),", , "Выбрать текстовый файл", "Load data")
и удаляю ActiveSheet.QueryTables.Add(Connection:="TEXT;C:\Users\**********\Desktop\файлы\апрель.txt", Destination:= Range("$A$1")
макрос перестает работать.
Подскажите пожалуйста, что делаю не так?

Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщение
Цитата baaur, 07.06.2014 в 21:47, в сообщении № 3
добавляю строку в начале макроса
Filename = Application.GetOpenFilename("Text files (*.txt),", , "Выбрать текстовый файл", "Load data")
и удаляю ActiveSheet.QueryTables.Add(Connection:="TEXT;C:\Users\**********\Desktop\файлы\апрель.txt", Destination:= Range("$A$1")
макрос перестает работать.
Подскажите пожалуйста, что делаю не так?
Автор - RAN
Дата добавления - 07.06.2014 в 22:16
RAN Дата: Суббота, 07.06.2014, 22:21 | Сообщение № 5
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

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

Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщениеесли вы се же хотите получить конкретный ответ, то не сочтите за труд приложить макрос, который работает, и тот, который не желает.
(лучше в файле)
Автор - RAN
Дата добавления - 07.06.2014 в 22:21
baaur Дата: Суббота, 07.06.2014, 22:46 | Сообщение № 6
Группа: Пользователи
Ранг: Участник
Сообщений: 70
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Не подумал, извиняюсь. Приложил
К сообщению приложен файл: 1781146.xlsm (13.4 Kb)
 
Ответить
СообщениеНе подумал, извиняюсь. Приложил
Автор - baaur
Дата добавления - 07.06.2014 в 22:46
Hugo Дата: Суббота, 07.06.2014, 23:00 | Сообщение № 7
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3254
Репутация: 707 ±
Замечаний: 0% ±

2019
[vba]
Код
Sub cf1()

' макрос  хочет работать
     Filename = Application.GetOpenFilename("Text files (*.txt),", , "Select text file with temperature data", "Load data")
     If Filename = False Then Exit Sub
     With ActiveSheet.QueryTables.Add(Connection:= _
                    "TEXT;" & Filename, Destination:= _
                    Range("$A$1"))

         .TextFileStartRow = 1
         .TextFileParseType = xlDelimited
         .TextFileTextQualifier = xlTextQualifierDoubleQuote

         .TextFileSemicolonDelimiter = True

         .TextFileColumnDataTypes = Array(1, 1, 2, 2, 2, 1, 1, 2, 1, 2, 4)
         .TextFileTrailingMinusNumbers = True
         .Refresh BackgroundQuery:=False
     End With

End Sub
[/vba]

excel@nxt.ru
webmoney: E265281470651 Z422237915069
 
Ответить
Сообщение[vba]
Код
Sub cf1()

' макрос  хочет работать
     Filename = Application.GetOpenFilename("Text files (*.txt),", , "Select text file with temperature data", "Load data")
     If Filename = False Then Exit Sub
     With ActiveSheet.QueryTables.Add(Connection:= _
                    "TEXT;" & Filename, Destination:= _
                    Range("$A$1"))

         .TextFileStartRow = 1
         .TextFileParseType = xlDelimited
         .TextFileTextQualifier = xlTextQualifierDoubleQuote

         .TextFileSemicolonDelimiter = True

         .TextFileColumnDataTypes = Array(1, 1, 2, 2, 2, 1, 1, 2, 1, 2, 4)
         .TextFileTrailingMinusNumbers = True
         .Refresh BackgroundQuery:=False
     End With

End Sub
[/vba]
Автор - Hugo
Дата добавления - 07.06.2014 в 23:00
baaur Дата: Суббота, 07.06.2014, 23:07 | Сообщение № 8
Группа: Пользователи
Ранг: Участник
Сообщений: 70
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Hugo, RAN
Большое Вам спасибо за помощь! hands
 
Ответить
СообщениеHugo, RAN
Большое Вам спасибо за помощь! hands
Автор - baaur
Дата добавления - 07.06.2014 в 23:07
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Импорт из txt в excel (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!