我有一个解压缩的xlsx文件,其中我编辑了一些文件,以便生成一个包含新数据的新xlsx文件。在linux中,为了在xlsx中重新压缩文件,我只需要进入终端并键入
find . -type f | xargs zip ../newfile.xlsx
放到xlsx文件所在的文件夹中。现在的问题是我如何使用node.js来完成这个任务?
我有excel文件上传在云端。使用节点js,当前端传递URL时,我需要从excel文件中读取数据。下面是我的代码,
var workbook = new ExcelJS.Workbook();
workbook.xlsx.load('https://file-examples.com/wp-content/uploads/2017/02/file_example_XLSX_10.xlsx')
.then(function() {
var worksheet = workbook.getWorksheet(sheet);
work
我有下面的Excel 2016 VBA函数,其中我输出数据到各种工作表。我似乎对我的“错误”工作表上的数据有问题,因为我在其他有数据的行之间得到了很多空白行。
此问题仅在“错误”工作表中出现。我尝试过将k = k + 1变量放在一些地方,但它并没有起到什么作用。有什么明显的地方我应该(或者不应该)增加k来解决这个问题?或者也许l和j需要改变?
Function PPDdate()
Dim PPD_1_Date As Date
Dim PPD_2_Date As Date
Dim TSpot_Date As Variant
Dim i As Long, j As
我试图让Microsoft控件以编程方式添加到用户表单中,但没有成功。虽然Microsoft2.0对象库中的标准控件运行良好,但通过设计器使用宏调用它们,如下所示:
Sub NewForm()
Dim TempForm As Object
Dim NewLabel As MSForms.Label
Dim NewFrame As MSForms.Frame
Set TempForm = ThisWorkbook.VBProject.VBComponents.Add(3)
With TempForm
.Properties("Height") = Worksheets(
我收到以下代码的错误:
For Each Cell1 In Orderrange
If Worksheets("Resolve Orders").Range("A" & sourcecount) = Cell1.Value Then
dat = Worksheets("Onorder").Cells(ordercount, 1).Value
End If
ordercount = ordercount + 1
Next Cell1
编译器突出显示dat = Worksheets("Onord
如何在不激活以下代码中的工作表的情况下引用工作表(“客户”)? Application.ScreenUpdating做不到这项工作,因为仍然有恼人的闪烁。 当我取消对‘Worksheet(“Customers”).Activate的注释时,代码运行正常 我想在工作表(“仪表板”)打开时执行所有步骤。 我已经尝试了“以...结束于”,但没有成功。,也参考工作表(“客户”).Cells.等不起作用。这就像代码跳过代码,直接转到“ If SearchRow = 2 Then
MsgBox "Customer Not Found", vbExclamation
Ex
我想用脚本节省大量时间,所以我搜索了一些方法,如果语句是真的(在完整的代码中有大约200条语句),就可以将一些单元格从Excel表复制到另一个单元格中,但不幸的是,我被卡住了,它只是不想工作。第一个程序运行得很好,但是它应该检查在右边的另一个单元格中语句是否正确的其他单元格将不能工作。
Sub Proc1()
Dim value As String, result As String
Value1 = Worksheets("munka4").Range("H6").value
Value2 = Worksheets("munka4").Ran
我见过其他关于这方面的问题,但还是不能让它发挥作用。
我有六个CheckBoxes,我可以达到他们这么做的价值.
Worksheets("MyWorksheet").CheckBox1.Value
但在我的循环中,我需要这样做.
Worksheets("MyWorksheet").CheckBox(i).Value或者..。
Dim Src1 = Worksheets("MyWorksheet").CheckBox1.Value
Dim i
i = 1
MsgBox Src & i
我知道如何在JS中这样做,但我对VBA和这种格式非常陌生
提前感谢您对此的关注!
我对密码有异议。我要做的是让Excel中的宏比较两个列和两个工作表中的数字,然后根据行也有一个字符串值的条件,将丢失的数字复制到主表(我希望这是有意义的)。
Sub conditionalCopying()
inactiveRow = Worksheets("Inactive").Cells(Rows.Count, 1).End(xlUp).Row
cutRow = Worksheets("Cutting").Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To inactiveRow
If
有没有人知道我怎么能解决以下问题。我在第1页中有一个表,我想将它复制到第2页。但是,只有在sheet1中的第3行11到32列不是空的单元格中才会进行复制。如果说C11不是空的,那么C11将被复制到E11、F11、H11、I11和J11。然后,代码检查是否填充了C12,并执行相同的操作,等等。
复制的单元格放置在sheet2起始行和第15列中。我有以下代码,运行得很好。但是,它复制了在sheet2中显然毫无意义的公式,因此,值是无稽之谈:
Private Sub CommandButton1_Click()
Dim i As Integer
Dim a As Integer
a = 15
For
我有一个VBA脚本,导出3个图形到一个单一的幻灯片主体内,我已经创建了一个现有的powerpoint模板。我的问题是,我不确定如何正确地定位这些图表,使它们并排。我一直在尝试想一种方法来解决这个问题,并且我一直在尝试设计一个For语句来增加每个图的图形位置。 我最近的尝试是: On Error Resume Next
Set PowerPointApp = GetObject(class:="PowerPoint.Application")
If PowerPointApp Is Nothing Then Set PowerPointApp = CreateO
我有一个excel,它有三张床单。在第1页和第2页中,我每列大约有10列,但总行数不同。我想检查一下表2中的数据是否在表1中。如果它有匹配,那么什么也不做,但是如果它没有匹配,那么将整行复制到表3中。
这是我的代码,但我想我弄错了
Sub test()
Dim rng As Range, c As Range, cfind As Range
On Error Resume Next
Worksheets("sheet3").Cells.Clear
With Worksheets("sheet1")
Set rng = Range(.Range("
我有以下函数,它将记录输出到一个称为CI的工作表或一个称为Error的工作表中。我添加了一个额外的IF语句,如果我的源'col‘列包含单词"TITER“,那么我希望它输出到"Error”工作表。这似乎正在工作,并将适当的记录输出到错误选项卡。然而,注意到,它也将这些相同的记录输出到"CI“工作表中。我在主code语句中嵌套了IF代码,但我认为它不属于那里。任何帮助都是非常感谢的!
Public lstrow As Long, strDate As Variant, stredate As Variant
Sub importbuild()
lstrow = Wo
如何将某些单元格从Sheet2复制并粘贴到Sheet1,并使它们保持相同的属性,如彩色文本和背景色?我要做的是从两个工作表(Worksheet1是没有注释的新工作表,Worksheet2是带注释的旧工作表)中找到F列中相同的序列号,然后通过匹配E列中的装配号(因为有许多重复的序列号和不同的程序集号)来确保它是正确的,最后,将R、S、T列中的注释从Worksheet2复制到Worksheet1。这似乎是可行的,但它只复制文本,而不是特定的词是彩色和背景色。这就是我目前的情况。任何帮助都将不胜感激。
Dim i As Integer
Dim ii As Integer
i = 2
ii = 2
我有一个从表3的表格中提取信息的列表框,它允许我在列表框中选择一项,然后在列表框网格上方的文本框中显示行的其余部分。
下面的代码可以工作,但如果表中有很多项,则会出现问题。我需要一些帮助来创建一个循环程序,不需要多次复制和粘贴的代码。
我尝试的方法是将列表框用作数组。
用户表单
Private Sub ListBoxSearchResults_Click()
Worksheets("Stock Data").Activate
'Verify that an item was selected
If ListBoxSearchResults.ListInde
我正在尝试通过VBA代码删除工作表。这里的一般思想是,当工作表的数量达到18个时,我们删除结束工作表。现在,由于工作表是一个集合,我尝试了:
If Worksheets.Count = 18 Then
Worksheets.Remove (Worksheets.Count)
End If
但是会得到一个错误。有什么想法吗?谢谢!
我正在尝试将整个工作表从"DNU“复制到每个后续工作表中。我希望做一个常规的粘贴,以保持宽度和分组,但这将只粘贴公式和表格格式。谢谢。
代码如下:
~
Dim wsVar As Worksheet
Dim i as Integer
With ThisWorkbook
For i = 6 to .Worksheets.Count
.Worksheets("DNU").Range("A1:Y200").Copy destination:=.Worksheets(i).Range("A1:Y200")
Next
我对Excel使用VBA非常陌生,需要开发一些代码来检索一个人最大的考试日期和相关字段(考试日期、考试检查日期、考试硬结)并输出到另一个名为EXAMCI的选项卡上。
由于日期输入文件中存在数据完整性问题,在某些情况下,考试日期(D列)将大于第二次考试日期(H列),反之亦然;有些情况下,第二次考试日期(H列)大于第一次考试日期(D栏)。
以下是文件中的一些示例数据(列为A,从左到右):
Userid Employee Name DOB Exam Date Exam Check Date Exam Induration Exam Negative 2n
我与几个有VB经验的人一起工作了整整一周,但我们不能让所有这些If / Then语句都正常工作。除了引用"otype“+ SCE+ CNE和"otype”=专线或仅互联网的声明之外,所有的工作都有效。逻辑看起来是正确的,但我们没有得到预期的结果。帮助!下面是我们有问题的VB代码。谢谢。
Private Sub Worksheet_Activate()
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Rem CNE Customer
If Range("otype") =
我正在工作的两个Excel表格,其中有共同的领域。我将需要基于列标题粘贴sheet2中的数据,并使用VBA粘贴现有数据之下的数据。例:
table1:
ID Name Custcode CustName
1 Aryan 0020 Aryan Ent
2 SUman 0030 Suman Ent
3 Ramesh 0040 Ramesh Ent
table2:
ID Name Alias Name Custcode CustName Prodcode Proddesc
1 Aryan Alex 0020 Aryan Ent xx001