переименование файла без указания полного пути

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

переименование файла без указания полного пути (Макросы/Sub)

halfcat

Дата: Четверг, 14.12.2017, 10:54 | Сообщение № 1

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

Ранг: Новичок

Сообщений: 12

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

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

Excel 2013

Здравствуйте. Прошу помощи. Необходимо переименовать 2 файла, которые лежат в папке на рабочем столе. один .xls, другой .pdf

насколько я знаю, для операций над файлами необходимо указывать полный пусть с расширением. Но мне нужно чтобы макрос переименовывал файл .xls и .pdf с любым именем.

На примере CMD это выглядело бы так
[vba]

Код

ren C:\*.pdf

[/vba]

то есть любой файл с расширением pdf.

Как это реализовать в VBA?

Пример того, что имею
[vba]

Код

rabstol = CreateObject("WScript.Shell").SpecialFolders("Desktop")
Dim sFileName As String, sNewFileName As String

    sFileName = rabstol & "\MR\" & "1.xls"    'имя исходного файла
    sNewFileName = rabstol & "\MR\"  & ActiveCell.Value & ".xls"    'имя файла для переименования
    Name sFileName As sNewFileName 'переименовываем файл

sFileName = rabstol & "\MR\" & "1.pdf"    'имя исходного файла
    sNewFileName = rabstol & "\MR\"  & ActiveCell.Value & ".pdf"    'имя файла для переименования
    Name sFileName As sNewFileName 'переименовываем файл

[/vba]

Можно вызвать CMD и переименовать там, но новое имя это значение активной ячейки и не знаю как это реализовать