Tag: excel

由于实时数据更新，工作表正在大幅增长

我有电力阅读设备，可以更新从服务器每秒的功率变化到Excel工作表。 我正在运行一个Java程序，它可以访问这个实时数据用于我的调度目的，但是当我访问Excel时，我只需要最后更新的数据。 由于数据每秒都在更新，Excel工作表正在大幅增长。 有没有什么方法可以在Excel工作表或任何工具的帮助下编程删除超出特定限制的所有旧数据，同时保存最近十次左右的最新更新读数（我不想当我的程序试图访问最后一行数据时，任何时候都会返回null – 所以Excel中总是有读数）？

将combobox下拉列表值添加到新行

嗨，我知道这听起来可能听起来很容易，但因为我是新的VBA，因此我需要一些帮助，在调整用户窗体vba代码下面的combobox下拉列表值插入新行。 目前我有一个添加命令button，将所有input的用户窗体添加到find的新行。 我现在面临的当前问题是我需要在add命令button中为comboBox行“.Text”进行调整，以使其顺利运行。 下面的代码，我已经和我现在面临的问题，我已经评论了线。 Private Sub CommandAddButton1_Click() Dim sh As Worksheet: Set sh = ThisWorkbook.Sheets("Program Status Summary") Dim emptyRow As Integer: emptyRow = 1 + sh.UsedRange.Find(ComboBoxProjSizes.Text).End(xlDown).Row With sh .Cells(emptyRow, "A").Value = 1 + Application.Max(.Columns(1)) ' to generate a new identifier in column 1 .Cells(emptyRow, "B").Value = TextBoxProjCode.Text .Cells(emptyRow, "C").Value = TextBoxProjName.Text .Cells(emptyRow, "D").Value = TextBoxSector.Text […]

在一个列中插入多个值以实现卓越

如何在excel列中插入所有使用xlsxwriter库的for循环中的值？因为现在这里是我的脚本循环中的输出： Value : 4.0 Value : 17.2 Value : 7.0 excel列的结果就是 – >>>'Vaue：7.0' 这是我的代码： for line, file in enumerate(PM2Line): if POA in file: count = count + 1 #print file worksheet.write('B2', file)#—here is my issue.. 我需要将它们全部插入到一列中，但现在只是更新哪个是最后一个返回值。

比较不同页面上的列

我在Sheet1中列A的帐号数量是可变的，我想在Sheet2列A中将它们与可变数目的帐号进行比较。 我想整理sheet3上的两列，但不重复帐户号码。 所以基本上： 工作表Sheet1： A1 a3334 a4455 a76655 Sheet2中： A1 a4455 a76655 a3024 a53525 那么sheet3最终会看起来像： 表Sheet 3： A1 a3334 a4455 a76655 a3024 a53525 提前致谢。

Excel VBA：从集合中检索自定义对象

我有一个Person对象，包括姓，名和部分。 这些商店在Excel表中的列，但我需要提取这些并将它们作为Person对象的集合传递。 我可以创build对象，显然将其中的39个添加到集合中，但是当我对集合进行foreach时，我什么也得不到。 我有debug.print似乎显示单个对象正在创build好，但是当我打印出检索到的对象时，我得到39行的空白。 Public Function PeopleList() As Collection Set PeopleList = New Collection Dim newPerson As Person Set newPerson = New Person 'hide active sheet and go to sheet holding class information SwitchSheets lastLine = GetFirstFreeLine(SHEETNAME, 1) For x = 2 To lastLine newPerson.idNumber = Worksheets(SHEETNAME).Cells(x, 1) newPerson.Forename = Worksheets(SHEETNAME).Cells(x, 2) newPerson.Surname = Worksheets(SHEETNAME).Cells(x, […]

根据大pandas的date范围select过滤Excel数据

我想知道如何过滤基于特定date范围的Excel数据使用pandas通过python。 举个例子： （sheet1.xlsx）包含： DATE 51 52 53 54 55 56 20110706 28.52 27.52 26.52 25.52 24.52 23.52 20110707 28.97 27.97 26.97 25.97 24.97 23.97 20110708 28.52 27.52 26.52 25.52 24.52 23.52 20110709 28.97 27.97 26.97 25.97 24.97 23.97 20110710 30.5 29.5 28.5 27.5 26.5 25.5 20110711 32.93 31.93 30.93 29.93 28.93 27.93 20110712 35.54 34.54 […]

尝试提取数据并写入另一个电子表格是空的

输出文件被创build，但只有第一个单元被写入，没有别的。 我用系统打印testing了它，我想要的所有数据都显示在控制台中，但是没有写入工作表。 public class excel_read_2 { public static void main(String[] args) { try { FileInputStream file = new FileInputStream(new File("C:/Users/hM/Desktop/20151007-110016_outgoing.xls")); //input HSSFWorkbook workbook = new HSSFWorkbook(file); HSSFSheet sheet = workbook.getSheetAt(0); Workbook wb = new HSSFWorkbook(); Sheet sheet1 = wb.createSheet("new sheet"); FileOutputStream fileOut = new FileOutputStream("C:/Users/hM/Desktop/workbook.xls"); //output int rowcounter = 0; for (int rowNum = 150; […]

公式复制下来时，将行参考向下移动一行

问题：当我复制Excel公式它正是我所要求的，它复制它。 不过，我想要它添加一个行，所以如果公式是=A1我希望它变成=A2等等。 码： Worksheets("Portal").Cells(i, j).Formula = Worksheets("Portal").Cells(7, j).Formula 一种select是逐行进行，并把公式放在VB中，但如果可以的话，我宁愿避免。 细节： i =每个新行的循环函数 j =每个列/单元的循环函数 i之后的数字是列，即A是1等等 公式后面的7是我重复的那一行。

将查询作为parameter passing给另一个查询

我通过PowerQuery中的SQL语句获取数据： let Source = Oracle.Database("sampleDB", [Query="SELECT * FROM mySampleTable WHERE CustomerID in (1,2,3,4,5)"]) in Source 我需要SQLfilter是dynamic的。 所以我有一个包含文本string的单元格的另一个查询。 对于上面的示例，单个单元格看起来像=>“1,2,3,4,5”。 这就是为什么我要在PowerQuery中构build一个dynamicSQL语句，该语句引用来自其他查询的单个单元。 我试过下面的代码和其他变体，但没有工作！ let Source = Oracle.Database("sampleDB", [Query="SELECT * FROM mySampleTable WHERE CustomerID IN (" & MyReferenceQuery["SingleCell"] & ")"] in Source 我怎样才能引用这个其他查询？

从一个工作簿复制到另一个工作簿

这应该在文本工作簿中抓取一个范围，然后将其粘贴到主文件夹中： Sub activateMacro() Dim masterWKB, copyWKB As Workbook Set masterWKB = ThisWorkbook Dim masterWKS, copyWKS As Worksheet Set masterWKS = Worksheets("Data") Dim lastLineCopy, lastLineWKB As Long Dim pasteRange As Range Dim listofFileNames As Variant listofFileNames = buildfilenameArray for i = 0 to Ubound(listofFileNames) lastLineWKB = masterWKS.Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row + 1 Debug.Print lastLineWKB […]