Excel批量转为Html,Html转换成Excel

http://www.wordlm.com/Excel/JiChu/2411.html

在工作中时常会遇到转换的问题,比如笔者今天在网站上看到一个不错的表格,但这个表格是网页上面的,该网站又不提供下载,这个时候该如何将这个表格下载下来,并且完整的将其转换到Excel中呢?笔者灵机一动想到前几日在Word联盟网站上看到的一篇教程貌似就是如何将Html转Excel。

  将网上的Html转成Excel

  如果现在在某网站上看到一个不错的表格,想将它下载并导入到Excel中,方法非常简单。

  ①首先单击浏览器上的“文件”里面“另存为”,然后将保存类型选为“htm 或是 html”格式;

保存htm、html格式

  ②然后打开Excel,新建一个空白表格;单击菜单上的“数据”-->导入外部数据-->导入数据;

导入外部数据

  ③找到刚才保存的“Html”单击打开,再单击“导入”,在弹出的“导入数据”窗口中你可以选择“现有工作表”、“新建工作表”都行,然后单击确定即可。

新建Web查询

替换现有工作表

  好了,现在再看看Html中的所以表格是否已经完整的导入到Excel中了呢?自己再动手整理一下,相信和你做出来的表格没什么两样了。

  提示:有些朋友在Html转换Excel的过程中会将Html直接在Excel中打开,这种方式可能会导致Excel中的网线格无法正常显示出来。

  Excel转为Html格式

  上面Word联盟讲解了将Html转Excel的方法,这里在来说说如何将Excel转成Html吧!

  在Excel中直接单击菜单栏上的“文件”-->另存为,然后在弹出的“另存为”窗口下面的“保存类型”选择“网页(*htm;*html)”格式即可。

保存网页格式

  如果你手上有大量的表格,现在想全部转换为Html格式的话,我这里给大家推荐一款软件,可以批量转换,非常不错

 

 

 

=======================

http://www.oschina.net/code/snippet_657976_12672

通过apache的poi生成对应的cell即可。我用的是httpunit读取的http url,然后得到table,最后通过poi生成的。
下载地址: http://www.javaniu.com/explore/31.htm

代码片段(1)

[代码] [Java]代码

01package com.test;
02  
03import java.io.FileOutputStream;
04  
05import org.apache.poi.hssf.usermodel.HSSFWorkbook;
06import org.apache.poi.ss.usermodel.Row;
07import org.apache.poi.ss.usermodel.Sheet;
08import org.apache.poi.ss.usermodel.Workbook;
09  
10import com.meterware.httpunit.GetMethodWebRequest;
11import com.meterware.httpunit.WebConversation;
12import com.meterware.httpunit.WebRequest;
13import com.meterware.httpunit.WebResponse;
14import com.meterware.httpunit.WebTable;
15  
16public class Main {
17  
18    public static void main(String[] args) throws Exception {
19        WebConversation wc = new WebConversation();
20        WebRequest request = new GetMethodWebRequest(
21                "http://www.javaniu.com/table.html");

 

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
可以使用VBA中的Shell命令和Microsoft Print to PDF打印机驱动程序来实现将Zip压缩包中的Excel文件批量换为PDF的功能。 以下是一个示例代码,可以将Zip压缩包中所有的Excel文件换为PDF文件并保存在原文件夹下: ``` Sub ConvertExcelToPDF() Dim objShell As Object Dim objFolder As Object Dim objFile As Object Dim zipFilePath As String Dim extractPath As String Dim excelFilePath As String Dim pdfFilePath As String '设置Zip压缩包路径 zipFilePath = "C:\example\example.zip" '创建Shell对象 Set objShell = CreateObject("Shell.Application") '获取Zip压缩包中的文件夹对象 Set objFolder = objShell.NameSpace(zipFilePath).Items '设置解压路径 extractPath = "C:\example\" '解压Zip压缩包中的文件到指定路径下 objShell.Namespace(extractPath).CopyHere objFolder '遍历指定路径下的Excel文件并进行excelFilePath = extractPath & "\*.xlsx" pdfFilePath = extractPath & "\*.pdf" For Each objFile In objShell.NameSpace(extractPath).Items If objFile.Type = "Microsoft Excel 工作表" Then '打开Excel文件 Workbooks.Open objFile.Path '保存为PDF文件 ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfFilePath, _ Quality:=xlQualityStandard, IncludeDocProperties:=True, _ IgnorePrintAreas:=False, OpenAfterPublish:=False '关闭Excel文件 ActiveWorkbook.Close '删除原Excel文件 Kill objFile.Path End If Next objFile '删除解压后的文件夹 Kill extractPath & "\*.*" RmDir extractPath End Sub ``` 需要注意的是,需要将代码中的Zip压缩包路径、解压路径等信息修改为自己实际的路径。此外,代码中使用的是Microsoft Print to PDF打印机驱动程序将Excel文件换为PDF文件,因此需要确保计算机中已经安装了该打印机驱动程序。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值