相关文章推荐
发财的煎饼果子  ·  excel vba ...·  2 周前    · 
深情的炒粉  ·  (VBA) 使用数组 | ...·  2 周前    · 
坏坏的葡萄酒  ·  SpringBoot ...·  1 年前    · 
安静的手套  ·  java - HikariPool-1 - ...·  1 年前    · 
有爱心的香烟  ·  OPC UA ...·  1 年前    · 

需要在access中获得当前的计算机用户,用于登陆sql server数据库

    ' Makes sure all variables are dimensioned in each subroutine.
     Option Explicit
     ' Access the GetUserNameA function in advapi32.dll and
     ' call the function GetUserName.
     Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
     (ByVal lpBuffer As String, nSize As Long) As Long
     ' Main routine to Dimension variables, retrieve user name
     ' and display answer.
     Sub Get_User_Name()
     ' Dimension variables
     Dim lpBuff As String * 25
     Dim ret As Long, UserName As String
     ' Get the user name minus any trailing spaces found in the name.
     ret = GetUserName(lpBuff, 25)
     UserName = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)
     ' Display the User Name
     MsgBox UserName
     End Sub
                    最近的项目里需要用VBA,比较郁闷,写程序越来越倒退了,用起VBA来了需要在access中获得当前的计算机用户,用于登陆sql server数据库                                         Makes sure all variables are dimensioned in each subroutine.     Opti
Option Explicit
Sub User_Log_Record()
Dim ip_1$, j, strcomputer, objwmi, coliP, IP, computer_name, i
Workbooks.Ope
Dim strLocalIP As String
Dim winIP As Object
aa = aa & "本机电脑名称:" & Environ("computername") & vbCrLf
aa = aa & "本机用户名称:" & Environ("username") & vbCrLf
Set winIP = CreateObject("M
				
如何使用VBA获取当前工作表的用户名呢?请看如下代码:Sub 获取当前工作表的用户名() MsgBox "当前工作表的用户名为:" & Application.UserName End Sub点击运行程序后,效果如下:点击下载附件 转载于:https://www.cnblogs.com/OliverQin/p/7340556.html...
Text1.text = VBA.Environ("computername") 获取用户名: text1.text=VBA.Environ("username")用API取计算机名: Private Declar...
Public Sub GetIPT() gipt = Trim(InputBox("请输入所在组,只需输入前面的字母代码即可 A- groupA B-groupB C-groupC D-groupD E-groupD ")) strIPT = UCase(gipt) If strIPT = "A" Then GetInfo ("AirBus"): End
b'vbapastespecial用法' 的意思是:VBAPasteSpecial方法的使用方式。 PasteSpecial是一个常用的VBA内置方法,用于粘贴剪贴板的内容到指定的单元格或范围,并可以选择性地应用一些操作。例如,可以选择只粘贴数值、格式、公式等。在VBA,使用PasteSpecial方法时,可通过参数来控制所需的操作。 举个例子,下面的代码演示了如何使用PasteSpecial方法将剪贴板的内容粘贴为数值格式: Range("A1").Select ActiveSheet.PasteSpecial Format:=3, Link:=False, DisplayAsIcon:=False 上述代码首先选择了A1单元格,然后调用PasteSpecial方法,指定了要粘贴为数值格式,并将Link和DisplayAsIcon两个参数设为False。 这样,就可以在VBA灵活使用PasteSpecial方法,完成各种剪贴板粘贴操作了。