Tag: networking服务

使用VBA Excel从embedded式网页提取数据: 我正尝试在Excel中使用VBA来访问embedded在网页中的网页中的数据。我知道如何做到这一点，如果表是在一个非embedded式的页面。我也知道如何使用VBA导航到该产品的页面。我不能导航到embedded式页面，因为有一个产品ID查找，将零件号码转换为ID，我没有访问该数据库。以下是该页面的链接： http : //support.automation.siemens.com/WW/view/en/7224052 我会提出清晰的元素的图片，但我没有10个重点… 我需要获取信息的表格是“产品生命周期”表格。如果我使用下面的代码将页面保存为VBA中的HTMLDocument，则可以在相应的项目下的src属性中看到正确的url： For Each cell In Selection link = "http://support.automation.siemens.com/US/llisapi.dll?func=cslib.csinfo&lang=en&objid=" & cell & "&caller=view" ie.navigate link Do DoEvents Loop Until ie.readyState = READYSTATE_COMPLETE Dim doc As HTMLDocument 有没有办法用VBA索引这个表格，或者我需要联系公司并尝试访问产品ID，以便我可以直接导航到页面？关于我下面的评论，这是一个录制的macros的代码： ActiveCell.FormulaR1C1 = _ "http://support.automation.siemens.com/WW/llisapi.dll?func=cslib.csinfo&lang=en&objid=6ES7194-1AA01-0XA0&caller=view" Range("F9").Select With ActiveSheet.QueryTables.Add(Connection:= _ "URL;http://support.automation.siemens.com/WW/llisapi.dll?func=ll&objid=7224052&nodeid0=10997566&caller=view&lang=en&siteid=cseus&aktprim=0&objaction=csopen&extranet=standard&viewreg=WW" _ , Destination:=Range("$F$9")) .FieldNames = True .RowNumbers = […]

使用VBA在网页上inputJavascript表单: 源代码： <TD VALIGN="BOTTOM" HEIGHT="24"><A HREF="javascript:processSearchForm (document.frmSearchForm)"><IMG SRC="/RDPANN/pbs/images/funcsearch.gif" BORDER="0" WIDTH="68" HEIGHT="18"></A></TD> 我正在尝试使用上面列出的代码在网站上提交表单。网站上的searchfunction似乎有一个图像被列为searchbutton，我无法弄清楚searchfunction的ID是什么。

