我在工作表中有一个带有 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-Files 只是 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 字节的倍数：
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 公开的大部分属性，跳过了位图和图标。但也许还有更多；最后我没能破译最后一块垃圾；它有可变长度，但我并没有真正打扰，因为它在复选标记之后。
【讨论】：
我不知道是否有更简单的方法可以做到这一点，但这是一种方法。该复选框在电子表格中存储为 VML 图形。这是一个示例，当然没有错误检查，它显示了如何打开或关闭它。
XNamespace ExcelNs = "urn:schemas-microsoft-com:office:excel";
XName CheckBoxName = ExcelNs + "ClientData";
XName CheckBoxTypeAttributeName = "ObjectType";
const string CheckBoxType = "Checkbox";
using (var doc = SpreadsheetDocument.Open("Temp.xlsx", true))
{
var wb = doc.WorkbookPart;
var ws = wb.WorksheetParts.First();
var drawing = ws.VmlDrawingParts.First();
using (var reader = new StreamReader(drawing.GetStream()))
{
string content = reader.ReadToEnd();
XDocument d = XDocument.Parse(content);
var checkBox = d.Descendants()
.Where(e => e.Name == CheckBoxName &&
e.Attribute(CheckBoxTypeAttributeName)?.Value == CheckBoxType).FirstOrDefault();
if (null != checkBox)
{
var checkBoxValue = checkBox.Descendants(ExcelNs + "Checked").FirstOrDefault();
bool ischecked = null != checkBoxValue;
Console.WriteLine($"Checkbox is checked: {ischecked}");
if (ischecked)
checkBoxValue.Remove();
else
checkBox.Add(new XElement(ExcelNs + "Checked", "1"));
reader.Close();
using (var writer = new StreamWriter(drawing.GetStream()))
{
d.Save(writer);
}
doc.Save();
}
}
}
此示例有一个工作簿，其中包含一个工作表和一个复选框。
【讨论】：
对于任何关注此问题的人来说，CShark 的回答非常出色，并为我的解决方案奠定了基础。根据我的需要，它允许我在内存流中打开 Word DOCX（使用 Open XML SDK），将内容作为流复制到新的 Word DOCX 中，然后将任何 ActiveX 控件按钮（单选按钮）打开到同一流中.然后，我们可以修改流中与收音机的选中/未选中状态相关的字节，并将其保存回流中。我们正在使用 Open XML SDK 和一些带有底层字节的 jiggery-pokery 有效地修改 ActiveX 单选按钮的属性。
这是我们解决方案的概要。请注意，您需要安装 Microsoft 的“OffVis”工具来检查每个 ActiveX 控件 BIN 文件的内容。 （要查找 BIN 文件，请将 DOCX 的扩展名更改为 ZIP，然后查找子文件夹“word”，然后查找“activeX”）
using (MemoryStream ms = new MemoryStream())
{
//open the template doc using OpenOfficeSDK
using (var mainDoc = WordprocessingDocument.Open("myDoc.docx", false))
//creat a new Word doc in memory using the SDK
using (WordprocessingDocument wordDocument = WordprocessingDocument.Create(ms, WordprocessingDocumentType.Document, true))
{
//copy all of the "Parts" of the template to our new doc
foreach (var part in mainDoc.Parts)
{
wordDocument.AddPart(part.OpenXmlPart, part.RelationshipId);
}
//copy the "Body" of the "MainDocumentPart" of the template to our new doc
Body body = wordDocument.MainDocumentPart.Document.Body;
//find our radio button
var radioButton = body.Descendants<Control>().First();
var embeddedPart = wordDocument.MainDocumentPart.GetPartById(control.Id) as EmbeddedControlPersistencePart;
//get the XML for the embedded part from wherever it is stored
var xreader = OpenXmlReader.Create(embeddedPart.GetStream());
xreader.Read();
var xml = xreader.LoadCurrentElement();
var classID = xml.GetAttribute("classid", xml.NamespaceUri).Value;
if (classID == "{8BD21D50-EC42-11CE-9E0D-00AA006002F3}") //it is a radio
{
var binary = embeddedPart.EmbeddedControlPersistenceBinaryDataParts.First();
using (var source = binary.GetStream())
{
using (var reader = new BinaryReader(source))
{
using (var stream = new MemoryStream(reader.ReadBytes((int)source.Length)))
{
stream.Position = 2080; //this is position 00000800 in the BIN file.
var r = (byte)stream.ReadByte();
while (r != 48)
{
r = (byte)stream.ReadByte(); //search for decimal 48, which is the value of an 'Off' radio button
}
if (r == 48)
{
stream.Seek(-1, SeekOrigin.Current);
stream.WriteByte(0x31); //change the value to hex 31, which is 'On'
//save the modified value to the stream
stream.Seek(0, SeekOrigin.Begin);
binary.FeedData(stream);
}
}
}
}
}
}
}
我使用 OffVis 工具检查 ActiveX BIN 文件。我能够确定有意义的信息从 BIN 流中的位置 2080 开始。这是 OffVis 的截图：
CShark 已经告诉我们，未选中的单选按钮的十六进制值为 0x30，选中的为 0x31。我只是从位置 2080 循环，直到找到未检查的值（0x30 = 48 十进制）。 （你可以看到它与图片中的红色圆圈）。然后可以将此值更改为 0x31（选中）并保存回流。我接受这不是完全稳健，但这是一个开始。显然，您需要根据自己的控制设置自己的位置。
最后，可以根据需要使用流。我将我的转换为字节数组并保存到数据库。
总之，我们已经将带有 ActiveX 控件的 DOCX 复制到新的 DOCX 中，修改了 ActiveX 单选的选中/未选中属性，并保存了新文档。
我希望这对某人有用。请不要拍我，这是我第一次动态修改二进制文件！
再次感谢 CShark！
【讨论】：