Выбор источника обновлений

[Bu$ter]

Sub t

est()
    With Application.FileDialog(msoFileDialogOpen)    'только для MS Excel XP и старше
        .InitialFileName = "c:\"
        .FilterIndex = 3
        .AllowMultiSelect = False
        If .Show = -1 Then
            Filename = .SelectedItems(1)        ' читаем путь выбранного файла
        Else
            Exit Sub           ' отмена чтения
        End If
    End With
    MsgBox "Выбран файл " & Filename, vbInformation, "Результат выбора файла"
End sub

Имя файла имеет следующий вид - "Скидки конкурентов 17.10.08"
Нужно выудить имя файла - подозреваю через ActiveWorkbook.Name,
а затем вставить в нужную ячейку дату из имени файла "Скидки конкурентов 17.10.08", но в виде "17 октября".
Как это можно реализовать?

[Bu$ter]

Sub test()
    With Application.FileDialog(msoFileDialogOpen)    'только для MS Excel XP и старше
        .InitialFileName = "c:\"
        .FilterIndex = 3
        .AllowMultiSelect = False
        If .Show = -1 Then
            Filename = .SelectedItems(1)        ' читаем путь выбранного файла
        Else
            Exit Sub           ' отмена чтения
        End If
    End With
    MsgBox "Выбран файл " & Filename, vbInformation, "Результат выбора файла"
End sub

Имя файла имеет следующий вид - "Скидки конкурентов 17.10.08"
Нужно выудить имя файла - подозреваю через ActiveWorkbook.Name,
а затем вставить в нужную ячейку дату из имени файла "Скидки конкурентов 17.10.08", но в виде "17 октября".
Как это можно реализовать?

[EducatedFool]

Нужно выудить имя файла - подозреваю через ActiveWorkbook.Name

Правильно подозреваете... если файл, имя которого надо получить, в данный момент активен.

Имя файла имеет следующий вид - "Скидки конкурентов 17.10.08"

вставить в нужную ячейку дату из имени файла "Скидки конкурентов 17.10.08", но в виде "17 октября"

Например, так:

Sub test()
    MsgBox GetDateFromFileName("Скидки конкурентов 17.10.08.xls")
End Sub

Function GetDateFromFileName(ByVal Filename As String) As String    ' возвращает дату, содержащуюся в имени файла
    GetDateFromFileName = "": Filename = CropFileExt(Filename)
    For i = 1 To Len(Filename)
        If Mid$(Filename, i, 1) Like "#" Then GetDateFromFileName = Trim$(Mid$(Filename, i)): Exit For
    Next
    If GetDateFromFileName = "" Then Exit Function
    If IsDate(GetDateFromFileName) Then GetDateFromFileName = CStr(Format(CDate(GetDateFromFileName), "dd mmmm"))
End Function

Function CropFileExt(ByVal Filename As String) As String    ' обрезает расширение у имени файла
    For i = Len(Filename) To 2 Step -1
        If Mid$(Filename, i, 1) = "." Then CropFileExt = Left$(Filename, i - 1): Exit Function
    Next
    CropFileExt = Filename
End Function

Теперь, если надо вставить дату из названия файла активного документа, к примеру, в ячейку F5, то можете использовать такой код:

[f5] = GetDateFromFileName(ActiveWorkbook. Name)

[Bu$ter]

СПАСИБО!!! Встречный вопрос, а если мы извлекаем дату не из активного документа, как тогда изменится код...

[EducatedFool]

если мы извлекаем дату не из активного документа

а из какого?

если из того, в котором выполняется код (этот документ может быть неактивен), то замените activeworkbook на thisworkbook

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

[f5] = GetDateFromFileName("Скидки конкурентов 17.10.08.xls")

[Bu$ter]

Спасибо, разобрался...

[Bu$ter]

И еще один встречный вопрос:
После выполнения макроса имеем ячейку типа "17 октября"
а как разделить ее на 2 - в первой октябрь, а во второй 17?

[EducatedFool]

После выполнения макроса имеем ячейку типа "17 октября"
а как разделить ее на 2 - в первой октябрь, а во второй 17?

А не проще ли в таком случае сразу записывать дату и месяц в отдельные ячейки.

Но можно и разделить. Например, так:

Sub test5()
    On Error Resume Next
    [e7] = "17 октября"
    [f7] = IIf(IsDate([e7]), Format(CDate([e7]), "dd"), "")
    [g7] = IIf(IsDate([e7]), Format(CDate([e7]), "mmmm"), "")
End Sub

Или так:

Sub test6()
    On Error Resume Next
    [e9] = "17 октября"
    [f9] = Val([e9])
    [g9] = IIf(InStr(1, [e9], " ") > 0, Mid$([e9], InStr(1, [e9], " ") + 1), "")
End Sub

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

[Bu$ter]

Все отлично работает, небольшое встречный вопрос -

[c58] = IIf(IsDate( ), Format(CDate(), "mmmm"), "")

вставляется название месяца, но с заглавной буквы.
Вопрос - как изменить код, чтобы название месяца было с прописной буквы?

Спасибо

[EducatedFool]

[c58] =IIf(IsDate( ), LCase(Format(CDate(), "mmmm")), "")