Tag: networking服务
运行代码时没有任何事情发生
嗨，大家好，这是我的代码 但是，当我运行它没有发生，显然它运行在rest模式（debugging）。 我能做什么 ？ 干杯 Option Explicit Sub Button2_Click() Dim i&, j&, n& 'as Long Dim Ws As Worksheet Set Ws = ActiveSheet n = Ws.Cells(Ws.Rows.Count, "A").End(xlUp).Row For i = 1 To n Select Case .Cells(i, "A").Value2 Case "2015 Xor 2011": .Cells(i, 2).Value2 = "blue" Case "2001 Xor 2003": .Cells(i, 2).Value2 = "green" Case "2014 […]
Excel VBA和IE 11 – 在下拉菜单中select值后无法刷新页面
我正在尝试获得WorldRemit为一对货币提供的货币汇率。 我想要更改网页左上angular“发送自”下拉列表中的值。 （ https://www.worldremit.com/en/South-Africa ） 我无法使用.Selected = True或.Selected = Trueselect下拉选项，因此使用了.SelectedIndex 。 select该值后，我无法触发刷新页面的更改事件。 如果有人能帮我弄明白这一点，那会很棒。 导航到页面的代码： Set ie = CreateObject("InternetExplorer.Application") ie.Visible = True ie.navigate "https://www.worldremit.com/en/South-Africa" While ie.busy DoEvents Wend Set HTMLdoc = ie.document 使用.SelectedIndex属性select选项的代码： Dim fromSelect As HTMLSelectElement Set fromSelect = HTMLdoc.getElementById("selectFrom") optionIndex = Find_Select_Option(fromSelect, "Germany") If optionIndex >= 0 Then fromSelect.selectedIndex = optionIndex fromSelect.FireEvent ("onchange") ' […]
如何configurationCyber-ark以自动更新DCOM应用程序的密码
我有一个用于运行计划任务的服务器上的帐户。 我已经在Cyber-Ark密码保险库中设置了此帐户。 我设置了Cyber-Ark，只要帐号的密码被更改，就会自动用更新后的密码更新预定任务。 现在，我也手动设置“Microsoft Excel应用程序”的DCOMconfiguration使用相同的用户名并手动设置密码。 我想这也会自动更新当帐户的密码更改，但我不确定如何这样做。 我已添加“Microsoft Excel应用程序”与服务器的名称作为Cyberark中帐户的COM +应用程序选项卡中的地址。 我收到的错误是 中央策略pipe理器未能更改密码。 尝试使用用户app-adc-cyberark-rec在域fmi.com上连接到ADCP22WSAPX47.fmi.com上的ComPlus目录时出错。 本机错误消息：包含该组件的组件或应用程序已被禁用 当我把名字改成服务器上肯定不存在的东西（Micron Excel Application）时，我收到了同样的错误，所以我相信我不在服务器上设置一个关键的configuration，
无法在Excel 2016中刷新网页查询
自从几个星期以来，我使用的是Office 2016，而且我有一些Excel电子表格可以使用Web查询从我自己的Web服务中收集数据。 正如你所看到的，web服务在连接对话框中有正确的属性： 当我刷新时，我总是得到以下错误信息： 它是荷兰语，但错误消息显示“无法find数据源”。 正如你所看到的，webservice的url没有完全显示。 我在Google上找不到任何内容，但是在新版本的Excel中，有效的网页查询url的长度是否改变？ 它在Excel 2013和Excel 2010中工作得很好。
在vba中没有id刮html
我试图从网站http://us.spindices.com/indices/equity/sp-oil-gas-exploration-production-select-industry-获取月初至今的返回值，使用VBA 索引到Excel电子表格中。 问题是在页面的代码中没有“id =”，我知道这会使这个过程简单得多。 还有哪个时间段（年初至今或月初至今）是可见的，但我现在很高兴能够抓取MTD值。 这是我的代码： Sub Get_Change() 'attempting to scrape Barclay's website Dim appIE As Object Dim MyVar As String Set appIE = CreateObject("internetexplorer.application") With appIE .Navigate "http://us.spindices.com/indices/equity/sp-oil-gas-exploration-production-select-industry-index" .Visible = True End With Do While appIE.Busy DoEvents Range("A1").Value = "Working…" Loop Set TDelements = appIE.document.getElementsbyClassName("performance-chart-table") For Each TDelement In TDelements If TDelement.class = "change" […]
使用Excel / SheetsclosuresZoteronetworking图
我试图从我的Zotero书目中build立一个作者networking图。 我已经将数据库导出到.csv，并且需要在使用Gephi，Cytoscape等可视化软件之前进行编辑。 所以，我认为数据需要作为： Column 1 -> Author X Column 2 —> All authors who have worked with author X 这些数据将来自我目前的“作者”专栏，目前其格式如下： Row1: Author X; Author Y; Author Z Row2: Author A; Author B; Author C Row3: Author X; Author Z; Author B … 我如何处理这些数据？
如何使用VBA将JSON文件和参数发送到REST WebService
我想使用Excel / VBA将json文件和几个参数发布到REST WebService。 我设法发送json文件，但我不知道如何包含额外的参数。 有没有办法做到这一点？ 我使用的VBA代码如下所示： Dim URL As String, objHTTP As Object Set objHTTP = CreateObject("WinHttp.WinHttpRequest.5.1") URL = "http://localhost:8080/services/data/" objHTTP.Open "POST", URL, False objHTTP.SetRequestHeader "Content-type", "application/json" objHTTP.SetRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)" 'objHTTP.SetRequestHeader "id", "1234" objHTTP.Send json_table 正如您在注释掉的行中看到的那样，我尝试将参数作为RequestHeader发送，但这也不起作用。 我也负责WebService，以便可以在那里更改REST接口。 使用Java我想通过使用@QueryParam（“id”）或类似的读取参数。 我不想在json“文件”中包含参数，因为它的结构匹配我正在使用的实体。
使用Excel VBA在单个页面上刮掉多个标签
我正在尝试使用Excel VBA自动化一个网站，以从单页上的多个标签获取数据。 但它只是给第一个选项卡上的信息，我没有从第二个选项卡得到任何对象。 我正在使用下面的代码： Sub BrowseToSite() Dim IE As New SHDocVw.InternetExplorer Dim HTMLdoc As New MSHTML.HTMLDocument Dim HTMLInput, link As MSHTML.IHTMLElement Dim HTMLButtons, links, FButtons, Export As MSHTML.IHTMLElementCollection Dim HTMLButton As MSHTML.IHTMLElement IE.Visible = True IE.Navigate "URL" Do While IE.ReadyState <> READYSTATE_COMPLETE Loop Set HTMLdoc = IE.Document Set HTMLButtons = HTMLdoc.getElementsByTagName("a") For Each HTMLButton In […]
Python：TypeError：必须是str，而不是字节
我试图编写处理HTML网页的代码，并创build一个Excel表格。 有抛出的错误。 请让我知道是否有人可以帮忙。 我跑了很多代码被评论。 我也想包括这一点。 book = xlwt.Workbook(encoding="utf-8") sheet1 = book.add_sheet("Product List") i=0 for row in soup.findAll('li', { "class" : "product-link" }): link = row.a['href'] #print(link) #print(link[23:]) conn = http.client.HTTPSConnection("www.sanjamar.com") conn.request("GET", link[23:]) req = conn.getresponse() #print(req.status, req.reason) data2 = req.read() soup2=BeautifulSoup(data2) Name=soup2.find('title') Name_text = Name.text words = Name_text.split('|') Name = words[0] print(Name) if len(soup2.find_all("div", {"id":"productDescription"})) […]
VBAparsing和检索从HTML到Excel的数据
我正在尝试在VBA中编写一个macros来将数据从网站传输到电子表格。 我的问题是，我的代码不会产生任何结果的href，innertext等，你能帮助build议我的代码是错误的？ 这里是一个样本的HTML – 我试图检索批号41151和描述。 <tr class=''> <td class='lot_column'> <div class='lot_number'> <span class='lot_digits'>41151</span> <br /> <a href='property_information.pl?lot=41151' class='sd_button blue'><span>View Data</span></a> </div> </td> <td> <div class='short_desc'>Michael L. Hanisko, A/I/F for Shirley Isackson – Winterfield Richfield Unit and Grout Unit (Producing MI/RI) – Clare and Gladwin Counties, Michigan</div> <div class='headline'>7 Mo. Av. Cash Flow $15/mo</div> <div class='message'></div> […]
