vkodorВсе благодарности автору книги: Джону Уокенбаху "Проффесиональное програмирование на VBA Excel2002".

эта книжка на русском языке?? она весит 150 метров?? эта она

http://zipsites.ru/books/uokenbakh_prof_progre_na_vba_v_excel_2002/ думаю сегодня попробывать тянуть ее

А еще одно.....что добавить, что бы те файлы которые уже втянуты в Базу больше туда не втягивались. Скорее всего что бы сравнивалось по соержимому, а непо названию файла:

1. в екселе оставлять запись об этом на листе 2 и потом сравнивать, но мне кажется что это не самое лучшее.
2. втянутые файлы удалять с каталога
3. втянутые файлы премещать в определенную папку, которая будет находится в каждем подкаталоге (она будет одинаковая)

Deggasad
А нельзя их все оставлять и каждый раз по новой подтягивать?

не понял, это как предлагаете?

Конечно же лучше что бы не удалялось, а сравнивалось.

А почему на фтп нельзя выйти просто через \\ ???

DeggasadМожет вариант, подумайте, вдруг пришло в голову
для всех обработанных файлов добавлять впереди имени какие-нибуть символы, например "!"


обломно только если после выполнения макроса обнаружатся какие-либо неточности и необходимо будет повторно выбрать, то придётся идти и по новой этот файл назад переименовыва, но это минус любого из вариантов.

это кстати вариант, но эт так. И "!" это именно то что ставить спереди названия?? А если туда вставлять дату. которая указана в найденном файле??

Deggasad Хелпя Deggasad
А нельзя их все оставлять и каждый раз по новой подтягивать?
не понял, это как предлагаете?


Это предлагаю как в моём примере, каждый раз очищать сводный лист и по-новой все файлы собирать и старые и новые, так нельзя?

когда база разрастется, то это не очень удобно, да и вообще фтп может полететь.

Не все-таки варинат был бы лучше если бы файл переносился в указанную папку

вот здесь "lastRow = .Cells.Find("*", , , , xlByRows, xlPrevious).Offset(1).Row" как-то можно указать что бы + ко всему еще заполнялось с столбца С??

vkodor Хелпяhttp://zipsites.ru/books/uokenbakh_prof_progre_na_vba_v_excel_2002/ думаю сегодня попробывать тянуть ее
Да эта та книга (спасибо за ссылку)

да не за что...эт Вам пасибо!

а может стоит заходить на фтп не по адресу папки, а по айпи?? я пока такого нигде не нашел...еще ищу

Deggasad Хелпяhttp://zipsites.ru/books/uokenbakh_prof_progre_na_vba_v_excel_2002/ думаю сегодня попробывать тянуть ее

У кого нибуть получилось книжку скачать. У меня архив повреждён оказался...
бл........................................................................
ё..........................................................................

брр...в этом уверены??? значит не тянуть ее?

а на фтп вроде надо заходить так: фтп://логин:пароль@ip//далее сами папки

хотел уточнить во что, за что отdечает вот этот кусок

Private Function GetCel(fpath, fname, sh, rngStr)
Dim formulaStr As String
formulaStr = "'" & fpath & "[" & fname & "]" & sh & "'!" & Range(rngStr).Address(, , xlR1C1)
GetCel = ExecuteExcel4Macro(formulaStr)
End Function


я сейчас сижу и кручу как бы можно было совместить вот с этим

Sub GetRange(FilePath As String, FileName As String, SheetName As String, _
SourceRange As String, DestRange As Range)

Dim Start

'Go to the destination range
Application.Goto DestRange

'Resize the DestRange to the same size as the SourceRange
Set DestRange = DestRange.Resize(Range(SourceRange).Rows.Count, _
Range(SourceRange).Columns.Count)

'Add formula links to the closed file
With DestRange
.FormulaArray = "='" & FilePath & "/[" & FileName & "]" & SheetName _
& "'!" & SourceRange

'Wait
Start = Timer
Do While Timer < Start + 2
DoEvents
Loop

'Make values from the formulas
.Copy
.PasteSpecial xlPasteValues
.Cells(1).Select
Application.CutCopyMode = False
End With
End Sub
Private Sub CommandButton1_Click()
Application.ScreenUpdating = True
On Error Resume Next

'Call the macro GetRange
GetRange "ftp://Individualnie/", "algorutm.xls", "Карта", "H21", _
Sheets("Лист1").Range("A1")

On Error GoTo 0
Application.ScreenUpdating = False
End Sub

Отдельно попробывал полседний скрипт работает, т.е. заходит на фтп и шарит, н овыдает СЦылка

и еще одно, указано так


При одинаковых названиях в файлах при копирывание выдает ошибку что файл такой уже существует. Может можно как то добавить 1 в конце этого фалй, а если это уже вторая будет копия то 2??

Реально это...?