Tag: html

VBA RegEx on HTML

我已经做了一些阅读,明白,我不应该使用正则expression式的HTML。 然而,如果有人能够提供一些见解,我可能会更好地从一系列单元格中删除简单的HTML标记(粗体,斜体和下划线),我将不胜感激。 现在,我的macros不断返回1004的运行时错误:“删除字符类失败的方法”。 在这一点上,我会采取任何简单的解决scheme,这个问题..任何意见? 我的代码: For Each c1 In textRange.Cells strInput = UCase(c1.text) With objRegEx .Global = True .Pattern = "<\/?\w.?>" If .test(strInput) Then Set RegMC = .Execute(strInput) For Each RegM In RegMC c1.Characters(RegM.FirstIndex + 1, RegM.Length).Delete Next End If End With Next c1

在Excel中查看多个HTML表格时,无法设置TD宽度

你好,我写PHP头来下载excel。 如果我有一个表,我可以通过使用width属性来成功设置<td>的宽度 但如果我有两个表,它不工作。 我怎么办? 因为我需要在我的Excel页面文件多个表 <?php header("Content-Type: application/vnd.ms-excel; charset=TIS-620"); header('Content-Disposition: attachment; filename="report_schedule_teacher.xls"');#ชื่อไฟล์ ?> <html> <head> <meta http-equiv="content-type" content="application/xhtml+xml; charset=TIS-620" /> </head> <body> <table width="100%" style="border-collapse: collapse;overflow:wrap; font-size:9pt;"> <thead> <tr> <td width="300">Hello1</td> <td width="400">Hello2</td> </tr> </thead> <tbody> <tr> <td>World1</td> <td>World2</td> </tr> </tbody> </table> <table width="100%" style="border-collapse: collapse;overflow:wrap; font-size:9pt;"> <thead> <tr> <td width="300">Why I cannot set width […]

VBA – 无法通过标记名称获取元素

我一直在玩一段时间的VBA,试图检查HTML文档中的标签名称的特定实例与用户input的值。 基本上,在HTML文档中,我想search出第13个“label”标签,并检查它是否与excel文档中的单元格值匹配。 这是VBA的一部分… Do Until Not IE.Busy And IE.readyState = 4 DoEvents Loop Dim promo As IHTMLElementCollection Set promo = IE.Document.getElementsByTagName("label")(12) If InStr(promo.innerText, Range("E5").Value) = 0 Then ActiveSheet.Range("D" & i) = "Yes" Else ActiveSheet.Range("D" & i) = "No" End If 当我运行代码时,我总是收到“Object variable或With block variable not set”错误。 我已经尝试调整促销对象types,并得到相同的错误,试图设置促销variables使用不同的标准(通过类名,ID等),我只是无法越过错误。 这里有一个HTML样本,你可以看到有多个“标签”标签,我只需要比较一个具体的然后继续… <div id="formHeader">Telephone:</div> <div id="formContent">Telephone Type: <br/> <label […]

如何在没有使用HTML表格的情况下使用JavaScript在HTML内容的Excel中创build表格?

我有一个HTML页面。 这有一个使用DIV标签创build的网格,并将显示属性设置为表和内部DIV的显示属性为表行和表格单元格。 如果我需要将这样的表导出为ex​​cel,有没有办法在JavaScript中做到这一点? 到现在为止,我只能想到的是将这些DIV重写为HTML TABLE标记。 <div class="tablediv" id="tablediv"> <div class="tablerow"> <div class="tablecell"> A </div> <div class="tablecell"> B </div> </div> <div class="tablerow"> <div class="tablecell"> 1 </div> <div class="tablecell"> 2 </div> </div> </div> .tablediv { display: table; } .tablerow { display: table-row; } .tablecell { display: table-cell; }

Excelmacros – html正文发送电子邮件时格式不正确

我正在使用ExcelmacrosVB脚本和发送电子邮件给用户与邮件正文复制Excel内容。 Excel内容使用颜色和边框进行格式化。 邮件收到时,格式化将被删除,我只能看到纯文本。 代码 – With OutMail .SentOnBehalfOfName = email_from .To = email_to .CC = email_cc .BCC = email_bcc .subject = subject .HTMLBody = "Dear All, Please find below today's MIS. <br/>" & RangetoHTML(rng) & "<br/>Regards, <br/> MIS Team <br/> .Attachments.Add (Attach_Path) .Send End With 函数= RangeToHTML – Function RangetoHTML(rng As Range) Dim fso As […]

