Здравствуйте, уважаемые пользователи форума! Очень благодарен вам за всю помощь, которую вы мне оказываете! Счастья вам всем и благополучия!
Вопрос заключается в том, как можно открыть файл, находящийся в той же папке, что и файл Excel с макросом без указания "адреса" файла. Например, сейчас используется такая команда:

Код: (vb)

Workbooks.Open Filename:="C:\Users\kznts\OneDrive\Телемаркетинг\MindMap (Excel).xml"

Где-то видел, что есть такая команда типа "ThisFilePath" (дословно не помню, как это пишется). Можете подсказать, как подобным образом открыть файл?

Мне даже не сам файл нужен, а тексты макросов. Больше ничего.

Ничего не получается? О, Великие комбинаторы, как можно обогнуть систему? Буду Вам искренне благодарен!

Спасибо большое, дорогой друг! Понял: при скачивании из облака из браузера формат автоматически переводится из xlsm в xlsx. Попробую установить приложение Google диск. В этом случае такого не должно быть, т.к. это будет просто папка на компьютере и ничего скачивать не надо.
Благодарю Вас и желаю хорошего настроения!

Здравствуйте, уважаемые пользователя форума!
Был бы очень благодарен помощи. Суть в том, что я закинул файлы Excel с макросами в облако Google drive, потом переустановил операционную систему (не знаю имеет ли это какой-то смысл к произошедшему, скорее, нет, но, на всякий случай). Теперь эти макросы куда-то пропали: ни на одном компьютере с Excel макросы не отображаются. Может, есть какая-то надежда из восстановить? Да и, вообще, куда они делись?
Во вложении - один из файлов, в котором пропали макросы.
Спасибо Вам, что помогаете другим!

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

Здравствуйте, интересует такой вопрос: есть 4 макроса (возможно, будет больше), нужно красиво оформить. Прямоугольные кнопки смотрятся не очень хорошо. Какие ещё есть варианты?

извините, я понял, что нет смысла экспортировать файл через макрос: всё равно прийдётся периодически открывать freemind, чтобы что-то менять, а там всё очень удобно сделано (последний "путь" экспорта сохраняется, как я теперь понял). единственное улучшение - это не открывать вспомогательный файл, а макросом всё из него переписать (т.е. из xls в текущий xlsm). сейчас буду искать в интернете как это сделать. если кто-то заранее знает - пишите.

Всё, теперь понял.
Кстати, немного исправил (предыдущий вариант не совсем правильный был). но всё равно это не целевой код.
Во вложении - окончательный вариант. там 3 файла: скрипт.xlsm, скрипт (вспомогательный файл).xls и скрипт.mm
Основная мысль - в файле скрипт.xlsm (там уже всё скопировано из вспомогательного ф-ла после экспорта из freemind).

На самом деле, я дилетант в программировании. Можете привести пример. Фактически, для перевода Freemind в Excel нужен отдельный макрос: не всегда нужно его выполнять, а только после изменений в mindmap. Думаю, что код  должен быть небольшим. Если не сложно, можете образец написать?

Здравствуйте, интересует возможность перевода файла Freemind (это карта mindmap) в Excel с помоцщью VBA для дальнейшего макроса, который будет "ходить" по ячейка и задавать вопросы, содержащиеся в ячейках, в msgbox. Наверное, это прихоть: можно вручную делать через экспорт файла из Freemind в Excel. Вот ссылка с принтскринами, как я это делаю (если эта информация, конечно, нужна): https://1drv.ms/f/s!Ao3ZMLn7A00ukjJVHrxDIi-sdbTb
Файл сохраняется только в формате xls. Т.е. это будет дополнительный файл, как я понимаю (в xlsx не созраняется, не говоря уже об xlsm). Ну а потом переписать данные из этого вспомогательного файла не проблема. Хотелось бы, конечно, с помощью макроса это делать: mindmap будет постоянно видоизменяться, а эту программу будут использовать другие мои коллеги-телемаркетологи (возможно, кому-то будет неудобно постоянно производить дополнительные действия). Freemind - это не единственный вариант, который я рассматриваю (на мой взгляд, это был наиболее адекватный вариант). Основной смысл - создание и возможность постоянного видоизменения скрипта продаж: задаются вопросы, клиент на них как-то отвечает, задаются новые вопросы. Мне показалось, что удобно делать через mindmap: рисуются деревья, переводятся в Excel, ну а дальнейший макрос я написал, он очень простой:

Код: (vb)

Sub Скрипт()
Dim i, j As Integer
i = 2
j = 2
While (Cells(i, j).Value <> "")
 If MsgBox(Cells(i, j).Value, vbYesNo) = vbNo Then
 Do
  i = i + 1
 Loop Until Cells(i, j).Value <> ""
 End If
 i = i + 1
 j = j + 1
Wend
End Sub

Буду очень благодарен за помощь!