Страницы: 1
RSS
Ежедневное автоматическое заполнение данными в таблице
 
Ежедневно приходится вручную заполнять данные. Как сделать так, чтобы данные заполнялось автоматом. Данные каждый день берутся из инета и выглядит как во вложенном файле. Надо чтобы в другом документе вся эта информация накапливалась по датам и по клиентам.(в некоторые дни может не быть того или иного клиента)
 
JOMA,  
Не мешало бы добавить конкретики, такой как:  
1. Формат и структура файла-источника.  
2. Место расположения файла-источника.  
3. Среднее количество записей в файле-источнике.
Пользователи, как школьники, учиться хотят далеко не все, а отличниками становятся единицы.
Проблема - это ситуация, в решении которой человек не заинтересован.
 
Sorri!!! Файл в формате csv вложить не удалось, но можно сохранить в xls и оттуда уже изменять... Честно как-то надоело каждый день вбивать вручную эти данные. Пожалуйста помогите разобраться и как это сделать,если возможно.
 
накапливайте данные в одном общем списке "как есть".  
а так, как хочется, получайте сводной таблицей.
фрилансер Excel, VBA - контакты в профиле
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг
 
Дело в том,что далее эти данные обрабатываются, копить их нельзя т.е. плюс минус у кого сколько. Вся сложность в том, что каждый день данные не одинаковые по клиентам. Были бы одинаковые хотя бы с нулями проще было бы копировать и вставлять. Вся загвоздка в этом. Попытался более точнее выразится
 
конечно, я не настаиваю :))  
 
но, попытавшись выразиться более точно, сваял пример сводной для Ваших данных.  
пользоваться легко: добавляете в конце исходной таблицы новую порцию данных, и в сводной нажимаете кнопку "обновить".
фрилансер Excel, VBA - контакты в профиле
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг
 
В принципе, если известен нормально формат CSV файла, то можно через ADODB организовать обновляемую таблицу QueryTable с соединением в Excel 2007 и выше.  
Насколько понял, данные в этом CSV накапливаются по дням. Есть ли возможность выдернуть сам CSV, чтобы попробовать подобную идею.  
Если можно сохранить данные CSV только в Excel, то можно сохранять эти данные в один и тот же файл, а связь через ADODB организовать уже с этим Excel файлом. Завтра постараюсь выложить пример.
 
anvg, насколько я понял, файл каждый день - новый, с новой порцией данных.
фрилансер Excel, VBA - контакты в профиле
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг
 
Да, есть возможность сохранения в exel.Данные берутся за период с конкретной даты до конкретной даты. В моем случае, так- как надо ежедневно. А по поводу QueryTable для меня кажется высокая планка, которую трудно одолеть..:(
 
Во вложении в readme.txt описал работу.  
Собственно QueryTable создяётся макросом  
Public Sub CreateConnection()  
   Dim sCon As String, sSQL As String  
   Dim pTable As QueryTable, pSheet As Worksheet  
   sCon = "OLEDB;Provider=Microsoft.Jet.OLEDB.4.0;Mode=Read;Data Source=C:\Temp\Today.xls"  
   sCon = sCon & ";Extended Properties=""Excel 8.0;HDR=YES"";"  
     
   sSQL = "Select [Логин] As [Дата], '' As [1], '' As [2], '' As [3], '' As [4], '' As [5], [Сумма платежей] As [24] From [Лист11$]"
   sSQL = sSQL & " Where (Day([Дата 1])=Day(Now)) And (Month([Дата 1])=Month(Now)) And (Year([Дата 1])=Year(Now))"
   Set pSheet = ThisWorkbook.Worksheets(2)  
   Set pTable = pSheet.QueryTables.Add(sCon, pSheet.Range("A1"), sSQL)  
   pTable.Refresh  
End Sub  
На мой взгляд, практически ничего не мешает сделать такое же подключение и к файлу csv в инете. Но без знания структуры файла, порядка полей, логина и пароля (да и особенностей применения логина и пароля для подключения к сайту, впрочем, поиском можно найти и это) сразу написать правильное подключение не могу. ТС может попробовать сам, описание подключений к текстовым файлам есть на http://www.connectionstrings.com/
 
Спасибо за помощь anvg, попробую реализовать ващу идею.
Страницы: 1
Читают тему
Loading...