- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我在工作表中有一个带有 ActiveX 控件(复选框、单选按钮等)的 Excel 模板。
我需要以编程方式获取复选框引用并将值更改为已选中或未选中。
经过短暂的互联网搜索,我找不到任何合适的线索。谁能帮我解决这个问题?
我正在使用 visual studio 2019、OpenXML 2.5 和 C# 以及 .Net Framework 4.7。
最佳答案
这..结果是相当复杂..但是一个很好的挑战:)
这是可能的,但很丑。第一:学分。那两个问题here和 here让我开始,剩下的就是通过反复试验。 (注:所有代码样例依次跟进,完整的样例放在最后,因为比较长)
第一步:找到复选框所有 ActiveX 控件都存储为一个控件,我们需要找到有问题的控件。
using (SpreadsheetDocument doc = SpreadsheetDocument.Open(fileName, true))
{
foreach (var control in doc.WorkbookPart.WorksheetParts.First().Worksheet.Descendants<Control>())
{
Console.WriteLine();
Console.WriteLine("Control {0}:", control.Name);
Console.WriteLine("Id: {0}", control.Id);
然后您可以通过过滤名称找到您要查找的特定控件。
奖励:识别类型根据其中一个链接问题,我们可以按如下方式识别控件类型:
var part = doc.WorkbookPart.WorksheetParts.First().GetPartById(control.Id) as EmbeddedControlPersistencePart;
var xreader = OpenXmlReader.Create(part.GetStream());
xreader.Read();
var xml = xreader.LoadCurrentElement();
var classID = xml.GetAttribute("classid", xml.NamespaceUri).Value;
if (classID == "{8BD21D40-EC42-11CE-9E0D-00AA006002F3}") // it is a checkbox
第二步:获取这些属性所有 ActiveX 控件都将它们的属性存储为二进制文件。所以你需要解析和编辑这个二进制文件来改变刻度线。所以让我们先找到二进制数据
var binary = part.EmbeddedControlPersistenceBinaryDataParts.First();
简单。现在我们需要获取二进制流并通过将其拉入内存流使其可编辑
using (var source = binary.GetStream())
{
using (var reader = new BinaryReader(source))
{
using (var stream = new MemoryStream(reader.ReadBytes((int)source.Length)))
{
整洁。现在一些愚蠢的二进制解析。我通过使用 HxD 和一个一个地操作属性的反复试验找到了二进制数据的布局。我在这个问题的末尾添加了我的分析。由于 xlsx 文件只是 zip 文件,您可以自己在路径“xl\activeX”中相对轻松地找到二进制文件
首先,让我们跳到保存复选标记的所需位置
// Skip random junk
stream.Seek(20, SeekOrigin.Begin);
// read additional data flags & how many additional bytes are added
var flags = (byte) stream.ReadByte();
var skip = 0;
if ((flags & 0x01) != 0) // Attribute Block
skip++;
if ((flags & 0x02) != 0) // BackColor Block
skip++;
if ((flags & 0x04) != 0) // ForeColor Block
skip++;
// skip some bytes
stream.Seek(2, SeekOrigin.Current);
flags = (byte) stream.ReadByte();
if ((flags & 0x01) != 0) // Special Effect Block
skip++;
if ((flags & 0x04) != 0) // PicturePosition Block
skip++;
// skip some flags
stream.Seek(4, SeekOrigin.Current);
// skip attribute blocks & some data blocks
stream.Seek(skip * 4 + 6 * 4, SeekOrigin.Current);
然后解析事件复选标记,将其反转并保存回流中
var check = (byte) stream.ReadByte();
// check = 0x30: False
// check = 0x31: True
// check = 0x32: Undefined
bool? boolCheck = (check == 0x31);
if (check == 0x32) boolCheck = null;
// invert checkmark
boolCheck = !boolCheck;
if (boolCheck == null)
check = 0x32;
if (boolCheck == true)
check = 0x31;
if (boolCheck == false)
check = 0x30;
stream.Seek(-1, SeekOrigin.Current);
stream.WriteByte(check);
现在写回新流并保存所有内容。完成。
// ignore all the other stuff
stream.Seek(0, SeekOrigin.Begin);
binary.FeedData(stream);
doc.Save();
}
}
}
break;
}
}
}
Console.Read();
注意:中断在那里是因为复选框被找到了两次,我懒得弄清楚原因。
结论这就是您如何使用 OpenXML 在电子表格中反转 activeX CheckBox 的复选标记。
附录 1这是我想出的完整代码。示例 xlsm 中只有一个 activeX 复选框:
static void Main(string[] args)
{
string fileName = @"C:\Users\***\Desktop\Test.xlsm";
using (SpreadsheetDocument doc = SpreadsheetDocument.Open(fileName, true))
{
foreach (var control in doc.WorkbookPart.WorksheetParts.First().Worksheet.Descendants<Control>())
{
Console.WriteLine();
Console.WriteLine("Control {0}:", control.Name);
Console.WriteLine("Id: {0}", control.Id);
var part = doc.WorkbookPart.WorksheetParts.First().GetPartById(control.Id) as EmbeddedControlPersistencePart;
var xreader = OpenXmlReader.Create(part.GetStream());
xreader.Read();
var xml = xreader.LoadCurrentElement();
var classID = xml.GetAttribute("classid", xml.NamespaceUri).Value;
if (classID == "{8BD21D40-EC42-11CE-9E0D-00AA006002F3}") // it is a checkbox
{
var binary = part.EmbeddedControlPersistenceBinaryDataParts.First();
using (var source = binary.GetStream())
{
using (var reader = new BinaryReader(source))
{
using (var stream = new MemoryStream(reader.ReadBytes((int)source.Length)))
{
// Skip random junk
stream.Seek(20, SeekOrigin.Begin);
// read additional data flags & how many additional bytes are added
var flags = (byte) stream.ReadByte();
var skip = 0;
if ((flags & 0x01) != 0) // Attribute Block
skip++;
if ((flags & 0x02) != 0) // BackColor Block
skip++;
if ((flags & 0x04) != 0) // ForeColor Block
skip++;
// skip some bytes
stream.Seek(2, SeekOrigin.Current);
flags = (byte) stream.ReadByte();
if ((flags & 0x01) != 0) // Special Effect Block
skip++;
if ((flags & 0x04) != 0) // PicturePosition Block
skip++;
// skip some flags
stream.Seek(4, SeekOrigin.Current);
// skip attribute blocks & some data blocks
stream.Seek(skip * 4 + 6 * 4, SeekOrigin.Current);
var check = (byte) stream.ReadByte();
// check = 0x30: False
// check = 0x31: True
// check = 0x32: Undefined
bool? boolCheck = (check == 0x31);
if (check == 0x32) boolCheck = null;
// invert checkmark
boolCheck = !boolCheck;
if (boolCheck == null)
check = 0x32;
if (boolCheck == true)
check = 0x31;
if (boolCheck == false)
check = 0x30;
stream.Seek(-1, SeekOrigin.Current);
stream.WriteByte(check);
// ignore all the other stuff
stream.Seek(0, SeekOrigin.Begin);
binary.FeedData(stream);
doc.Save();
}
}
}
break;
}
}
}
Console.Read();
}
附录 2对于任何感兴趣的人,这里是迄今为止对二进制格式的分析。如果设置了一些标志 (IIF),并且所有字符串都被填充为 4 字节的倍数,一些 block 将只被写入:
ClassID (first half is reverse byte order in a block)
40 1D D2 8B-42 EC-CE 11-9E 0D-00 AA 00 60 02 F3
Random Junk
00 02 38 00
Attribute Flags
TrippleState: C0=F, E0=T
40 01 C0 80 01 00 00 00
Cursor Flag
| ForeColor Flag
| |BackColor Flag
| ||Attribute Block
|??? ?|||
[0100 0000] 01 ...
Accelerator Flag
| SpecialEffect Flag
| | Picture Position Flag
??|? ?|?|
... C0 [1000 0000] ...
Attributes (IIF Attribute Flag)
1B 08 80 2C
BackStyle
| Enable
| | Alignment
| | | WordWrap
| | | | AutoSize
???? |?|? ??|? ???? |??? ???? ???| ????
[0001 1011 0000 1000 1000 0000 0010 1100]
Background Color (IIF BackColor Flag)
04 00 00 80 (Reverse order)
Foreground Color (IIF ForeColor Flag)
04 00 00 80 (Reverse order)
Random Junk
Mouse Cursor
40 00 00 00
Length: Value
01 00 00 80
Length: Caption
09 00 00 80
Picture Position (IIF Picture Position Flag)
00 00 02 00 = 0, Left Top
03 00 05 00 = 1, Left Center
06 00 08 00 = 2, Left Bot
02 00 00 00 = 3, Right Top
....
Special Effect (IIF Special Effect Flag)
00 00 00 00
Accelerator Key (IIF Accelerator Flag)
61 00 00 00
Length: Group
06 00 00 80
Width (unknown Units)
B7 09 00 00
Height (unknown Units)
E5 02 00 00
Value (Padded to multiple of 4 Bytes)
30 = False
31 = True
32 = Undefined
30 xx xx xx
Caption (Padded to multiple of 4 Bytes)
Group Name (Padded to multiple of 4 Bytes)
Random Junk
00 02 18 00 35 00 00 00
Length: Font
07 00 00 80
Random Junk (Variable length? not deciphered)
E1 00 00 00 00 02 00 00
Font Name (Padded to multiple of 4 Bytes)
我认为它相当完整,我涵盖了 ActiveX 公开的大部分属性,跳过了位图和图标。但也许还有更多;最后我无法破译最后一 block 垃圾;它的长度可变,但我并没有真正在意,因为它在复选标记之后。
关于c# - 如何使用 OpenXML 在 Excel 工作表中设置复选框值,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/62513791/
我最近一直在学习 Clojure。 Clojure 世界中是否有类似 Scala 的工作表这样的东西,我可以在其中放入任何代码并在保存后立即对其进行评估?或者也许 Clojure 有类似的解决方案?
有人可以帮我吗?我想知道如何过滤工作表中的多个选项卡(C1-C19)。这是我所做的: 我创建了一张表格,将所有回复存储在我的谷歌表单(事件注册表单)中。每个参与者将收到一个坦克编号,每个坦克编号根据其
这就是我将打开的面板显示为 float 窗口的方式。 有人可以帮我将面板作为工作表运行吗?窗口对象是mWindow。我使用的许多标准代码都已被折旧。 NSOpenPanel *openPanel =
当您仅键入 worksheets() 时,默认范围 ActiveWorkbook 或 ThisWorkbook 是什么?对于那些不了解这些区别的人来说,它们非常重要,尤其是在 Excel 2013 中
我有一个带有一些图表的 HTML 页面。我想要做的是编写一个加载 javascript 函数,它将从 excel 表中读取值,将它们存储在变量中并在 html 页面上使用它们。我的问题是是否有任何 j
我需要将参数 callFrom 传递给 SwiftUI 中的工作表。 奇怪的是,该参数在第一次调用时没有使用,但对以下调用有效。 import SwiftUI struct ContentView:
我试着 var tempSheet = wrksheets[sheetName] as Worksheet; 在哪里 wrksheets是类型表 sheetName 是“带空格的工作表名称” 如果
该函数用作“ Assets 类别分配”引擎(在参数范围内具有约束)并在数组的每一行上模拟投资组合模型。我尝试使用四种方法将数组发布到工作表上,但每种方法都失败了。 对于 Assets A、B、C、D
目前,我的 excel 文件有两张表,一张名为“English”,一张名为“French”。 我以编程方式打开我的工作簿并编辑我的英文表,没有任何问题。当我打开第二张工作表时,出现以下错误: The
我添加了一个 VBA 表单 userform和一个模块 Module1在 Excel 中打开 Microsoft VBA 编辑器 (Alt+F11)。 现在,每当我打开任何其他 Excel 时,按 A
在单个 Excel 工作簿中,我想选择各种工作表来运行 VBA 子例程。我找到了显示如何遍历选定工作表的代码,它使用“MsgBox sh.Name”;但是,当我将代码放入其中时,它只会影响选择的最后一
我想知道是否有一个函数可以在 Excel 中加载特定于 Python 的工作表,例如,如果我有 34 张工作表只加载前 25 张工作表。通过以下行,我加载了所有工作表。 xlsx=pd.ExcelFi
我有一个名为“A”、“B”、“C”等的工作表的 xlsx。我需要形成一个名称为“A”、“B”、“C”的表作为第一列,以及来自的一些数据每个工作表中与第二列相同的单元格。例如,这可能看起来像: S
我有一张用密码保护的工作表。当我使用 VBA 更改该表上的任何内容时,我会像这样取消保护: Private Sub Worksheet_Change(ByVal target As Range)
我想将 Excel 文档插入 Excel 工作表。我可以通过以下步骤手动执行此操作; 插入/文本/对象/从文件创建(勾选显示为图标)/浏览。 然后我选择文件并插入文档。 我想通过宏来做到这一点。 (录
是否可以创建 批处理文件那将执行以下操作? 重命名 Excel 文件中的单个工作表(不是 Excel 工作簿/文件本身) 将简单格式应用于 Excel 文件 - 例如,将字体和字体大小应用于整个工作簿
Private Sub CommandButton1_Click() Dim ws As Worksheet With Application.FileDialog(msoFileDialog
我想知道是否可以在不复制该工作表的情况下引用另一本工作簿中的 Excel 工作表? 情况:我有一些非常大的工作表,其中充满了各种数据,但我不想在我的工作簿中保留它们的副本,因为虽然每个工作簿都使用相同
我有这个 Python 字典,我想将这个数据写入 Excel 文件。 注意:有很多类别,每个类别有很多汽车(为简单起见,我使用了 2 个类别) data = {"Category": {"Diesel
我有一个 excel 工作簿,在工作簿中我有 2 张名为 Front Page 和 Drafting 的工作表。起草工作表引用了首页工作表中的一些值。这只是一个基本的引用 我有像这样的公式:='Fro
我是一名优秀的程序员,十分优秀!