Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Как импортировать данные из текстового файла?
 
#1
09.08.2011 11:49:16
Не могу прописать в макросе, импорт из текстовых файлов и вставку данных из них в определенные листы в существующем файле.  
Смысл работы макроса  
Предлагает пользователю открыть уже существующий файл в формате xlsx. Создает в этом файле листы с именами: Выгруз, подгот.неразобр., подгот.разобр., лист загр.неразобр., лист загр.разобр.  
Спрашивает у пользователя открыть текстовые файлы, их всегда 2. Структура имени всегда:  
разобрано_"Клиент"_clean  
неразобрано_"Клиент"_clean, "Клиент" - может быть любое значение  
Помогите как сделать так чтобы он вставлял данные из этих двух файлов в соответствующие листы подготовки. При этом обязательное условие - кодировка 1251:Кирилица (windows) и вставить значения как текстовые, за исключением столбца 3 и 4. В качестве разделителя выступают "знаки табуляции".  
Понимаю что тема уже избитая, но никак не пойму как прикрутить все то, что было в других темах в мой макрос.    
Для большей наглядности в архиве прилагается макрос с моими набросками  
 
P.S. Был бы благодарен если ваш код будет содержать комментарии по поводу его работы
 
 
 
#2
09.08.2011 13:40:56
ПКМ на текстовом файле, "Открыть с помощью MS Excel"
Чебурашка стал символом олимпийских игр. А чего достиг ты?
Тишина - самый громкий звук

https://github.com/nervgh
 
 
 
#3
09.08.2011 13:48:17
{quote}{login=nerv}{date=09.08.2011 01:40}{thema=}{post}ПКМ на текстовом файле, "Открыть с помощью MS Excel"{/post}{/quote}  
 
:) мне нужно именно в макросе, т.к. импорт будет лишь одним из этапов его работы
 
 
 
#4
09.08.2011 13:55:57
With Workbooks.Open(Filename:="PATH")  
End With
Чебурашка стал символом олимпийских игр. А чего достиг ты?
Тишина - самый громкий звук

https://github.com/nervgh
 
 
 
#5
09.08.2011 14:12:06
Если там разделители TAB, то можно например переименовать файлы, добавив расширение xls и открывать обычным образом как xls, а там уже макросом раскидывать.  
Но я открывал бы тексты с помощью FSO, читал построчно файлы и набирал данные в пять массивов, которые в конце выгружал на листы.  
В принципе несложно (если не будет проблем с кодировкой), но вот всё сопутствующее туманно и геморно. И неинтересно...
 
 
 
#6
09.08.2011 14:43:13
Может хотя бы кто нибудь поянить работу вот этой части макроса:  
 
Workbooks.OpenText filename:=GetFolderPath, Origin:=1251, DataType:=xlDelimited, _  
   Other:=True, FieldInfo:=Array(Array(1, 2), Array(13, 2), Array(15, 2))  
 
как я понял FieldInfo как раз и определяет как обрабатывать каждый столбец. Вот только что то не получается у меня вставить как текст
 
 
 
#7
09.08.2011 14:46:20
1.включить макрорекордер  
2.выбрать данные-получение внешних данных-из текста  
3.настроить параметры импорта как надо    
4.выключить макрорекордер  
5.смотреть получившийся код
 
 
 
#8
09.08.2011 15:32:33
Вы читать умеете?  
 
With Workbooks.Open(Filename:="ПОЛЬНЫЙ ПУТЬ К ВАШЕМУ ФАЙЛЫ + РАСШИРЕНИЕ"):End With
Чебурашка стал символом олимпийских игр. А чего достиг ты?
Тишина - самый громкий звук

https://github.com/nervgh
 
 
 
#9
09.08.2011 16:30:57
{quote}{login=nerv}{date=09.08.2011 03:32}{thema=}{post}Вы читать умеете?  
 
With Workbooks.Open(Filename:="ПОЛЬНЫЙ ПУТЬ К ВАШЕМУ ФАЙЛЫ + РАСШИРЕНИЕ"):End With{/post}{/quote}  
А вы?  
... Спрашивает у пользователя открыть текстовые файлы...  
Мне нужен вывод диалогового окна, чтобы указать текстовые файлы, потому что неизвестно какие текстовые файлы и откуда именно потребуются на этот раз
 
 
 
#10
09.08.2011 16:44:01
С выбором можно так:  
 
Sub dd()  
Dim avFiles, i As Long  
avFiles = Application.GetOpenFilename("Text(*.txt),*.txt", , "Выбор файлов", , True)  
If VarType(avFiles) = vbBoolean Then Exit Sub  
 
For i = 1 To UBound(avFiles)  
With Workbooks.Open(Filename:=avFiles(i))  
'.........нужные действия  
End With  
Next  
End Sub
 
 
 
#11
09.08.2011 18:02:20
простите, что был груб : ) Я думал, что у Вас проблемы только с открытием файла, а остальное само собой разумеется. Пример кода привел sva.
Чебурашка стал символом олимпийских игр. А чего достиг ты?
Тишина - самый громкий звук

https://github.com/nervgh
 
 
 
Страницы: 1
Читают тему
Наверх