Модераторы: mihanik
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Запись сетевого пути в xl, формулой 
:(
    Опции темы
kashemirny
Дата 2.10.2009, 00:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 114
Регистрация: 12.11.2007

Репутация: нет
Всего: нет
В файл xl, назовем его журнал,  идет запись с 5-6 компьютеров - макросом формируются строки. Хотелось бы сделать так, чтобы в каждую строку журнала записывалась служебная информация -  сетевой путь или имя пользователя - для отслеживания компьютера, который формировал строку. 
Например, 

строка 1: \\termech\
строка 2: \\dubinin\
и т.д.

Уважаемые гуру, подскажите, как это можно реализовать через формулу (желательно без VBA)?
PM MAIL   Вверх
FINANSIST
Дата 2.10.2009, 09:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Статус: Жив
**


Профиль
Группа: Участник
Сообщений: 526
Регистрация: 11.4.2008
Где: Москва

Репутация: 5
Всего: 23
Без VBA не решить

Код

=Autor()


Код

Function Autor() As String
Dim obj As Object: Dim user As String
Set obj = CreateObject("Wscript.Shell")
Let user = obj.ExpandEnvironmentStrings("%USERNAME%")
Debug.Print user
Let Autor = user
End Function



--------------------
“...Брали корову рыжую одну, отдавать будем корову рыжую одну, чтобы не нарушать отчетности”
Эдуард Успенский, “Каникулы в Простоквашино”
PM MAIL ICQ   Вверх
Akina
Дата 2.10.2009, 10:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 13
Всего: 454
Цитата(FINANSIST @  2.10.2009,  10:46 Найти цитируемый пост)
Let user = obj.ExpandEnvironmentStrings("%USERNAME%")

Переменная среды запросто подменяется...


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
FINANSIST
Дата 2.10.2009, 10:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Статус: Жив
**


Профиль
Группа: Участник
Сообщений: 526
Регистрация: 11.4.2008
Где: Москва

Репутация: 5
Всего: 23
Цитата(Akina @  2.10.2009,  10:21 Найти цитируемый пост)
Переменная среды запросто подменяется... 

Альтернатива?


--------------------
“...Брали корову рыжую одну, отдавать будем корову рыжую одну, чтобы не нарушать отчетности”
Эдуард Успенский, “Каникулы в Простоквашино”
PM MAIL ICQ   Вверх
Akina
Дата 2.10.2009, 10:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 13
Всего: 454
WshNetwork.UserName
Есть и другие варианты... но я бы не за WSH дёргал, а за WMI.


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
kashemirny
Дата 2.10.2009, 16:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 114
Регистрация: 12.11.2007

Репутация: нет
Всего: нет
FINANSIST, все работает на ура, спасибо  smile 
ваш код вставил в журнал на лист Заставка в A1 и получил юзернэйм - все как бы хорошо, но:

в персонале у меня макрос, который выполняет операции над журналом, пример:

Код

    Sub Proverka ()
      If Range("Заставка!A1") = "dubinin" Then
       Sheets("Расчет").Visible = True
       Sheets("Расчет").Unprotect ("pass")
       ' и много чего другого
      Else: MsgBox ("Вы не Дубинин!")
      End If 
    End Sub


помогите сделать проверку шести юзеров (чтобы код был коротким  smile  )



Это сообщение отредактировал(а) kashemirny - 2.10.2009, 19:54
PM MAIL   Вверх
FINANSIST
Дата 5.10.2009, 09:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Статус: Жив
**


Профиль
Группа: Участник
Сообщений: 526
Регистрация: 11.4.2008
Где: Москва

Репутация: 5
Всего: 23
Код

select case Autor
case "User1"
Sheets("Расчет").Visible = True
       Sheets("Расчет").Unprotect ("pass")
       ' и много чего другого
case else
Sheets("Расчет").Visible = xlveryhidden     
       ' и много чего другого
end select


Цитата(Akina @  2.10.2009,  10:49 Найти цитируемый пост)
WshNetwork.UserName
Есть и другие варианты... но я бы не за WSH дёргал, а за WMI. 


Akina, в каком контексте использовать WMI ? (фрагмент кода)


--------------------
“...Брали корову рыжую одну, отдавать будем корову рыжую одну, чтобы не нарушать отчетности”
Эдуард Успенский, “Каникулы в Простоквашино”
PM MAIL ICQ   Вверх
Akina
Дата 5.10.2009, 09:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 13
Всего: 454
Код

strComputer = "." 
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2") 
Set colItems = objWMIService.ExecQuery( _
    "SELECT * FROM Win32_OperatingSystem",,48) 
For Each objItem in colItems 
    Wscript.Echo "-----------------------------------"
    Wscript.Echo "Win32_OperatingSystem instance"
    Wscript.Echo "-----------------------------------"
    Wscript.Echo "RegisteredUser: " & objItem.RegisteredUser
Next




--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Работа с MS Office"
mihanik staruha

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами


  • Несанкционированная реклама на форуме запрещена
  • Пожалуйста, давайте своим темам осмысленный, информативный заголовок. Вопль "Помогите!" таковым не является.
  • Чем полнее и яснее Вы изложите проблему, тем быстрее мы её решим.
  • Оставляйте свои записи в "Книге отзывов о работе администрации"

Если Вам понравилась атмосфера форума, заходите к нам чаще!
С уважением mihanik и staruha.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Работа с MS Office | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0480 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.