Tag: login

VBA Excel SSO到SAP /运行时错误70“拒绝访问”

我花了几个小时find问题。 我想用ini文件启动SAP Logonpad，工作正常。 然后绑定到脚本对象后，我想打开连接到特定的系统，连接= SapGui.OpenConnection（“SID”，True），但总是得到运行时错误70访问被拒绝。 我跟着别人似乎做什么用vbs，对于某些我不能用vbs做的事情，必须去与vba，所以也许可能会有一些差异，使它失败？ 任何意见将不胜感激。 Private Sub CommandButton1_Click() Dim SapGui As Object Dim saplogon As Object Dim connection 'As Object Set SapGui = GetObject("SAPGUI") Dim Wshshell As Object Set Wshshell = CreateObject("Wscript.Shell") Wshshell.Run Chr(34) & ("C:\Program Files\SAPPC\FrontEnd\SAPgui \saplogon.exe") & Chr(34) & " " & "/INI_FILE" & "=" & Chr(34) & "\\longpathtoini\appl\Sap\saplogon\int\saplogon.ini" & Chr(34) […]

使用login名+密码的VBA Web查询

早上好， 使用已经在这里回答的问题，我仍然无法获得任何代码为我的特定网站工作，不幸的是，因为它是一个内部网站，我不能分享实际的网站。 该网站是一个.jsplogin页面可以导致这个问题？ macros在IE中打开login页面，但不会将任何用户数据input到字段中或当前提交。 一旦macros运行，我也会收到错误消息“被调用的对象已经从它的客户端断开”。 微软的互联网控件是活跃的，并且Forms 2.0在参考中也是活跃的 我是相当新的VBA如果我错过任何明显的请让我知道，我已经降低了IE内的安全设置。 编辑我有点确定这是做我的表单ID，但我不明白我哪里出错了？ Sub GetTable() Dim ieApp As InternetExplorer Dim ieDoc As Object Dim ieTable As Object Dim clip As DataObject 'create a new instance of ie Set ieApp = New InternetExplorer 'you don't need this, but it's good for debugging ieApp.Visible = True 'assume we're not logged in […]

excel vba创buildlogin屏幕

并提前感谢帮助。 我正在创build一些工作簿的login屏幕在此工作簿正在打开我有“userform1.show”，并在用户表单我硬编码的用户名和密码。 当userform1popup询问用户名和密码时，我可以点击X，它只是closures窗体，用户仍然可以使用工作簿。 我如何让Xclosures整个工作簿。 我不知道在VB中调用X. 我已经尝试了所有3个选项“application.enablecancelkey”，但没有任何工作。 一）是正确的方式去呢？ B）如果是我在哪里放？

网站login不能识别getelementbyID方法

我对VBA比较陌生。 我喜欢这个。 我需要login到网页和浏览几页。 我一直在用*调用login信息，没有问题。 我来到一个新的网站，它拒绝接受我的意见。 我不得不修改我的代码到这个**。 此外，当我说.elements（“密码”）它在URL行input密码。 即使我告诉它使用正确的ID。 真奇怪的是，如果你一步一步地完成，那将是行不通的。 只有在运行macros时才有效。 我所知道的是，有一些Javascriptvalidation程序，所以我不能只传递login的价值，我必须键入它。因此，sendkeys。 我没有得到的是为什么它会find用户ID框来放置login信息，但是当它读下一行说“把密码放在这里”的时候，它会横向走。 我不太了解VBA来问正确的问题。 这应该是一件容易的事情。 * With ieDoc .getElementById("UsernameIDvar").Value = LoginVal .getElementById("PasswordIDvar").Value = PassVal .all("loginbuttonvar").Click End With ** ieDoc is Internetexplorer.Application.Documents LoginVal and PassVal is a string pulled from an excel spreadsheet With ieDoc.forms("lqLogin") .elements("user").Click SendKeys (LoginVal), True .elements("password").Click SendKeys (PassVal), True .submit End With 网站代码： […]

Excel VBA通​​过使用用户名和密码的Excel加载项login

