gpt4 book ai didi

excel - 在perl中读写excel文件

转载 作者:行者123 更新时间:2023-12-04 18:08:25 26 4
gpt4 key购买 nike

我是最近的 Perl 用户。我需要一些有关在 perl 中读取和写入文件的帮助。

让我解释一下这个场景:例如,我有一个 input.xls 文件,其中包含字符串、数字、下拉列表。工作表中的某些单元格已锁定。

我想从 input.xls 文件中读取数据并将其写入名为 output.xls 的新文件中。

我在这里面临的问题是我无法保留我正在阅读的文件的格式。

即生成的输出文件不显示下拉列表,并且在 input.xls 文件中锁定的单元格不出现在 output.xls 文件中。

其次,即使输入文件的格式在输出文件中也会受到干扰。例如,如果单元格在输入文件中合并,则格式在输出文件中不会显示相同。请指导。

这是我的代码供您引用:

#!/usr/bin/perl -w

use strict;
use Spreadsheet::ParseExcel;
use Spreadsheet::WriteExcel;
use Spreadsheet::ParseExcel::SaveParser;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
print qq[Content-type:text/html \n\n];
my $cs='Book2.xls';
# Open the template with SaveParser
my $parser = new Spreadsheet::ParseExcel::SaveParser;
#my $formatter=Spreadsheet::ParseExcel::FmtJapan->new();
my $template = $parser->Parse('e.xls');

my $sheet = 0;
my $row = 0;
my $col = 2;

# Get the format from the cell
my $format = $template->{Worksheet}[$sheet]
->{Cells}[$row][$col]
->{FormatNo};



# Write data to some cells
$template->AddCell(0, $row, $col, 1, $format);
$template->AddCell(0, $row+1, $col, "This is a hello world eg", $format);
#$format->{Lock};
# Add a new worksheet
# $template->AddWorksheet('New Data');

# The SaveParser SaveAs() method returns a reference to a
# Spreadsheet::WriteExcel object. If you wish you can then
# use this to access any of the methods that aren't
# available from the SaveParser object. If you don't need
# to do this just use SaveAs().
#
my $workbook;

{
# SaveAs generates a lot of harmless warnings about unset
# Worksheet properties. You can ignore them if you wish.
local $^W = 0;

# Rewrite the file or save as a new file
$workbook = $template->SaveAs('new.xls');

}

# Use Spreadsheet::WriteExcel methods

my $worksheet = $workbook->sheets(0);
# $worksheet->protect();
#$worksheet->write('A1:B1','=1+2');
#my $locked = $workbook->add_format();
# $locked->set_locked(1); # A non-op

#my $unlocked = $workbook->add_format();
#$locked->set_locked(0);

# Enable worksheet protection
#$worksheet->protect();

# This cell cannot be edited.
#$worksheet->write('A1:B1', '=1+2', $locked);

$worksheet->write($row+2, $col, "World2");

$workbook->close();
print qq[
<head>
<script>

</script>
</head>
<body>

<p>The download should start shortly. If it doesn't, click
<a id="downloadLink" href="http://128.9.45.168/~mint/MINT_Portal/macro /963/cgi/$cs" download="$cs" target="_blank">here</a>.</p>
</body>
</html>

];

最佳答案

保持单元格的格式非常困难(对于某些任意电子表格)。 Spreadsheet::ParseExcel 并不真正理解那么多的格式设置(大多忽略它)。

您可能会发现,对于一个特定的电子表格,所有这些都适用,但随后您会发现一个格式更复杂的电子表格并不适用。

您需要的是能够无损 与 Excel 文档对象模型 (DOM) 交互的东西。 (即加载现有电子表格、克隆一些行、更改数据值、删除其他一些行、保存到不同的文件)。

我发现唯一可靠地执行此操作的代码是 Apache POI .

不幸的是,那是一个 Java API。我最终使用 Inline::Java 编写了一堆嵌入在我的 perl 脚本中的管道代码(用 Java) . (也有 .NET API 可以做到这一点,但我在 Linux 上,我永远无法让 MONO+Wine 堆栈运行大部分 Office 自动化的东西。)

这种方法可行,但实现它的代码非常复杂。我不鼓励尝试:-)

在 perl 中有什么方法可以避免这样做吗? (或者只是这一部分?)

关于excel - 在perl中读写excel文件,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/20607917/

26 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com