Tag: 网站

VBA网页抓取innertertext: 我现在已经尝试了相当一段时间来networking刮这个innertext文字：我想将值0606复制到Excel工作表 <TABLE class="group" <td width="100%" nowrap="" colspan="3"> <input name="pg41_PolicyHolder_FogP_PolicyHolderId_FogP_IdentityQualifier" type="HIDDEN" value="CPR">CPR-nr: <input name="pg41_PolicyHolder_FogP_PolicyHolderId_FogP_IdentityValue" type="HIDDEN" value="0606">0606</td> 我已经尝试了get.attribute，getelementbyclassname，value和innertext，但现在我需要一些新鲜的眼光。你们有没有一个好主意？

如何在刷新后保持Web导入数据的新结构？: 我正在创build一个Excel数据库。我想从公司网站上input公司所有员工的姓名，电子邮件和工作职位。我selectData-> From Web并select整个页面，因为这是唯一的可能性。该页面显示没有数据的表格; 只是一长串名单，电子邮件和旁边的工作职位的雇员的照片我将数据导入到我的Excel电子表格中：格式非常糟糕。因此，我开始剪切和粘贴创build一个“姓名”，一个“电子邮件”和类似的“职位”列。所有其他信息被手动取消。我想刷新保持这种新格式的数据。不幸的是，每次使用“全部刷新”button刷新导入的数据时，它们都会返回到原始格式。如何在刷新后保持我的Web导入数据的新格式？我感谢大家的支持！ Kr，A

为什么这个PHP PDO函数不能从数据库中返回值？: 我有一个Web应用程序接受Excel电子表格，分析数据，并将数据添加到MySQL数据库。一些床单很好，一切按预期工作。但是有些纸张在他们应该的时候没有返回。在input数据之前，我有一个通用函数，它将检查该表的值，然后返回true或false 。这个函数看起来像这样： //Check if a sql will return with any values function tableCheck($table, $column, $value){ //PDO Connecttion $core = Core::getInstance(); $sql = "SELECT * FROM $table WHERE $column = :value;"; //Create a prepared statement $stmt = $core->dbh->prepare($sql); $stmt->bindParam(':value', $value, PDO::PARAM_STR); $stmt->execute(); //return true if there is a hit on that value […]

从Excel复制/粘贴到Web应用程序: 我必须创build一个Web应用程序，允许从Excel复制和粘贴在networking上，并获得相同的事情，反之亦然。我不知道web开发的很多东西，但我发现了一些解决scheme，如： -sharepoint和办公室的networking应用程序 -asp.net + ajax – 在Excel中创build一个加载项，以便在服务器上发送elem（但是该项目只能在这个解决scheme的excel上运行）使用PHPExcel的HTML + PHP 还有其他的解决scheme或者哪一个是最好的？谢谢

Excelmacros将Web数据转换为单个单元格: 我有一个电子表格，列A中的URL列表。我想要读取每个URL并将输出存储在单个单元格中，或者至less将其存储在与URL相同的行中。我目前使用下面的标准VBA代码来完成每个读取（这里简化为使用静态URL）。问题是Excel根据网页的格式自动将数据分成多行和多列（这显然是通常需要的）。有没有简单的方法来修改该代码强制输出到单个单元格或行请？ Sub FetchData() With ActiveSheet.QueryTables.Add(Connection:= _ "URL;http://www.someurl", Destination:=Range("$B$1")) .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .BackgroundQuery = True .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .WebSelectionType = xlEntirePage .WebFormatting = xlWebFormattingNone .WebPreFormattedTextToColumns = True .WebConsecutiveDelimitersAsOne = […]

与谷歌获得地址为优秀: 我试图导航到谷歌，然后写一个地方，如“超市X在Y国”，然后在谷歌出现在市场的照片和下面的地址。所以我希望在google中设置商店，而不是把地址设置成excel中的Cell。我唯一的代码： Sub search() Dim IE As Object Set IE = CreateObject("InternetExplorer.application") With IE .Visible = False .Navigate ("https://www.google.com") While .Busy Or .readyState <> 4: DoEvents: Wend .document.getElementById("lst-ib").Value = "vida" ' ID of TextBox of google .document.all("sblsbb").Click ' ID of the search button of google End With 结束小组但是我得到了一个错误是最后一行。谢谢

轻松下载多个网站的页面源码: 我需要从245个特定的URL获得源代码（未经编辑的），然后导入到Excel中，我已经设置了一些过滤，text2columns等提取我需要从每个页面的具体信息.. 我可以手动打开所有的245页，查看源代码，突出显示，复制，打开Excel，粘贴等。但我相信有一个更简单的方法？有任何想法吗？

使用带有dynamicWeb地址的VBA从网站获取表格: 我试图从一个网站插入一个表格到excel，特别是WSJ期货。有一个日历function，我可以通过更改url解决。我想使代码中的网站成为单元格引用，这样我就可以使地址变成dynamic的。下面是没有dynamic地址的常规macros的代码。关于如何做出这个改变的build议？我已经尝试拿出url，并将其作为单元格引用，但它不起作用。 ActiveWorkbook.Queries.Add Name:=Range("A1"), Formula:= _ "let" & Chr(13) & "" & Chr(10) & " Source = Web.Page(Web.Contents(""http://www.wsj.com/mdc/public/page/2_3023-fut_metal-futures-20170901.html?mod=mdc_pastcalendar""))," & Chr(13) & "" & Chr(10) & " Data5 = Source{5}[Data]," & Chr(13) & "" & Chr(10) & " #""Changed Type"" = Table.TransformColumnTypes(Data5,{{""Column1"", type text}, {""Column2"", type text}, {""Column3"", type text}, {""Column4"", type […]

在网站中embeddedWord，PPT和Excel: 我试图在网站上embeddedWord，PPT和Excel文件。我试过Google文档和Microsoft Office 365，但我遇到以下问题：如果我多天没有login我的Gmail帐户，embedded式文档将不会显示。另外，有时它说我已经达到当前文档的最大视图数量。微软Office 365的问题是，它增加了大的顶部和底部酒吧的文件，他们与颜色（红色，绿色和蓝色）..这使得网站看起来非常丑

循环时VBA代码中断: 我有一个小问题，我需要循环通过Excel行但是，代码打破了。如果我只是一步一步地运行F8，那就没问题。但如果我想运行它只是由F5，它打破… 我想连接到外部源不是快速的，但是我怎样才能解决这个问题呢？ lDate = ws.Cells(i, 2).Value With appIE .Navigate "www.thisisjusttheexampleweb.com" 'it usually breaks here or below End With Do While appIE.Busy DoEvents Loop 'or it breaks here on setting allRowOfData Set allRowOfData = appIE.document.getElementById("Table") Set InterestingFields = allRowOfData.Children 感谢所有的帮助 P. 编辑：我发现其他解决scheme没有parsing任何网站，更好的是使用一些API来获得免费的数据，并且很多时候网站的所有者不允许parsing/刮取networking上的任何信息。