我在Excel中安装了一个加载项。 每次我打开Excel这样的login会popup一个窗口，并要求input用户名和密码，以使用添加function。 我知道Excel VBA可以通过用户名和密码在Gmail中login。 想知道如果Excel VBA能够自动login这样的ADD IN，而不必每次都input用户名和密码。 提前致谢。 任何提示将不胜感激！ 我需要自动打开这个电子表格并login插件，以便在后台做一些更新。

VBA以2步loginlogin网站

作为标题说我有一个错误在htdoc.all.verificationcode.Value = otp 它说运行时错误'438'：对象不支持这个属性或方法 我花了一个下午的时间试图找出有什么问题，我真的希望你们能帮我一把。 Dim HTMLDoc As HTMLDocument Dim htdoc As HTMLDocument Dim MyBrowser As InternetExplorer Sub login() Dim username As Range Dim password As Range Dim otp As Range Dim myValue As Variant Dim MyHTML_Element As IHTMLElement Dim MyURL As String MyURL = "XXXXXXXXXXXXXXXXXXXXXX" Set MyBrowser = New InternetExplorer MyBrowser.silent = True MyBrowser.navigate […]

当员工当前login到excel vba时禁用loginbutton

员工login系统使用vba userform。 我可以捕获员工姓名和login时间，并将其放在工作表中。 但是，当前login的员工仍然可以login系统。 我想阻止它发生。 这是我的表单的截图。 [ ] 码： Dim CM As Boolean Private Sub cmdLogin_Click() With Worksheets("May_1st").Range("A65536").End(xlUp) .Offset(1, 0) = UserForm1.txtName.Value .Offset(1, 1) = UserForm1.txtEmpID.Value .Offset(1, 2) = UserForm1.txtTime.Value End With 'Unload Me 'Optional: Close Userform1 txtName.Value = "" txtEmpID.Value = "" txtEmpID.SetFocus End Sub Private Sub cmdLogOut_Click() 'Worksheets("May_1st").Range("D65536").End(xlUp).Offset(1) = Format(Now, "hh:mm:ss") 'Unload Me […]

如何从文本框中捕获时间并将其粘贴到Excel表格中

员工login系统使用excel与macros。 员工将input员工ID，然后在txtName中显示他们的姓名。 如果他们点击loginbutton，我希望能够捕获login时间并将其粘贴到Excel表格中，然后在注销时反之亦然。 这是截图： 第二个屏幕截图： 以下是目前的代码： Dim CM As Boolean Private Sub txtEmpID_Change() Dim mySheet As Worksheet Dim myRange As Range Set mySheet = Sheets("Emp_ID") Set myRange = mySheet.Range("B:B").Find(txtEmpID.Value, , , xlWhole) If Not myRange Is Nothing Then txtName.Value = myRange.Offset(0, -1) Else txtName.Value = "Match not found" End If End Sub Private Sub UserForm_activate() […]

使用Excel VBA获得一个表用户名和login名

我正试图从一个网站获得一张桌子。 问题是我需要先login才能访问这些信息。 我的代码如下。 我遇到了一个路障，我发现的大部分指南都不适用于这个网站。 感谢你的帮助。 Private Sub Worksheet_Change(ByVal Target As Range) Dim KeyCells As Range ' The variable KeyCells contains the cells that will cause an alert when they are changed. Set KeyCells = Range("H1") If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then ' Clear contents of Sheet 1 ' Worksheets("Sheet1").Cells.Clear Range("A1").Select ' 'Login to the […]

保持运行时错误VBA

我试图通过主login页面和第二个一次性密码（OTP）页面login到我的网站。 但我越来越和错误 运行时错误“-2147467259（80004005）”： 自动化错误 未指定的错误 发现在这一行： If InStr(wd.document.Title, "Sales Force Automation") <> 0 Then 我在这里做错了什么？ 我刚刚从2天前开始学习这门语言。 Dim wd As SHDocVw.InternetExplorer Sub login() Dim username As Range Dim password As Range Dim otp As Range Dim myValue As Variant Set wd = CreateObject("InternetExplorer.Application") wd.silent = True wd.navigate "Http://www.XXXXXXXXXXX.com" wd.Visible = True Set username = Range("B1") Set […]