Tag: 插入

不应用公式到最后一行: 我想添加最后一行，然后把公式放在最后一行的特定单元格中。当我运行我所拥有的东西时，它会将公式添加到旧的最后一行，而不是新创build的那一行。你能帮忙吗？ Sub AddDataRow() Dim tableName As String Dim sheet As Worksheet Dim table As ListObject Dim lastRow As Range tableName = ActiveSheet.ListObjects(1) Set sheet = Range(tableName).Parent Set table = sheet.ListObjects.Item(tableName) If table.ListRows.Count > 0 Then Set lastRow = table.ListRows(table.ListRows.Count).Range If Application.CountBlank(lastRow) < lastRow.Columns.Count Then table.ListRows.Add End If End If lastRow.Columns("L").Formula = "=A1+B1" End […]

C＃EPPlus – sorting插入的数据创build行空的查询: 我有一个包含有关产品类别的信息的Excel文件： FatherId | CategoryId | CategoryLevel | CategoryName 我需要为每个类别构build一个层次结构，如下所示： A.Id | |__A.FatherId = B.Id | |__B.FatherId = C.Id… 我可以循环多次通过excel文件并build立层次结构。但是我发现真的很无效。我决定把每个级别（最多9级）分成不同的excel文件。我通过在正确的位置插入每个新的类别id来创build一个有序的文件。我的代码的问题是，有时我“创build”一些空行，我不明白为什么。以下是处理这个问题的代码： int integerPosition = 2; while (!string.IsNullOrEmpty(worksheet.Cells["A" + integerPosition].Text)) { string parentId = worksheet.Cells["A" + integerPosition].Text.Trim(); string id = worksheet.Cells["B" + integerPosition].Text.Trim(); string type = worksheet.Cells["C" + integerPosition].Text.Trim(); // string subType = […]

在SQL插入上进行数据转换: 我从Excel文件创build一个SQL表。虽然excel文件并不是以事务格式存在的，但我很难确定SQL是否正确执行此操作。 Excel文件具有以下列名称： Dept code, Dept Name, …, 1962, 1963, 1964, …, 2022 “年”列中的每个字段都有一个美元值。我想以事务处理格式导入这个文件，每个部门代码/名称和一个“年份”列以及一个“值”列。输出如下所示：列： Dept Code, Dept Name, Year, Value 数据： 001, Marketing, 1962, $19,000 001, Marketing, 1963, $20,000 etc, etc… 任何提示如何做到这一点，优雅？

从Excel到Word的VBA添加表格中的表格与合并的单元格: 我已经遍布互联网寻找解决我的问题，但没有答案。我想要做的是使用Excel VBA在Word表格中插入一行。该表包含我想要插入行的区域之外的一些合并的单元格。我会做一个没有合并单元格的表格是这样的： Dim WrdApp As Word.Application Dim docPA As Word.Document Dim tabelWord As Word.Table Set WrdApp = GetObject(, "word.Application") Set docPA = WrdApp.Documents.Open(Application.ActiveWorkbook.Path & "\TabeleCopyV3.doc") Set tabelWord = docPA.Bookmarks("TabelSOPotential").Range.Tables(1) tabelWord.Rows(2).Select WrdApp.Selection.InsertRowsAbove (5) 这适用于没有合并单元格的表格。但是，如果表格甚至有2个合并的单元格（在我想要插入数据的区域之外），则select不会发生。我甚至不能使用这个代码寻址表格单元格： tabelWord.Rows(2).Cells(1).Range.text = "text" 我可以解决单元格的问题的唯一方法就是使用这个代码： tabelWord.cell(2, 1).Range.text = "text" 这样我设法删除这样的行： tabelWord.cell(2, 1).Delete ShiftCells:=wdDeleteCellsEntireRow 但是，我怎么这样插入行呢？谢谢！

从birt报表devise器插入excel函数: 我使用birt生成excel报告，有没有办法通过birtdevise器来传递excel函数。例如，在生成的Excel报告中，我想在C1单元格中存储= A1 + B1。提前致谢。

macros在文本之上插入空行不在之后: 下面的macros，我从现有的改编，应该插入一个空白行的单词TOTAL CALLS:后面的单词Summary: 。问题在于它在Summary:行之上添加了空白行，而不是在它之下。这可能是一个简单的修复，但我只是没有看到错误的地方，因为我不知道足够的VB，不能完全搞砸了。这个macros将帮助我避免每周一次手动添加大约400个空行。预先感谢您的任何帮助！ Sub Insert() Dim rng As Range Set rng = Range("D1") While rng.Value <> "" If rng.Value = "Summary" Then rng.EntireRow.Insert rng.Offset(1, 0) = "TOTAL CALLS" Set rng = rng.Offset(1) End If Set rng = rng.Offset(1) Wend End Sub

在Excel中插入URL中的图片：各种方法的错误: 我试图从一个网站插入一张图片到excel工作表，但是我收到一个错误消息，不pipe我尝试哪种方法。我使用的URL（“MyURL”）格式为： https：// xxxx：pppp / chart.png？id = 10 … apid = secretkey 但是，如果我使用任何其他图片url，它的作品…即使它有参数，例如： http：// www.mrexcel.com/forum/avatars/[personsname].gif?dateline=2007 MyUrl可以在任何浏览器中正常工作，但不能在Excel中正常工作。我已经使用这些方法： A）图片插入 ActiveSheet.Pictures.Insert（“MyURL”）给出错误：“运行时错误1004：无法获得图片类的插入属性” B）Shapes.AddPicture wsht.Shapes.AddPicture“MyURL”，msoFalse，msoTrue，0，0，100，100 给出错误：“运行时错误1004：找不到指定的文件” C）插入>图片>将URL粘贴到文件名中给出错误：“导入此文件时发生错误” D）将MyUrl转换成一个简短的URL 给出错误： A – “图片类插入方法失败” B – “找不到指定的文件” C – “导入此文件时发生错误” 我的系统：Windows 8，Excel 2013 问题是什么？

使用Mybatis将数据插入到两个表中: 我对Mybatis很陌生，遇到了一些问题完整的场景是我需要读取和excel文件，并将excel数据插入到两个不同的主表和外键关系的表中。我能够读取Excel数据，并能够插入到主表中，但没有得到如何在第二个表中插入数据实际上问题是我有两个不同的pojo类具有单独的数据为每个表两个不同的映射器。我通过在父类的pojo内定义子表的pojo来build立关联有没有办法在两个不同的表中插入数据。可以在单个标签中运行2个插入查询任何帮助将是可观的

VBA：插入可变数量的行: 我写了下面的代码，但我不能通过一个行，我想要插入可变数量的行。编译器尖叫，它需要一个“列表分隔符或）”，那里有一个冒号。但是我找不到其他的写法。请帮忙！ =）所以，有问题的路线是从两端来的。就在它上面有一条评论线，我也尝试过没有成功。另外，你会如此善良，并解释我什么，我需要下面的命令（他们也可以在问题行中find）：Shift：= xlDown，CopyOrigin：= xlFormatFromLeftOrAbove 最后，关于如何改进代码的任何build议，有经验的程序员在阅读时都不会感到晕眩？ =）巨大的提前谢谢你， Option Explicit Dim ws As Worksheet Dim Blatt1, Blatt2 As String Dim Anfangsjahr1, Anfangsjahr2 As Integer Dim reporting_Jahr1, reporting_Jahr2 As String Public Sub Dreiecke() For Each ws In Worksheets If ws.Name Like "RVA_H*" Then If IsEmpty(Blatt1) = False Then Blatt2 = ws.Name Anfangsjahr2 […]

使用VB和macros在Excel中创build查询: 我有很多excel中的数据与不同的列。我的任务是为每一行创build插入语句。我已经完成了使用Excel的连接function，但我想自动化这个方法。另一个任务是用''（2个单引号）replace'（单引号），以便可以在sql语句中调整字符。主要是一次我得到的Excel，我运行我的脚本，将自动作出所有的查询。之后，我将在SQL开发人员或TOAD中手动运行这些查询。