需要在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'vba中pastespecial用法' 的意思是:VBA中PasteSpecial方法的使用方式。
PasteSpecial是一个常用的VBA内置方法,用于粘贴剪贴板中的内容到指定的单元格或范围中,并可以选择性地应用一些操作。例如,可以选择只粘贴数值、格式、公式等。在VBA中,使用PasteSpecial方法时,可通过参数来控制所需的操作。
举个例子,下面的代码演示了如何使用PasteSpecial方法将剪贴板中的内容粘贴为数值格式:
Range("A1").Select
ActiveSheet.PasteSpecial Format:=3, Link:=False, DisplayAsIcon:=False
上述代码首先选择了A1单元格,然后调用PasteSpecial方法,指定了要粘贴为数值格式,并将Link和DisplayAsIcon两个参数设为False。
这样,就可以在VBA中灵活使用PasteSpecial方法,完成各种剪贴板粘贴操作了。
|