Tag: 脚本

无法使用python xlsxwriter写表: 我正在编写一个脚本来将多个表写入一个Excel工作表。我正在使用Python 2.6和xlsxwriter来完成任务，但我无法创build一个表，并没有显示错误。只是列名称被添加到Excel工作表。这是我用来创build表的代码 import xlsxwriter report = xlsxwriter.Workbook('example_report.xlsx') sheet = report.add_worksheet() row_count = 0 column_count = 0 table_headers = [ {'header': 'Product'}, {'header': 'Quarter 1'}, {'header': 'Quarter 2'}, {'header': 'Quarter 3'}, {'header': 'Quarter 4'}, ] excel_write_data = [ ['Apples', 10000, 5000, 8000, 6000] ] table_row_count = row_count+len(excel_write_data) table_column_count = column_count+len(table_headers) sheet.add_table( row_count, column_count, […]

Applescript：无法将date和消息内容从Outlook复制到Excel: 我试图从一个文件夹复制Outlook电子邮件，并将其复制到一个Excel文档。我现在有拉动主题和发件人，但我有两个主要问题。一，我不能拉date属性的date。二，我不能只拉取消息内容，因为它从Outlook消息中提取所有的HTML。这是我现在的完整代码… tell application "Microsoft Excel" set LinkRemoval to make new workbook set theSheet to active sheet of LinkRemoval set formula of range "D1" of theSheet to "Message" set formula of range "C1" of theSheet to "Subject" set formula of range "B1" of theSheet to "From" set formula of range "A1" of […]

excel vba – 转换一个sql: 有没有人有任何运气与vbamacros将转换此input： update my_table set time = sysdate, randfield1 = 'FAKE', randfield5 = 'ME', the_field8 = 'test' where my_key = '84' ; 进入这个输出？ select count(*) from my_table where (randfield1 <> 'FAKE' or randfield5 <> 'ME' or the_field8 <> 'TEST') and my_key = '84'; 更新（使用Remou的答案时会发生什么）： input（我有第一张单元格A1的地方） – update my_table set time = sysdate, randfield1 = 'FAKE', randfield5 […]

使用vbscript在Excel列中search所有单元格: 我编写了一个vbScript来为每个用户的计算机login时收集计算机信息，并且Id希望脚本将信息logging到服务器上的Excel工作表中，每台计算机都有自己的行。我写了这个像6年前，但失去了脚本，并没有接触VBScript以来。所以我需要做的是，检查列B（这将是计算机名称）有价值的所有单元格将该值与计算机名称保存的值进行比较如果匹配，则将计算机信息写入该行如果没有匹配，则将信息写入第一个空行我不知道从哪里开始，因为vbScript对我来说是非常陌生的。编辑 – 我有这个循环到目前为止，回声来testing它，但它只能到1，而我有6列的值在列0我试图有条件检查单元格值我知道存在和我得到一个运行时错误。 Set objExcel = CreateObject("Excel.Application") Set objWorkbook = objExcel.Workbooks.Open("test.xlsx") Do While objExcel.ActiveCell.Offset(iRow,0).Value<>"" WScript.Echo iRow If objExcel.Cells(iRow,0).Value = "three" Then WScript.Echo "three" End If iRow = iRow+1 Loop WScript.Quit

在Excel中插入空白列，并使用基于其他列数据的值: 我有一个电子表格，包含计算机的FQDN列。然而，过滤这是很困难的，因为这个独特的名字，我最终在FQDN列旁边添加一个新列，然后input一个基于这个名字的不太唯一的值。一个例子是： dc01spmkt.domain.com新列值=“营销” 所有的主机都会有一个3个字母的名称，这样人们可以用更通用的标题过滤新的列。我的问题是：有没有一种方法可以编写脚本，以便在原始表单到达时，我可以运行该脚本，它将在旧列中查找值以填充新的值。因此，如果它在主机名字段中find“mkt”，则会写入MARKETING，或者如果发现“sls”，则会写入SALES？

如何使用Excel高效地查询大数据？: 多年来，我用Excel来处理数据，并以一种整洁的forms呈现结果。然而，最近，我开始了一个新的工作，并发现了一些梭子鱼大小的电子表格，其中有多个工作表，许多查询，查找，等等。这个工作簿的复杂性和速度是可怕的，让我做噩梦！经过几个小时寻找互联网，希望find办法让我的Excel工作更有效率，我决定在这里发布。我的问题：是否有任何方法将Excel与某些脚本技术相结合，以使我的工作更简单？例如，我发现PowerShell可以和Excel以及查询数据库交互。有没有可能利用Excel的应用程序将被限制在较小的数据操作和显示结果在一个不错的表格。即使所有的数据操作都是在Excel之外完成的，而且只有这些值被粘贴到特定的Excel单元格中，这样才能消除vlookup，所以我会很高兴。

如果单元格为空，则删除PowerShell中的表单: $ worksheet是当前工作表，$ WorkBook已被定义为xlsx文件的path。这是我的代码： if($worksheet.Cells.Item(1,3).text -eq ""){ $WorkBook.worksheets.Item("DeleteThisSheet").Delete() } 我试图删除当前工作表，“DeleteThisSheet”，如果单元格A3是空的。我没有得到任何错误，也没有得到任何结果。我在想我的-eq“”可能不是识别空单元格的正确方法？

如何创build（shell）脚本来将.srt内容复制到相应的Excel列中？: 我有一个关于如何自动化将.srt文件内容复制到.xls文件的过程的问题。我想确保.srt文件中的内容可以被粘贴到.xls的相应列中（例如，进入B列的时间; C列的超时值; E列的字幕）。为了避免手动复制和粘贴，有没有办法编写这个程序？有任何想法吗？提前非常感谢！ 🙂 更新：我刚刚发现，字幕编辑可以将.srt保存为csv，这将能够将文件更改为Excel文件。这很方便！但还有另外一个问题，我需要将这个CSV文件中的内容复制到另一个具有不同结构的Excel模板中，所以我不能直接复制和粘贴csv中的值。我正在努力如何使这更容易… 目前无法发布图片，但情况是，在srt转换后的csv文件中的每个input时间文本占用一行时，Excel模板中的时间input文本占用了两行，因此我无法直接将所有文本从一个excel文件复制并粘贴到另一个。有没有更简单的方法来做到这一点？谢谢！

创build一个macrosbutton，将列中的特定范围复制到另一个具有增加的列号的表格中，以便我可以添加新的数据: 我正在尝试创build一个macros来完成以下任务：如果我在工作表Sheet1中，并在A列1-10行，我会点击一个button，它将数据传输到Sheet2列A.如果再次input数据，按下button，这次它转移到列B，然后再C等我已经创build了一个macros的副本，但我不知道如何使它不断改变输出列。这是我迄今为止。 Sub details() Dim currentWB As String Dim futureWB As String currentWB = ActiveWorkbook.Name On Error Resume Next Sheets("temporarysheet").Delete On Error GoTo 0 Sheets.Add ActiveSheet.Name = "temporarysheet" Sheets("Sheet1").Select If ActiveSheet.AutoFilterMode Then Cells.Select On Error Resume Next ActiveSheet.ShowAllData On Error GoTo 0 End If Columns("B:B").Select Selection.Copy Sheets("temporarysheet").Select Range("A1").Select ActiveSheet.Paste Application.CutCopyMode = False If (Cells(1, […]