Tag: excel

从一个工作表粘贴到另一个不工作: 我有一个工作簿（两张表之间）内部的macros。但现在我想在两个工作簿之间做到这一点。我认为这个逻辑看起来很好，但是我错过了什么？它运行所有的代码，我没有得到任何错误，但在同一时间它什么都不做。 Sub CTClearINCIDENTS() Dim ws1 As Workbook Dim ws1sheet As Worksheet Dim ws2 As Workbook Dim ws2sheet As Worksheet Dim lastRow As Long Set ws1 = ThisWorkbook Set ws1sheet = ws1.Sheets("INCIDENTS") ws1sheet.Rows(5 & ":" & ws1sheet.Rows.Count).ClearContents Dim FilePath As String File_Path = "C:\TEMP\TestExcel\Cambridge Daily Tracker " & Format(Now, "dd-MM-yyyy") & ".xlsx" Set […]

使用HTML源代码缩进Excel单元格: 目前有可能为某个表格编写一些HTML代码，Excel会理解它。例如，为了将一些单元格放入剪贴板是有用的。例如，复制此文本并粘贴到Excel中以查看结果（实际上，您可能需要先将文本粘贴到记事本中，然后再次复制并粘贴到Excel中，Stack Overflow会以某种方式搞乱）。 <html><head><style type="text/css"> .style_335544358{background-color: rgb(86,232,255); text-align: LEFT;color: rgb(255,14,7);border-top: 1px solid rgb(0,0,0); border-right: 1px solid rgb(0,0,0);} </style></head><table cellspacing="0" cellpadding="0"> <tr> <td class="style_335544358" style="mso-number-format:'#,##0.#';"> 1600,0</td></table> </html> 但是，我还没有find一种方法来定制Excel缩进与HTML。 Excel有其自己的缩进语法（1，2，3）而不是HTML / CSS方式（20px等）。有没有人find一种方法来做到这一点？

跳过某些数字的顺序: 在Excel 2010中，我有一个以前使用的序列号列表，我想保留，我需要创build一个以我提供的数字开始的公式，但绕过保留在我的预留名单。序列号和保留清单号码都可以是数千个条目。我保留的序号是：如果我给我的序列起始数字为150，我想我的序列号分配如下：序列跳过数字156和231 。我已经看到了创build自定义列表的方法，但是正好相反。我怎么能做到这一点？

xlrd循环通过文件夹中的多个工作簿: 我正在处理一个脚本，该脚本从一个文件夹中的多个Excel工作簿中提取某些数据行（关键工作表在每个工作簿中都有相同的名称）。此代码似乎只处理/打印文件夹中第一个文件的结果： import os import xlrd for root, dirs, files in os.walk('/Users/123/Desktop/drivingtests'): xlsfiles=[ _ for _ in files if _.endswith('.xlsx') ] for xlsfile in xlsfiles: workbook = xlrd.open_workbook(os.path.join(root,xlsfile)) worksheet = workbook.sheet_by_name('Sheet1') for row in range(worksheet.nrows): workbook = xlrd.open_workbook(os.path.join(root,xlsfile)) worksheet = workbook.sheet_by_name('Sheet1') if worksheet.row_values(row)[0] == 'bike': print worksheet.row_values(row) 应该做些什么来让脚本处理文件夹中的每个工作簿？

以三种不同的方式将XML文件导入Excel: 我的XML文件看起来像这样：当我将这个文件导入Excel时，我得到一个包含其内容的表格。但是，我需要为每个标签分别使用三个表格： <Header> <MasterFiles> <SourceDocuments> 因为它们看起来像三个相关的表格。我用来导入文件的代码是： strTargetFile = "C:\SAFT.xml" Set wb = Workbooks.OpenXML(Filename:=strTargetFile, LoadOption:=xlXmlLoadImportToList) wb.Sheets(1).UsedRange.Copy ThisWorkbook.Sheets("Sheet2").Range("A1") 但是如何将XML文件分解成三部分并将每个文件导入到不同的工作表？

如何总是强制插入单元格中的特定date格式？: 当我使用VBA在Excel单元格中插入新的类似date的值时，date格式永远不会一致且正确。我怎样才能改变单元格的date格式，并确保插入的值是一个真正的date，而不是它的string表示forms？

我怎样才能让Excel单元格“正确的大小”到他们的内容？: 我希望使用C＃填充的Excel电子表格单元展开或收缩，以便在不手动调整单元格宽度的情况下显示其所有内容 – 以“恰到好处”的宽度显示数据 – 不多不less。我试过这个： _xlSheet = (MSExcel.Excel.Worksheet)_xlSheets.Item[1]; _xlSheet.Columns.AutoFit(); _xlSheet.Rows.AutoFit(); …但它在我当前的项目中没有做任何事情（在没有范围的小POC沙盒应用程序中工作正常）。说到范围，这个不起作用的原因可能与我创build单元格区域有关，如下所示： var rowRngMemberName = _xlSheet.Range[_xlSheet.Cells[1, 1], _xlSheet.Cells[1, 6]]; rowRngMemberName.Merge(Type.Missing); rowRngMemberName.Font.Bold = true; rowRngMemberName.Font.Italic = true; rowRngMemberName.Font.Size = 20; rowRngMemberName.Value2 = shortName; …然后添加“正常”/通用单元格值。换句话说，我具有跨越多列的值 – 几行。然后在下面，我回到“一格一格”的模式。这是问题吗？如果是的话，我该如何解决呢？是否可以有一个电子表格的独立部分的格式（自动assembly）不受表格的其他部分的影响？ UPDATE 至于获得多行来容纳一个值，我使用这个代码： private void AddDescription(String desc) { int curDescriptionBottomRow = curDescriptionTopRow + 3; var […]

在Excel中将超链接转换为HTML代码: 我在Excel文件中有一列超链接，我想将它们转换为它们各自的HTML代码： <a href="http://www.example.com">Link Name</a> 我find了只提取链接（如文本）的方法，但我需要整个HTML代码作为文本来replace单元格中的超链接。我已经search和search，但没有人需要这个答案，我猜。有人可以帮忙吗？

根据名称将工作表合并到一张工作表中: 我能够在一张纸上编辑纸张，但是我想指出我要复印的纸张。源文件可能有多个工作表名称Delta Prices #因此，如果找不到工作表名称，我想结束循环。代码是： Option Explicit Sub CreateDeltaReport() Dim Newbook As Window Dim wb As Workbook Dim wb2 As Workbook Dim ws As Worksheet Dim vFile As Variant Dim wkb As Workbook Dim wb3 As Workbook Dim s As Worksheets Set wb = ThisWorkbook vFile = Application.GetOpenFilename("All-Files,*.xl**", 1, "Select One File To Open", , […]