Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Импорт данных из txt.
 
#1
13.12.2011 21:12:34
Всем вечер добрый!!!  
Во время создания одного отчета возник вопрос.  
Вообщем у меня отчет создается из данных которые я импортирую из определенной папки, после импорта делю по столбцам (I), и т.д. Так вот проблема в том чтобы из этой папки на лист1 при нажатии кнопки тянулись данные, вот только файлы меняются каждый день (названия_13.12.2011.txt), а так как я записывал импорт данных через макроридер, приходится постоянно изменять на определенное названия.  
Возможно ли так сделать чтобы оно ипортировались независимо от названия файла, а предидущие данные удалялись.
 
 
 
#2
13.12.2011 21:32:33
Найдите любую тему. где обсуждался перебор файлов в папке - макрос "переберёт" только один Ваш файл :-)
 
 
 
#3
13.12.2011 21:33:15
Да, возможно Не увидев вашего макроса, что-то конкретное посетовать сложно. <BR>Найти самый свежий файл можно этой функцией: http://excelvba.ru/code/lastfile
Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
#4
13.12.2011 21:39:41
Sub запрос1()  
 
 
'  
   With ActiveSheet.QueryTables.Add(Connection:= _  
       "TEXT;C:\новая папка\запрос_13.12.2011.txt", Destination:=Range("A1"))  
       .Name = "запрос_13.12.2011"  
       .FieldNames = True  
       .RowNumbers = False  
       .FillAdjacentFormulas = False  
       .PreserveFormatting = True  
       .RefreshOnFileOpen = False  
       .RefreshStyle = xlInsertDeleteCells  
       .SavePassword = False  
       .SaveData = True  
       .AdjustColumnWidth = True  
       .RefreshPeriod = 0  
       .TextFilePromptOnRefresh = False  
       .TextFilePlatform = 1252  
       .TextFileStartRow = 1  
       .TextFileParseType = xlDelimited  
       .TextFileTextQualifier = xlTextQualifierDoubleQuote  
       .TextFileConsecutiveDelimiter = False  
       .TextFileTabDelimiter = True  
       .TextFileSemicolonDelimiter = False  
       .TextFileCommaDelimiter = False  
       .TextFileSpaceDelimiter = False  
       .TextFileOtherDelimiter = "|"  
       .TextFileColumnDataTypes = Array(1, 1, 1)  
       .TextFileTrailingMinusNumbers = True  
       .Refresh BackgroundQuery:=False  
   End With  
End Sub  
 
Вот может чтото подскажете???
 
 
 
#5
13.12.2011 22:52:32
Пересмотрел в поиске перебор файлов в папке, вот только проблема они все открывают файлы в новом окне, а мне надо именно на лист1 потому что от туда тянутся данные.  
Может ктото знает как это???
 
 
 
#6
13.12.2011 23:45:46
Дайте свой txt-файл.
 
 
 
#7
13.12.2011 23:51:39
Вот файл, благодарю что помогаете!!!
 
 
 
#8
13.12.2011 23:52:59
{quote}{login=}{date=13.12.2011 11:51}{thema=}{post}Вот файл, благодарю что помогаете!!!{/post}{/quote}  
Оригинал не могу дать так как он находиться на работе, ну суть такая же вот только столбцов там 41, и строк 10000
 
 
 
#9
14.12.2011 00:06:39
Пробуем.
 
 
 
#10
14.12.2011 00:13:47
Огромное спасибо!!!    
Вот только можно так сделать, чтобы после выбора файла не выбивала введите имя, так как мы уже выбрали его. И еще одно как сделать чтобы при выборе удалялись прошлые данные и на их место вставали новые???
 
 
 
#11
14.12.2011 00:37:41
Мы выбрали файл, а не имя для запроса. Добавил определение из имени файла и очистку диапазона.
 
 
 
#12
14.12.2011 09:44:21
Супер!!!Спасибо Юрий !!!
 
 
 
Страницы: 1
Читают тему
Наверх