如何通过元素ID与Excel / VBA从外部网站获取价值?

我试图从元素ID使用VBA从外部网站检索值,并将其添加到我的Excel表。 网站的url在列A中表示。列B和C用于我检索的值。 url示例元素ID名称:“youtube-user-page-country” Excel图片 贝娄是我可怜的尝试: Sub getCountry() Dim IE As New InternetExplorer IE.Visible = False IE.navigate Worksheets("Sheet1").Range(A3).Value Do DoEvents Loop Until IE.readyState = READYSTATE_COMPLETE Dim Doc As HTMLDocument Set Doc = IE.document Dim getCountry As String getCountry = Trim(Doc.getElementsByTagName("youtube-user-page-country").innerText) Worksheets("Sheet1").Range(B31).Value = getCountry End Sub 代码不能正常工作,显示对象定义的问题。 任何人都可以给我提示我要去哪里错了吗? 我一直是一个macros录像机用户,交换机有一个陡峭的学习曲线:-) 谢谢你的帮助 !

VBA中的HTML元素

我正在build立一个networking刮板,根据我复制并粘贴到Box Office Mojosearch栏中的数据导航到以下网站: http : //www.boxofficemojo.com/search/? q=Rogue% 20One:%20A%20Star%20Wars%20Story 我现在需要做的是能够点击该链接进入Rogue One mojo网站,然后从中取消一堆数据。 我只是不知道如何与这个HTML元素进行交互。 我需要的链接有以下HTML代码: 盗贼一:星球大战的故事 有任何想法吗?? 我到目前为止的完整代码如下: Dim objIE As New InternetExplorer Dim Doc As HTMLDocument With objIE .Visible = True .Navigate "http://www.boxofficemojo.com/" Do While objIE.Busy = True Or objIE.ReadyState <> 4: DoEvents: Loop Set Doc = objIE.Document End With Set oSearch = Doc.getElementsByClassName("nl_link")(3) Set oSearch […]

我想转换一个巨大的Excel工作簿(与多个选项卡)和less数列和行隐藏在网页上

当我试图在HTML中保存Excel表格并显示时,我遇到了一些问题: 每个单元格中的数字都是扭曲的 显示隐藏的行和列(我希望它们保持隐藏状态) 我的Excel工作表的顶行被冻结,我想让他们保持冷静。 工作表每天更新,我希望更改也反映在Web中。 你可以build议一种方法,而不是在HTML中保存Excel表格? 任何其他方式,我可以开始这个项目? PS:我掌握HTML,CSS,JavaScript的知识。 我是否需要学习任何额外的技能来拉动这个项目?

javascript删除最后一个孩子dynamic生成tr td

我有一个用JavaScript编写的函数,一旦用户上传excel文件,就会显示数据的logging。 这是我的HTML <table id="result" class="table table-striped table-responsive"></table> 和我的Javascript显示从Excel中上传的数据 // draw HTML table based on sheet data var sheet = parseCSV.getSheet(); var table = document.getElementById('result'); var btnSave = document.getElementById('btnSave'); table.innerHTML = ""; var wrapper0 = $("#column0"); var divMapping = document.getElementById('mapping'); var rowArray = []; var columnArray = []; $('#table').show(); sheet.forEach(function (el, i) { var row = […]

VBA – 使用IF函数浏览HTML表格

我在一个项目的最后,偶然发现了我最后的障碍。 我在一个Excel工作表中有一组电影,我正在查找BoxOfficeMojo.com并从中搜集大量数据。 我的问题可以用电影“唱歌”为例加以总结。 当我search这个标题时,我被引导到这个网页: http : //www.boxofficemojo.com/search/ ?q= sing 。 现在,我必须导航到电影专用页面的代码如下: 'open title page in box office Set Doc = objIE.Document Set oResult = Doc.getElementById("body").getElementsByTagName("a") For Each Element In oResult If Element.outerHTML Like "*/movies/?id=*" Then Set myLink = Element Exit For End If Next Element objIE.Navigate myLink 该代码仅导航到第一个电影链接,这不是我想要的。 我只想点击一个链接,如果“生命周期总额”列不会说“不适用”。 理想情况下,这样的工作(IF函数中的新代码): 'open title page in box […]