Как найти имя компьютера vba

Обновлено: 21.11.2024

У меня есть несколько отчетов PeopleSoft nVision, к которым прикреплены макросы. PS nVision на клиенте можно рассматривать как оболочку Microsoft Excel, поэтому с этого момента мы будем рассматривать любой макет nVision как рабочую книгу Excel.

Эти рабочие книги находятся на разных серверах или могут запускаться на клиентском ПК. Многие из них используют шаблоны для создания окончательного отчета. Макросам нужен путь к шаблонам — и хотя структура каталогов в нашей разработке от QA до производственных сред остается неизменной — очевидно, что меняется имя компьютера.

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

Чтобы получить имя компьютера – в Общих объявлениях модуля кода добавьте:

Частная функция объявления GetComputerName Lib «kernel32» Псевдоним «GetComputerNameA» _
(ByVal lpBuffer As String, nSize As Long) As Long

Я также объявляю некоторые другие переменные:

Private Const MAX_COMPUTERNAME_LENGTH = 31
Private Const sNameUnknown = “NOT_FOUND”
Private mvalComputerName As String
Private mvalHaveValidName As Boolean

Затем все это объединяется в этой функции:

Частная функция ComputerNameIs() как строка
Dim lngLength As Long
Dim lngResult As Long
Затемнить strNameBuffer как строку
'Максимальное имя компьютера + завершающий нулевой символ
lngLength = MAX_COMPUTERNAME_LENGTH + 1
'Создать буфер
strNameBuffer = String(lngLength, “X”)
'Получить имя компьютера
lngResult = GetComputerName(strNameBuffer, lngLength)
If lngResult <> 0 Then
ComputerNameIs = Mid(strNameBuffer, 1, lngLength )
mvalHaveValidName = True
Else
ComputerNameIs = sNameUnknown
< em>mvalHaveValidName = False
Конец, если

Конец функции

Есть ли какое-либо свойство VBA и т. д., которое может получить имя компьютера, на котором оно запущено в данный момент?

Факты об Excel

Команда Excel увеличила размер сетки в 2007 году. В ней 2^20 строк и 2 ^ 14 столбцов, всего 17 миллиардов ячеек.

кмили

Обычная доска

ЛТунниклифф

Известный участник

Вы можете использовать это как пользовательскую функцию (например, в ячейке A1 введите =compname()) или как переменную в коде VBA.

Надеюсь, это поможет!

Скотт Ниаг

Активный участник

Похожие темы

Excel содержит более 450 функций, и с каждым годом их становится все больше. Это огромная цифра, так с чего же начать? Прямо здесь, с этим набором.

Статистика форума

Поделиться этой страницей

Мы обнаружили, что вы используете блокировщик рекламы.

Какой блокировщик рекламы вы используете?

Отключить AdBlock

Следуйте этим простым шагам, чтобы отключить AdBlock

1)Нажмите значок на панели инструментов браузера.
2)Нажмите значок на панели инструментов браузера.
2)Нажмите кнопку «Приостановить на этом сайте».

Отключить AdBlock Plus

Следуйте этим простым шагам, чтобы отключить AdBlock Plus

1)Нажмите значок на панели инструментов браузера.
2)Нажмите на переключатель, чтобы отключить его для «mrexcel.com».

Отключить источник uBlock

Следуйте этим простым шагам, чтобы отключить uBlock Origin

1)Нажмите значок на панели инструментов браузера.
2)Нажмите кнопку "Питание".
3)Нажмите кнопку "Обновить".

Отключить uBlock

Следуйте этим простым шагам, чтобы отключить uBlock

1)Нажмите значок на панели инструментов браузера.
2)Нажмите кнопку "Питание".
3)Нажмите кнопку "Обновить".

Перейти к:

Пример

  • Во-первых, необходимо создать образец данных с именем компьютера в ячейке B10 и именем пользователя в ячейке B11.

  • В рабочем листе Excel необходимо перейти на вкладку "Разработчик".
  • Затем вам нужно выбрать параметр Visual Basic в разделе «Код».

  • Теперь вам нужно скопировать и вставить приведенный ниже код.
  • Необходимо сохранить код, выбрав его, а затем закрыть окно.

  • Опять же, вам нужно перейти в электронную таблицу Excel и щелкнуть вкладку "Разработчик".
  • Необходимо выбрать параметр "Макросы" в разделе "Код".

  • Теперь вам нужно убедиться, что выбрано имя вашего макроса, и нажать кнопку "Выполнить".

  • Наконец, вы получите имя пользователя и имя компьютера, используя VBA в Excel.

Результаты

Мы надеемся, что это руководство поможет вам понять, как макрос возвращает имя пользователя и имя компьютера в Excel. Пожалуйста, оставьте комментарий в случае возникновения каких-либо вопросов и не забудьте также упомянуть ваши ценные предложения. Большое спасибо за посещение нашего сайта!! Продолжайте учиться на Geek Excel!! Подробнее о формулах Excel!!

Мы создали макрос «GetComputerUserName», чтобы найти компьютер и имя пользователя. Мы можем запустить макрос, нажав кнопку «Отправить». Макрос извлечет имя компьютера в ячейку C10 и имя пользователя в ячейку C11. Функция Environ возвращает строковое значение, связанное с переменной окружения операционной системы.

Какую функцию мы можем использовать для получения текущего имени пользователя и доменного имени?

Текущее имя пользователя можно получить с помощью функции GetUserNameA в ADVAPI32.

Как добавить пользователя в Excel VBA?

Нажмите клавиши Alt + F11, чтобы открыть окно Microsoft Visual Basic для приложений, нажмите «Вставить» > «Модуль», а затем скопируйте и вставьте нижеприведенный код VBA в окно «Модуль». VBA: введите имя пользователя.

Как выполнить автозаполнение имени пользователя в Excel?

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

Как найти имя моего компьютера в Microsoft Access?

Получить имя пользователя пользователя, вошедшего в сеть, или получить текущее имя компьютера в Microsoft Access:

  1. Окружающая среда("Имя компьютера")
  2. Окружающая среда("Имя пользователя")

Как извлечь имя пользователя из Excel?

Чтобы извлечь имя пользователя из адреса электронной почты, выберите пустую ячейку, чтобы поместить эту формулу = ВЛЕВО (A2, НАЙТИ («@», A2)-1), нажмите клавишу Enter и перетащите дескриптор заполнения вниз к ячейкам, которым это нужно. формула.

Как найти свое имя пользователя с помощью CMD?

В поле введите cmd и нажмите Enter. Появится окно командной строки. Введите whoami и нажмите Enter. Отобразится ваше текущее имя пользователя.

Как найти свой идентификатор пользователя ДЛЯ REST API?

Получить идентификатор текущего пользователя с помощью REST API в SharePoint

  1. «использовать строгое»;
  2. вар hostweburl;
  3. var appweburl;
  4. var context = SP.ClientContext.get_current();
  5. var user = context.get_web().get_currentUser();
  6. // Этот код запускается, когда модель DOM готова, и создает объект контекста, который готов.
  7. // необходимо использовать объектную модель SharePoint.

Читайте также: