Tag: html

从javascript或Jquery创build简单的xlsx（excel文件）: 这是小提琴https://jsfiddle.net/ym4egje0/ 我有两件事要问这是创build一个XLS，如何创build一个XLSX文件，它不工作在IE浏览器，只适用于谷歌浏览器，如何使它在IE中工作？我想把ColumnHead列标题文本和消息1和消息2应该是连续的行。必须把（。）的索引切成行。 HTML <input id="btnExport" type="button" value = "Generate File" /> JS / jQuery的 $("#btnExport").click(function (e) { var ColumnHead = "Column Header Text"; var Messages = "\n message1.\n message2."; window.open('data:application/vnd.ms-excel,' + Messages); e.preventDefault(); });

如何将Mysql数据导出到Excel时join/合并两个表格下载？: 我保持4张桌子。表1（表名：产品） – > pro_id，pro_model，价格表2（表名：pro_description） – > id，pro_id，pro_name，pro_desp 表3（表名：pro_to_category） – > id，pro_id，cat_id 表4（表名：category） – > cat_id，cat_desp 现在我想下载字段，当我导出MySQL数据到Excel下载，pro_id，pro_name，pro_desp，价格，pro_model，类别（注：类别需要cat_desp，不需要cat_id）感谢提前。帮我解决。 🙁 <?php /*******EDIT LINES 3-8*******/ $DB_Server = "localhost"; //MySQL Server $DB_Username = "username"; //MySQL Username $DB_Password = "password"; //MySQL Password $DB_DBName = "databasename"; //MySQL Database Name $DB_TBLName = "tablename"; //MySQL Table Name $filename = "excelfilename"; //File […]

将值粘贴到网站search栏VBA中: 我正在自动化一个工作stream程，我导航到一个特定的网站（ http://www.boxofficemojo.com/ ）并粘贴一个值到网站的search栏。我无法与VBA中的网站search栏进行交互。 search栏有以下的HTML代码： <form name="searchbox" action="/search/q.php" method="POST"> <input name="q" style="width: 90px; font-weight: bold;" type="text"><br> <input type="submit" value="Search…"> </form> 下面的代码命令我现在似乎没有工作。我想将单元格c3中的excel值粘贴到search栏中，然后提交。 objIE.Document.getElementByName("q").Value = Sheets("2016").Range("c3").Value 有任何想法吗？

如何parsingHTML，而无需在vba中创buildInternet Explorer的对象？: 我没有在任何工作的计算机上的Internet Explorer，因此创buildInternet Explorer的对象，并使用ie.navigateparsingHTML和search标签是不可能的。我的问题是，我怎样才能使用标签自动从框架源到我的电子表格不使用IE浏览器的某些数据？答案中的代码示例将非常有用:)谢谢

HTML到EXCEL – >简单的问题: O有一个,,出口到Excel“function，我有一些表，它工作正常，但我有一个单一的问题。为了移到下一行我使用<br /> ，但是如果我想切换到下一列呢？我可以用什么标签切换到下一列？谢谢

简单的方法来保存HTML表格到SQL文件？: 我有一个大的数据列表，我需要插入到MySQL数据库。所有表看起来结构相同。有没有简单的方法将所有的表格行导出到SQL文件中，准备导入到具有相同结构的数据库表中？听起来像是可以用Javascript实现的东西，但我还不知道足够的JavaScript来做到这一点，我也没有太多的时间来做到这一点。我需要在几天之内。如果这种方法更简单，我也可以将它放在一个excel文件中。我一直在寻找，但大多数的结果是导出到HTML（反过来），我不是真的需要，其他结果也没有真正给我任何东西。任何build议将不胜感激。

通过PHP将HTML XML转换为Excel – 转换为数字: 我试图将HTML转换为Excel，而不使用任何库。我只是遇到了一个问题….我有类准备等等（基本上，我出口一个Excel的HTML），现在正在做反之亦然[只是改变内容]。我正在格式化我的货币/总数为2位小数的数字。（当你右键单击他们说，所以至less），但在Excel中，它仍然显示为文本，并与他们一起工作，它需要我按转换为数字此刻，我在我的循环中有这个。你觉得够了吗？ <td class=xl112 align=right style='border-top:none;border-left:none'>2,033.00 </td> 并在我的CSS .xl112 {mso-style-parent:style0; mso-number-format:"\#\,\#\#0\.00_ \;\[Red\]\\-\#\,\#\#0\.00\\ "; vertical-align:middle; border-top:.5pt solid windowtext; border-right:1.0pt solid windowtext; border-bottom:.5pt solid windowtext; border-left:1.0pt solid windowtext; background:#FFFF99; mso-pattern:auto none;}

与单选button的html表复制粘贴到xls: 我有一个HTML table元素，行不仅包含纯文本字符，还包括radio buttons ， lists等。我想要的是当用户将表格内容复制粘贴到MS Excel（纯文本）时， radio buttons应该被replace为它们的值（例如：“checked”和“unchecked”），列表中的元素应该被选中的值replace 有没有办法在浏览器中实现这一点？（最好不使用Flash或Java小程序组件）谢谢，克里斯

在Lotus Notes中发布链接到Excel文档: 我有一个Excel表格，我用它作为邮件自动报告。因为它现在将excel工作簿的实际副本附加到电子邮件中并发送出去。邮件包含几个不同的人，他们每天得到不同的报告。由于一些文件的大小，我开始遇到一个问题，我不能再发送电子邮件了，因为它们太大了，所以我想切换到链接发送文件，而我已经打了壁。我使用Lotus Notes 8.5。 VBA将在一个范围内循环，每个单元格都有一个由“，”分隔的报表列表。它把这个列表作为一个string传递给邮件程序。邮件程序将string转换为数组并将其拆分，然后检查以确保报告是最新的。一封电子邮件最多可以包含10个不同的报告。我已经尝试创build一个HTML MIME邮件来包含链接。这是我现在的代码： Sub Send_HTML_Email(ByRef Name As String, ByRef Address As String, ByRef Reports As String) Const ENC_IDENTITY_8BIT = 1729 'Send Lotus Notes email containing links to files on local computer Dim NSession As Object 'NotesSession Dim NDatabase As Object 'NotesDatabase Dim NStream As […]

VBA“If … Then”在HTMLtag Innertext中find关键字: 是否可以编写一个If … Then命令来引用HTML中的部分内联关键字/短语。例如，我正在运行一个“If … Then”命令，该命令将使用包括短语“Records Found”在内的部分内联标签查找标签。如果标签存在，则只有一个标签在其无限文字中包含这个短语。如果这个标签存在，我想我的工作表中的一个单元格显示“find多个logging” Dim ErrLi As Object Dim ErrObj As Object Dim x As Integer Set ErrLi = IE.Document.GetElementById("DivCenterTopArea").GetElementsByTagName("li") If Not ErrLi Is Nothing Then For x = 1 To ErrLi.Length – 1 If ErrObj.innertext = & "records found." Then Range("Q" & (ActiveCell.Row)) = "Multiple Records Found" End If […]