摘要： Perl实现HTML2TXT中文转换use HTML::TreeBuilder;use HTML::FormatText; open OUTPUT,">output.txt";$file = "C:/test.html";$tree = HTML::TreeBuilder->new->parse_file("$file"); $formatter = HTML::FormatText->new(leftmargin => 3, rightmargin => 100);print OUTPUT $fo 阅读全文

摘要： '删除超链接地址Sub RemoveLink()'Remove all hyperlinks from the active sheetActiveSheet.Hyperlinks.Delete'用下面的代码亦可'Cells.Hyperlinks.DeleteEnd Sub'获取超链接地址Sub getLink()Dim hlkTemp As HyperlinkFor Each hlkTemp In ActiveSheet.Hyperlinks'将抽取的超链接放在包含超链接单元格的后面hlkTemp.Range.Offset(0, 1).valu 阅读全文