Drive.exists（从A1：A26的单元格中selectstring）: 我目前正在研究一个macros来检查是否正在使用某个驱动器。我得到的代码工作，但是它只是基于我提供的一个字母驱动器。我想要它做的是，我希望它在A到Z之间循环，直到我find一个不被使用的。 DriveExists("D:\") 正如你所看到的（“D：\”）是我指定它find的。我想要的是什么 DriveExists("Cells A1:A26") 无法得到代码工作，将不胜感激一些帮助！提前致谢！

将特定的HTML元素从网页复制到Excel: 我正在尝试自动化一个相当基本的副本，并从某个网站粘贴到Excel。要到达所需的网页，我必须从网页上的combobox中select特定的项目。我已经pipe理这部分： Sub CopyThat() Dim IE As Object Dim htmlButton Set IE = CreateObject("internetexplorer.application") IE.Visible = True IE.navigate "http://www.uvo.gov.sk/evestnik/-/vestnik/search" While IE.Busy DoEvents Wend IE.Document.getElementById("druhOznamenia").Value = "6" IE.Document.getElementById("druhZakazky").Value = "0" IE.Document.getElementById("druhPostupu").Value = "0" IE.Document.getElementById("datumZverejneniaOd").Value = "01.07.2013" IE.Document.getElementById("datumZverejneniaDo").Value = "30.11.2014" Set tags = IE.Document.getElementsByTagName("Input") For Each tagx In tags If tagx.Type = "submit" And tagx.Value = […]

从不同的工作表名称的Excel工作表中刮擦数据: 我有许多excel电子表格与他们的数据。我想find所有的Excel电子表格，去一个特定的工作表，并find一个特定的单元格。每张电子表格对应于一名患者，其中一张工作表具有患者在特定细胞中接受的剂量。然后，我可以绘制每张电子表格的价值随时间变化的情况。但是，在一些工作簿中，工作表被称为不同的东西，或者处于不同的索引值。是否有任何解决scheme，不涉及我手动重命名/移动1000+电子表格工作表我有，所以他们都在相同的格式？这是我有的代码，如果他们都在工作表索引5。 #finds all excel files import os path = 'C:\Users\malonc01\Desktop\QC' files = os.listdir(path) files_txt = [i for i in files if i.endswith('.xlsx')] print files_txt # Gets data from excel files: import xlrd Data = [] Time = [] for i in files_txt: workbook = xlrd.open_workbook(str(path) + "\\" + str(i)) […]

修改数据检索macros: 我有下面的代码，从两个页面，需要login拉表。代码打开IE浏览器，进入login页面，放入证书，然后拉2个表。但是，如果IE已经与用户login，它会直接将您带到此页面（因此没有login字段，因此代码错误）： https ： //www.example.com/taskprocessing/manage.jsp 我需要添加一条IF语句，如果它login到此页面上，单击此链接注销，然后继续使用凭据login： https ： //www.example.com/taskprocessing/logout.jsp Sub GetTable() Set ie = CreateObject("InternetExplorer.Application") With ie .Visible = True .Navigate "https://www.example.com/taskprocessing/login.jsp" Do Until .ReadyState = 4 DoEvents Loop .Document.all.Item("Username").Value = "username123" .Document.all.Item("Password").Value = "password123" .Document.forms(0).submit End With With ActiveSheet.QueryTables.Add(Connection:= _ "URL;https://www.example.com/taskprocessing/report_pending_tasks.jsp", Destination:=Range("J1")) .WebSelectionType = xlAllTables .WebFormatting = xlWebFormattingNone .WebPreFormattedTextToColumns = True .WebConsecutiveDelimitersAsOne = […]

在服务下运行时，Excel无法看到Windows映射驱动器: 我有一个作为服务运行的应用程序。此应用程序允许用户连接并启动用户的Windows帐户下的subprocess。换句话说，mydomain \ john通过TCP连接到服务，并说“启动”，它启动在mydomain \ john帐户下运行的窗口上的进程。接下来，这个subprocess可以映射驱动器T：使用net use命令。然后该过程可以运行映射的驱动器T：上的VB脚本。到目前为止没有麻烦。当VB脚本尝试使用“createObject”运行Excel时，会出现问题。使用DCOMCNFG设置DCOM启动设置并在systemprofile文件夹中创build缺less的“桌面”文件夹后，仍然无法使其工作。奇怪的是，如果运行我的VB脚本，并提供Excel的UNCpath\文件服务器\共享1而不是T：\脚本的作品。有谁知道为什么Excel将无法访问T：\映射，但没有与UNCpath的问题？

如何从VBA Excel中更改PC的MAC地址: 如何从VBA Excel中更改PC的MAC地址。每次macros运行时我都需要分配一个随机码。注：我知道通过batch file改变它。但是，这里的要求是通过Excelmacros。

根据工作表中的内容从网站获取数据: Sub try() Dim ie As Object Dim MyHTML_Element As IHTMLElement Dim MyURL As String Dim MyURLSer As String Set ie = CreateObject("InternetExplorer.Application") On Error GoTo Err_Clear MyURL = "[http://test.com/login][1]" Set MyBrowser = New InternetExplorer MyBrowser.Silent = True MyBrowser.navigate MyURL MyBrowser.Visible = True Do Loop Until MyBrowser.readyState = READYSTATE_COMPLETE Set HTMLDoc = MyBrowser.document HTMLDoc.all.j_username.Value = "User" […]

Web查询和error handling程序所需的循环: 我有MAC ID的列表。我试图find所有的供应商的细节。我尝试了一个，但我需要它，直到A列（所有MAC ID我提到的地方）结束。如果没有find，那么只需跳过，它必须移动到下一个循环，并粘贴到下面。我做了一个。 Sub FindMACTest() With ActiveSheet.QueryTables.Add(Connection:= _ "URL;http://www.coffer.com/mac_find/?string=" & Range("A1"), Destination:=Range _ ("$I$1")) .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .BackgroundQuery = True .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .WebSelectionType = xlSpecifiedTables .WebFormatting […]