delphi 复制粘贴excel的单元格内容到stringgrid

g58521547

已于 2024-06-23 10:59:48 修改

阅读量353

点赞数 3

分类专栏： DELPHI VCL 文章标签： excel delphi

于 2024-06-19 21:51:59 首次发布

本文链接：https://blog.youkuaiyun.com/g58521547/article/details/139813694

版权

delphi xe10.4.2, window 10， excel 2016

从stringgrid复制到粘贴板时，如果stringgrid的单元格内有换行的话，或者有双引号，或者有逗号，空格的话，都需要在字符串的前后加上双引号,并且行内的换行符替换为#10,因为delphi认可#13#10，而excel用#10表示换行",

Procedure CopySelectCells(sg: tstringgrid);
var
    i, j: integer;
    s, s2, cellStr: string;
begin
    clipboard.Clear;
    clipboard.Open;
    s2 := '';
    for i := sg.Selection.Top to sg.Selection.Bottom do
    begin
        s := '';
        for j := sg.Selection.Left to sg.Selection.Right do
        begin
            cellStr := sg.Cells[j, i];
            // 需要循环把字符串中双引号重复一次
            // cellStr := stringreplace(cellStr, '"', '""',
            // [rfignorecase, rfReplaceAll]);
            // 当读取commatext时，如果字符串中有空格，逗号和引号的话，都会在首尾加上双引号。
            // When retrieving CommaText, any string in the list that include spaces, commas