C#将excel文本格式的数据添加到剪贴板

Question

在 C# 中，我需要将数据网格行复制到 Excel。因为一行中的某些值是双精度值，所以“-Infinity”值是可能的。

我尝试将行复制为 DataFormats.UnicodeText 或 DataFormats.Text 但这给了我输出“#NAME?”，我应该看到“-Infinity”（因为 excel 会自动插入一个“=”由于标准单元格格式，在“-Infinity”中的减号之前）。

当我在粘贴之前将单元格格式化为“Text”时，Excel 不会在“-Infinity”之前自动插入“=”。顺便说一句，我不需要在 excel 中对 double 值进行任何计算，所以文本格式对我来说就可以了。

所以我的问题是如何将数据复制到剪贴板并将其粘贴到excel中，同时将单元格格式设置为“文本”。

Answer 1

从原始剪贴板查看器开始，您可以看到复制

到剪贴板会导致 Excel 向剪贴板抛出大量不同的格式。

其中大部分没有帮助，但其中一些是 excel 内部的，这意味着它将（几乎）保证数据与复制的数据相同。如果我是你，我可能会以 XML SpreadSheet 为目标，或者如果你感觉勇敢 Biff12 这也是 xml（但已压缩）。与普通文本相比，这将使您对粘贴有更多的控制。

作为一个例子，上面的剪辑结果

<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
 xmlns:o="urn:schemas-microsoft-com:office:office"
 xmlns:x="urn:schemas-microsoft-com:office:excel"
 xmlns:ss="urn:schemas-microsoft-com:office:spreadsheet"
 xmlns:html="http://www.w3.org/TR/REC-html40">
 <Styles>
  <Style ss:ID="Default" ss:Name="Normal">
   <Alignment ss:Vertical="Bottom"/>
   <Borders/>
   <Font ss:FontName="Calibri" x:Family="Swiss" ss:Size="11" ss:Color="#000000"/>
   <Interior/>
   <NumberFormat/>
   <Protection/>
  </Style>
  <Style ss:ID="s63">
   <NumberFormat ss:Format="@"/>
  </Style>
 </Styles>
 <Worksheet ss:Name="Sheet1">
  <Table ss:ExpandedColumnCount="2" ss:ExpandedRowCount="2"
   ss:DefaultRowHeight="15">
   <Row>
    <Cell><Data ss:Type="Number">1</Data></Cell>
    <Cell><Data ss:Type="Number">2</Data></Cell>
   </Row>
   <Row>
    <Cell><Data ss:Type="String">Test</Data></Cell>
    <Cell ss:StyleID="s63"><Data ss:Type="String" x:Ticked="1">-Infinity</Data></Cell>
   </Row>
  </Table>
 </Worksheet>
</Workbook>

所以看起来更深一点...当我尝试使用 Clipboard.SetData 将 xml 写入剪贴板时，.Net Clipboard 类似乎做了一些奇怪而不那么美妙的事情

剪贴板从一堆谷壳开始。这当然会导致 Excel 拒绝剪贴板内容。

为了解决这个问题，我使用 Windows API (user32) 调用来处理剪贴板

    [DllImport("user32.dll", SetLastError = true)]
    static extern uint RegisterClipboardFormat(string lpszFormat);
    [DllImport("user32.dll")]
    static extern IntPtr SetClipboardData(uint uFormat, IntPtr hMem);
    [DllImport("user32.dll", SetLastError = true)]
    static extern bool CloseClipboard();
    [DllImport("user32.dll", SetLastError = true)]
    static extern bool OpenClipboard(IntPtr hWndNewOwner);

    private static void XMLSpreadSheetToClipboard(String S)
    {
        var HGlob = Marshal.StringToHGlobalAnsi(S);
        uint Format = RegisterClipboardFormat("XML SpreadSheet");
        OpenClipboard(IntPtr.Zero);
        SetClipboardData(Format, HGlob);
        CloseClipboard();
        Marshal.FreeHGlobal(HGlob);
    }

Answer 2

感谢您的信息。经过一番搜索，我发现您可以使用 .Net 剪贴板类，但不能将字符串传递给 SetData()。这对我有用：

System::Text::UTF8Encoding^ enc = gcnew System::Text::UTF8Encoding();
System::Windows::Forms::Clipboard::SetData("XML Spreadsheet", gcnew MemoryStream(enc->GetBytes(data)));

Answer 3

win32 api 解决方案对我不起作用。我有随机崩溃。 以下代码可以正常工作，也可以使用 unicode 字符。

var xml = File.ReadAllText(@"..\..\SampleData\Clipboard-Example3.xml");

var stream = new MemoryStream(Encoding.UTF8.GetBytes(xml));
var dataObject = new DataObject();
dataObject.SetData("XML SpreadSheet", stream);

Clipboard.Clear();
Clipboard.SetDataObject(dataObject);