Сохранение изображения в определенную папку через userform

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Сохранение изображения в определенную папку через userform (Макросы/Sub)

Amon

Дата: Пятница, 25.05.2018, 16:55 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 65

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Добрый день.

В документе примере есть макрос который проверяет наличие каталога и если его нету то создает.
Добавил форму с кнопками добавить из проводника и добавить из буфера обмена, добавляться будут картинки jpg bmp в папки которые вот создаются макросом.
1)Нужно чтобы при нажатии commandbutton в userform открылся проводник и сохранение производилось именно в нужную директорию которая в той же папке что и документ ( ThisWorkbook.Path \ и тд\)
2)И если не трудно что-то подобное сделать для другой кнопки чтобы изображения из буфера вставлялось тоже в нужную директорию ( ThisWorkbook.Path \ и тд\)

Сейчас первый пункт я пытаюсь сделать так, но пишет что не может найти файл.
Dest публичная переменная
[vba]

Код

With payrs    'Лист Workbooks("primer.xlsm").Sheets("Поступление оплаты").Range("d3")
    Dim sh As Worksheet
    Dim org
        org = Workbooks("primer.xlsm").Sheets("Поступление оплаты").Range("d3")
            Set sh = Workbooks("primer.xlsm").Sheets("Поступление оплаты")
                rls = ThisWorkbook.Path & "\Скриншоты\" & org
                    Dest = ThisWorkbook.Path & "\Скриншоты\" & org & "\" & sh.Name
                If Dir(ThisWorkbook.Path & "\Скриншоты", vbDirectory) = "" Then
                    MkDir (ThisWorkbook.Path & "\Скриншоты")
                End If
                    If Dir(rls, vbDirectory) = "" Then
                        MkDir (rls)
                    End If
                        If Dir(Dest, vbDirectory) = "" Then
                            MkDir (Dest)
                        End If
Dim File As Variant
Dim FSO As Object
  Set FSO = CreateObject("Scripting.FileSystemObject")
  File = Application.GetOpenFilename("Image Files (*.jpg),*.jpg", , "Select Image File", , "False")
  FSO.CopyFile "File", "Dest", 0
End With

[/vba]
Спасибо!

Код

[/vba]
Спасибо!Amon

К сообщению приложен файл: Primer.xlsm (26.5 Kb)

Ответить

СообщениеДобрый день.

В документе примере есть макрос который проверяет наличие каталога и если его нету то создает.
Добавил форму с кнопками добавить из проводника и добавить из буфера обмена, добавляться будут картинки jpg bmp в папки которые вот создаются макросом.
1)Нужно чтобы при нажатии commandbutton в userform открылся проводник и сохранение производилось именно в нужную директорию которая в той же папке что и документ ( ThisWorkbook.Path \ и тд\)
2)И если не трудно что-то подобное сделать для другой кнопки чтобы изображения из буфера вставлялось тоже в нужную директорию ( ThisWorkbook.Path \ и тд\)

Сейчас первый пункт я пытаюсь сделать так, но пишет что не может найти файл.
Dest публичная переменная
[vba]

Код

[/vba]
Спасибо!

Автор - Amon
Дата добавления - 25.05.2018 в 16:55

Amon

Дата: Пятница, 25.05.2018, 18:38 | Сообщение № 2

Группа: Пользователи

Ранг: Участник

Сообщений: 65

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

все разобрался) Спасибо
[vba]

Код

fso.CopyFile file, Dest & "\"

[/vba]

Ответить

Сохранение изображения в определенную папку через userform (Макросы/Sub)

Страница 1 из 1
1