Tag: 工作表
从单元格中提取文本将其移入另一个工作表上的单元格中
你好，StackOver Flow的人， 我对VBA语言和工作stream程相当陌生，但我有一些编码经验。 我的题目并没有真正帮助解释的问题是： 我每天都会收到包含需要从中提取出来并移入相应单元格的信息的电子邮件。 电子邮件的例子如下，我已经从Outlook中复制到我已命名为“RawData”的Excel工作表中。 我将标签列为A） **A)** Send Date 01/01/2014 Timestamp **B)** Subject ([Type]) word IndetifierOne IndetifierTwo word 100001 **C)** Body Item HYPERLINK (www.thistheexample.com/100001) Subitem Name HYPERLINK (www.thistheexample.com/name/99321)keyword **All this Information is irrelevant** Item Names HYPERLINK (www.thistheexample.com/name/99321)keyword HYPERLINK (www.thistheexample.com/name/99321)keyword HYPERLINK (www.thistheexample.com/name/99321)keyword 什么需要提取和放置在列中的顺序是 **A)** Date **B)** Identifier Two **C)** This has other information input into […]
VBA查找范围内的多个项目并基于其他条件在行复制并粘贴到另一个工作表的相邻单元格
我有3个选项卡，用于尝试使用VBA自动化的特定问题。 “表单”选项卡：用户从下拉列表中select最多10个他们需要访问的不同实体（范围A25：A34） FLS Hiearchy：这个标签是公司内所有从第一级（最高/父级）到第十级（最低的子级）的实体的层次结构。 范围A：D（列A是级别，B是与在“表单”选项卡上的下拉列表中select的各种实体匹配的实体，列C是实体描述，列D是需要复制到表1的秒类） 。 Sheet1：该选项卡用于pipe理员，用于根据“表单”选项卡中选定的实体从“FLS Hiearchy”选项卡查找必要的安全类。 范围A1：J1。 安全类将被复制到从“表单”选项卡派生的每个variables下（最多10个实体，与Sheet1上的J列相关联）。 我知道我需要创build一个循环来完成这个任务。 简而言之，VBA脚本需要从“表单”选项卡中标识实体（最多10个），根据需要将它们粘贴到范围A1：J1中，然后经过一个循环，以A1开头的相应实体并查找FLS Hieararchy选项卡中的实体。 一旦findHierarchy选项卡中的每个实体，就需要在Hierarchy选项卡上确定其级别（A列）。 例如，如果级别是6级，VBA脚本需要获取实体所在行的安全级别，然后为其下面的实体获取安全级别，直到find下一级安全级别，然后才需要停在那里（上一行不包括下一级6）。 在这个例子中，如果你find一个级别6，下面的实体也是6，VBA脚本只需要获取一个安全类（第一个variables的列d）。 以下是我到目前为止，但我显然需要更多的帮助完成。 Sub SecurityClasses() ' ' SecurityClasses Macro ' Based off entity selected in Form tab determine the security classes needed for user. ' Sheets("Sheet1").Range("A:AZ").ClearContents Sheets("Form").Activate Range("A25").Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Sheets("Sheet1").Cells(1, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=True
用选定的行创build一个Excel工作簿
我有几张工作簿。 其中一张纸有几行的项目。 我也有第二张也与项目。 表一中的每个项目在表2中都有相应的项目。我想要做的是，当某人select“是”时，表单上的项目将被复制到新的工作簿中。 例如Sheet 1将会有 Code1 Apple yes/no Code2 Banana yes/no Code3 Mango yes/no 是/否是列C下的数据validationinput 工作表2将有 Code1 20032 Code2 30045 Code3 50098 因此，一旦用户在工作表1上select了“是/否”并单击一个button，Excel工作簿应该与来自工作表2的行生成，而没有被select为“否”的工作簿。 我试图使用filter来loggingmacros，但是由于我的工作表2已经合并了单元格，所以复制效果不佳
在IF函数中使用indirect.ext作为值
我想知道是否有select使用间接作为一个逻辑testing的值的答案，例如当IF函数返回true时。 我希望这里的例子解释它。 示例：book 1包含以下包含数据的单元格 a1=3 a2=4 a3=5 a4=6 let b1 say: IF(a1>3;"INDIRECT.ext(F:\analyse\[book 2.xlsx]sheet1'!a1";"INDIRECT.ext(F:\analyse\[book2.xlsx]sheet1'!a2") book2包含以下单元格，数据a1更lessa2 我不能使用这个工作，而使用“”它只是作为一个string返回函数。 另外[]和（）不会工作。 所以我知道我可以把数据放在同一本书中。 但是如果这样做会节省很多时间。
工作表没有被删除 – 添加一个新的会导致名称冲突错误
foreach (Excel.Worksheet sheet in m_objExcel.Sheets) { if (sheet.Name == "Before & After Lube Weight") { //sheet.Delete(); (Excel.Worksheet)m_objExcel.Sheets[6]).Delete(); m_objSheet = (Excel.Worksheet)m_objSheets.Add(m_objSheets[6], Type.Missing, Type.Missing, Type.Missing); m_objSheet.Name = "Before & After Lube Weight"; } } 上面的代码用于用新的工作表覆盖现有的工作表。 我试图一行一行的debugging，所有的代码工作正常，但工作表永远不会被删除之前添加具有相同名称的另一个工作表（注意框架2.0）。 发生exception消息 错误：无法将名称重命名为另一张纸 我相信这是因为以前的工作表没有正确删除。
javascript – 将多个html表导出到多个excel工作表中
我有一个页面包含一些基于以前的input过程的表。 然后我添加下载excel文件button，所以访问者可以得到excel格式的文件。 但是，需要的是每个表比在结果页中显示的都将在单独的工作表中生成。 我试过的是 var tableToExcel = (function() { var uri = 'data:application/vnd.ms-excel;base64,' , template = '<html xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:x="urn:schemas-microsoft-com:office:excel" xmlns="http://www.w3.org/TR/REC-html40"><head><!–[if gte mso 9]><xml><x:ExcelWorkbook><x:ExcelWorksheets><x:ExcelWorksheet><x:Name>{worksheet}</x:Name><x:WorksheetOptions><x:DisplayGridlines/></x:WorksheetOptions></x:ExcelWorksheet></x:ExcelWorksheets></x:ExcelWorkbook></xml><![endif]–></head><body><table>{table}</table></body></html>' , base64 = function(s) { return window.btoa(unescape(encodeURIComponent(s))) } , format = function(s, c) { return s.replace(/{(\w+)}/g, function(m, p) { return c[p]; }); }; return function() { table = '.tabel_hasil'; name = 'table'; […]
将数据移动到不同工作表中的第一个空行
我有以下macros（部分被复制）。 我想将数据从利马表单移动到康斯坦察表单。 康斯坦塔表已经包含一些信息。 通过运行这个macros，这个信息就消失了。 如何更改代码，以便将利马表中的信息复制到第一个空白行上的康斯坦塔表中？ Sub Limas() Dim LSheetMain, LSheet1, LSheet2, LSheet3, LSheet4 As String Dim LSheet5, LSheet6 As String Dim LContinue As Boolean Dim LFirstRow, LRow As Integer Dim LCurCORow, LCurRRow, LCurRERow, LCurPRow, LCurBRow As Integer 'Set up names of sheets LSheetMain = "Limas" LSheet1 = "Constanta" LSheet2 = "Rastolita" LSheet3 = "Reghin" LSheet4 […]
使用variables在Excel VBA中按其编号声明工作表
晚上好。 我正在拼命写一些VBA代码。 Public TFOCUS As Integer ' Creates TFOCUS, which is the worksheet in focus Public RFOCUS As Integer ' Creates RFOCUS, which is the row in focus Public CFOCUS As String ' Creates CFOCUS, which is the column in focus Public RECORD As Integer ' Creates RECORD, wich is the row that is having […]
types不匹配错误
如果ws1.cells（i，13）=“是”，那么“该列（列M）包含空白单元格或”是“ 。 我试过重新定义“我”作为string，并没有改变任何东西。 目标是对于列M中的“是”的每一行，将整行复制到名为“输出”的第二张表。 任何有关这个错误的帮助将非常感激，也可能适合我的目标的其他想法。 谢谢！ Sub Sadface() Dim ws1 As Worksheet: Set ws1 = ThisWorkbook.Sheets("Trades") Dim ws2 As Worksheet: Set ws2 = ThisWorkbook.Sheets("Output") For i = 2 To ws1.Range("M65536").End(xlUp).Row If ws1.Cells(i, 13) = "Yes" Then ws1.Rows(i).Copy ws2.Rows(ws2.Cells(ws2.Rows.Count, 2).End(xlUp).Row + 1) End If Next i End Sub
将数据从Visual Basic 6传输到新的Excel工作表
祝大家好日子！ 我需要一些帮助，我怎样才能将数据从VB6传输到一个新的Excel工作表，例如，我想能够select以前创build的Excel文件，添加一个新的工作表，并将数据保存到它。 以下是我目前与我的项目有关的内容： Public Sub ExptExcel() Dim ADAExcelExpt As String Dim conn As New ADODB.Connection Dim RS As ADODB.Recordset With CommonDialog1 .CancelError = True .InitDir = "c:" .DialogTitle = "Save Excel File" .Filter = "Excel files (*.xls)|*.xls|Excel Files (*.xlsx)|*.xslx" .Flags = cdlOFNExplorer Or cdlOFNHideReadOnly Or cdlOFNLongNames On Error Resume Next 'trap the cancel error .ShowOpen […]
