Статьи из блога

Как сохранить в переменной имя выбранной директории

Андрей интересуется:

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

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

Sub getPathName()
'получение пути из диалога
Dim fileDlg As FileDialog
Dim fName As String
Set fileDlg = Application.FileDialog(msoFileDialogFolderPicker)
With fileDlg
   If .Show = -1 Then
      fName = .SelectedItems(1)
   End If
End With
MsgBox fName
End Sub

Если вы не знаете, как подключить к документу и применить эти макросы, изучите следующие заметки с сайта:

Создание макроса из готового кода

Автоматическая запись макроса

twitter.com facebook.com vkontakte.ru odnoklassniki.ru mail.ru ya.ru rutvit.ru myspace.com technorati.com digg.com friendfeed.com pikabu.ru blogger.com liveinternet.ru livejournal.ru memori.ru google.com bobrdobr.ru mister-wong.ru yahoo.com yandex.ru del.icio.us
Вы можете помочь в развитии сайта, сделав пожертвование:

Или помочь сайту популярной криптовалютой:

 

BTC Адрес: 1Pi3a4c6sJPbfF2sSYR2noy61DMBkncSTQ

 

ETH Адрес: 0x7d046a6eaa1bd712f7a6937b042e9eee4998f634

 

LTC Адрес: LUyT9HtGjtDyLDyEbLJZ8WZWGYUr537qbZ

 

DOGE Адрес: DENN2ncxBc6CcgY8SbcHGpAF87siBVq4tU

 

BAT Адрес: 0x7d046a6eaa1bd712f7a6937b042e9eee4998f634

 

XRP Адрес: rEb8TK3gBgk5auZkwc6sHnwrGVJH8DuaLh Депозит Tag: 105314946

 

USDT (ERC-20) Адрес: 0x7d046a6eaa1bd712f7a6937b042e9eee4998f634

 

Яндекс Деньги: 410013576807538

 

Вебмани (R ещё работает): R140551758553 или Z216149053852

 

А тут весь список наших разных крипто адресов, может какой добрый человек пожертвует немного монет или токенов - получит плюсик в карму от нас :) Благо Дарим, за любую помощь!

 

Еще записи по вопросам использования Microsoft Word:

Комментариев: 4

  1. Никита
    18.05.2009 в 12:06 | #1

    А как дальше использовать полученную переменную в Workbooks.OpenText Filename:= ?

  2. Никита
    18.05.2009 в 12:48 | #2

    И ещё, не по теме, короткий вопрос. Как получить имя последней (правой, нижней) ячейки с информцией?

    Я хочу выделить всю таблицу и мне нужно подставить в XX имя последней заполненной ячейки.

    Range("A1:XX").Select

    Спасибо. И извините, за дурацкие вопросы. smile

  3. Никита
    18.05.2009 в 13:39 | #3

    По второму вопросу в итоге сделал так:

    Range(Selection, Selection.End(xlToRight)).Select

    Range(Selection, Selection.End(xlDown)).Select

    Выделяется всё заполенное поле.

  4. 18.05.2009 в 14:34 | #4

    Никита, это сайт по Word. Если у вас есть вопросы по Excel, то рекомендую посетить сайт Алексея Шмуйловича http://msexcel.ru/

Оставьте комментарий!

(обязательно)

^ Наверх