精华内容
下载资源
问答
  • 通过VBA将word中的表格导入到excel

    万次阅读 2018-04-09 15:43:41
    通过VBA将word中的表格导入到excel中 由于项目需要,需要将word中的表格按照格式导入到excel中,所以通过在word中写VBA程序的方式将word的内容导出到excel中。1、添加“开发工具”选项卡 打开word(我的是office...

    通过VBA将word中的表格导入到excel中

        由于项目需要,需要将word中的表格按照格式导入到excel中,所以通过在word中写VBA程序的方式将word的内容导出到excel中。

    1、添加“开发工具”选项卡

        打开word(我的是office2007),点击左上角“office 按钮”,点击“word选项”,打开如下图所示界面:


    勾选“在功能区显示“开发工具”选项卡”

    2、VBA编辑界面

        此时,在word界面上就会出现“开发工具”选项卡,点击该选项卡,然后点击“Visual Basic”,如下图所示:


    此时,会弹出,VBA编辑界面,右键点击“Project(**)”,选择插入模块:


    进入模块编辑界面

    3、开始编辑

        关于VB的具体语法不再描述。只描述有关word和excel的相关操作

    3.1、读取word中的表格

        由于是在word中编写vba程序,所以不需要获取word的相关对象,直接用ActiveDocument来代替

    '获取文档中表格的数量
        tablesCount = ActiveDocument.Tables.Count
    '获取excel的目录和文件名
        Dim wordFileName As String
        wordFileName = Left$(ActiveDocument.Name, Len(ActiveDocument.Name) - 4)         '获取当前文档名称,不包括后缀名
    '从Word中新建并打开一个Excel文件
        Dim ExcelApp As Object
        Dim wk As Object
        Application.ScreenUpdating = False
        Set ExcelApp = CreateObject("Excel.Application")                                '打开一个Excel程序对象
        With ExcelApp
            .Visible = True                                                             '显示文件
            Set wk = ExcelApp.Workbooks.Add                                             '新建一个Excel文件
            wk.SaveAs FileName:=ThisDocument.path & "\" & wordFileName & "xlsx"         '设置新建Excel文件的路径和文件名
            ''导出内容''
        End With

        另外需要注意的是。如果想要在word中操作excel文件,需要在word的VBA编辑器中引入excel的库(比如:Microsoft Excel 12.0 Object Library)。引用方式是:点击VBA界面上的 工具->引用,弹出如下界面:


    选中该库即可

    3.2、将内容导出到excel

        要将内容导出到excel中,需要先获取word中的表格内容,然后再将内容导出到excel中。

    '获取表格的行数,其中j表示第j个表格
     tableRowCount = ActiveDocument.Tables(j).Range.Rows.Count
    
    '读取Word表格中对应单元格中的内容,其中 Cell(row, col) 表示的是表格中的第row行,第col列
     string = ActiveDocument.Tables(j).Cell(row, col).Range.Text
    
    '将数据写入到excel表格中,Sheets(1)表示的是excel文件的第一个工作表,Range("A1")表示的是A1单元格,A表示列
     wk.Sheets(1).Range("A1").Value = string 
    'wk.Sheets(1).Range("A" & row).Value = tFlagValue

    *****

    当数据输出完成之后,通过wk.Save来保存excel文件

    4、示例

        有一个例子,可以去以下网址 https://download.csdn.net/download/bailang_zhizun/10336439 下载

    展开全文
  • word表格批量导入到Excel

    千次阅读 2016-05-17 17:07:35
    通过宏命令将word表格批量导入到Excel
    
    	如果是一个word中的,复制粘贴。
    	如果是多个word中的,需要写个代码(如下),或者在网上找一下相关的工具。
    此方法适用于多个word文档里面的所有表格:
    1、将多个含有表格的word文档放入一个目录;
    2、在该目录中新建一个空的excel表格
    3、在excel表格中运行以下宏命令,即可。



    Sub WordTabletoExcel()

    Dim WordApp As Object, DOC, mTable, Fn$, Str$
    On Error Resume Next    '设置容错代码
    CreateObject("wscript.shell").Run "cmd.exe /c dir """ & ThisWorkbook.Path & "\*.doc"" /s/b>""" & ThisWorkbook.Path & "\list.txt""", False, True     '取得指定目录下的word文档清单
    Set WordApp = CreateObject("word.application")  '创建word程序项目(用于操作word文档)
    WordApp.Visible = True  '设定word程序项目可见
    Open ThisWorkbook.Path & "\list.txt" For Input As #1    '打开清单文件并读取内容
    While Not EOF(1)    '循环读取清单文件各行内容
    Input #1, Str   '输入一行文本到变量str中
    If Trim(Str) <> "" Then '如果文本有效则
    Set DOC = WordApp.Documents.Open(Trim(Str)) '利用word程序项目打开对应的word文档
    With DOC
    For Each mTable In .Tables  '循环文档中的各个表格

    If Mid(mTable.Cell(1, 1).Range.Text, 1, 4) = "水库名称"  and  Mid(mTable.Cell(1, 1).Range.Text, 1, 4) <> "水库名称" Then      '判断第一行第一列的名称

    '整个表格复制
           WordApp.Activate    '激活word程序,使之窗体前置
    mTable.Range.Copy   '复制表格区域
    With Windows(1)     '激活excel程序窗体,使之前置
    .Activate
    With ThisWorkbook.ActiveSheet   '选中当前使用区A列下面的第一个单元格,并粘贴复制的word中的表格数据
    .Cells(.Cells.SpecialCells(xlCellTypeLastCell).Row + 1, 1).Select
    .Paste
    End With
    End With


    '获取某个关键字值
    For Each MyRng In MyTable.Range.Cells
                    With MyRng.Range.Find
                        .Text = "关键字"
                       .Execute
                       If .Found Then
                            Sheets(1).[b65536].End(3).Offset(1) = Replace(MyRng.Next.Range, Chr(7), "")
                        End If
                    End With
                Next MyRng

        End If


    Next mTable
    .Close False    '关闭word文档
    End With
    End If
    Wend
    Close #1    '关闭清单文件
    If Dir(ThisWorkbook.Path & "\list.txt") <> "" Then Kill ThisWorkbook.Path & "\list.txt"     '删除清单文件
    WordApp.Quit    'word程序项目关闭
    Set DOC = Nothing   '清空对应项目变量
    Set WordApp = Nothing
    End Sub


    展开全文
  • 这时我迫切地需要将word表格中的数据导入到Excel中。相信大家也碰到过同样的问题,下面我就给大家分享一下在C#中如何使用免费控件来实现这一功能。这里,我使用了两个免费API, DocX和Spire....

    我通常使用MS Excel来存储和处理大量数据,但有时候经常会碰到一个问题—我需要的数据存储在word表格中,而不是在Excel中,这样处理起来非常麻烦,尤其是在数据比较庞大的时候,

    这时我迫切地需要将word表格中的数据导入到Excel中。相信大家也碰到过同样的问题,下面我就给大家分享一下在C#中如何使用免费控件来实现这一功能。这里,我使用了两个免费API,

    DocX和Spire.Xls。

    有需要的朋友可以下载使用。下载地址:

    DocX:codeplex官网

    Spire.Xls: E-iceblue官网

    注意:在创建项目后,需要添加这两个控件的相关.dll文件作为项目的引用。

     

                           

     

    以下是详细步骤:

    首先我使用DocX API 来获取word表格中的数据,然后将数据导入System.Data.DataTable对象中

    代码片段:

    步骤1:加载word文档;

    DocX document = DocX.Load("E:\\Program Files\\data.docx");

    步骤2从文档中获取表格。作为示例,这里我仅获取了第一个表格;

    //获取文档的第一个表格
    
    Table table = document.Tables[0];

    步骤3创建一个DataTable对象,并导入word表格中的数据;

    //创建一个Datable对象并命名为order
    
    DataTable dt = new DataTable("order");
    
    //将word表格中的数据导入Datable
    
    DataColumn column;
    
    for (int i = 0; i < table.ColumnCount; i++)
    
    {
    
    column = new DataColumn();
    
    column.ColumnName = table.Rows[0].Cells[i].Paragraphs[0].Text;
    
    dt.Columns.Add(column);
    
    }
    
    DataRow newRow;
    
    for (int i = 1; i < table.RowCount; i++)
    
    {
    
    newRow = dt.NewRow();
    
    Row row = table.Rows[i];
    
    for (int j = 0; j < table.ColumnCount; j++)
    
    {
    
    newRow[j] = row.Cells[j].Paragraphs[0].Text;
    
    }
    
    dt.Rows.Add(newRow);
    
    }


    效果图如下:

    原word文档:

     

    Datable:

     

     

    其次,我使用了Spire.Xls API来创建一个Workbook对象,并将dataTable插入到Workbook中,然后将文件保存为.xlsx文件。

    代码片段:

    步骤1创建一个Workbook实例并新建一个空的worksheet;

    //创建一个Workbook示例
    
    Workbook workbook = new Workbook();
    
    //新建一个空的worksheet
    
    workbook.CreateEmptySheets(1);
    
    //获取第一个worksheet
    
    Worksheet sheet = workbook.Worksheets[0];

    步骤2将dataTable中的数据导入到worksheet;

    //将dataTable中的数据插入到worksheet中,1代表第一行和第一列
    
    sheet.InsertDataTable(dt, true, 1, 1);

    步骤3 保存到一个excel文件中;

    workbook.SaveToFile("Data.xlsx",ExcelVersion.Version2007);


    生成的excel文件效果图:

     

     

    全部代码:

    using System.Data;
    
    using Spire.Xls;
    
    using Novacode; //Docx
    
    namespace word_table_to_excel
    
    {
    
        class Program
    
        {
    
            static void Main(string[] args)
    
            {
    
                DocX document = DocX.Load("E:\\Program Files\\data.docx");
    
                Table table = document.Tables[0];
    
                DataTable dt = new DataTable("order");
    
                DataColumn column;
    
                for (int i = 0; i < table.ColumnCount; i++)
    
                {
    
                    column = new DataColumn();
    
                    column.ColumnName = table.Rows[0].Cells[i].Paragraphs[0].Text;
    
                    dt.Columns.Add(column);
    
                }
    
                DataRow newRow;
    
                for (int i = 1; i < table.RowCount; i++)
    
                {
    
                    newRow = dt.NewRow();
    
                    Row row = table.Rows[i];
    
                    for (int j = 0; j < table.ColumnCount; j++)
    
                    {
    
                        newRow[j] = row.Cells[j].Paragraphs[0].Text;
    
                    }
    
                    dt.Rows.Add(newRow);
    
                }
    
                Workbook workbook = new Workbook();
    
                workbook.CreateEmptySheets(1);
    
                Worksheet sheet = workbook.Worksheets[0];
    
                sheet.InsertDataTable(dt, true, 1, 1);
    
                workbook.SaveToFile("Data.xlsx", ExcelVersion.Version2007);
    
            }
    
        }
    
    }


    总结:

    这是两款独立的免费软件,使用时不需要安装MS Office。使我节省了不少的时间。如果你有好的意见或建议,希望可以在这里相互分享。

     

    希望本文能给您带来一定的帮助。

    转载于:https://www.cnblogs.com/Yesi/p/4994086.html

    展开全文
  • 如何使用免费控件将word表格中的数据导入到excel中我通常使用MS Excel来存储和处理大量数据,但有时候经常会碰到一个问题—我需要的数据存储在word表格中,而不是在Excel中,这样处理起来非常麻烦,尤其是在数据比较...

    如何使用免费控件将word表格中的数据导入到excel中

    我通常使用MS Excel来存储和处理大量数据,但有时候经常会碰到一个问题—我需要的数据存储在word表格中,而不是在Excel中,这样处理起来非常麻烦,尤其是在数据比较庞大的时候,这时我迫切地需要将word表格中的数据导入到Excel中。相信大家也碰到过同样的问题,下面我就给大家分享一下在C#中如何使用免费控件来实现这一功能。这里,我使用了两个免费API,DocX和Spire.Xls。

    有需要的朋友可以下载使用。下载地址:
    DocX:codeplex官网
    Spire.Xls: E-iceblue官网

    注意:在创建项目后,需要添加这两个控件的相关.dll文件作为项目的引用。

    这里写图片描述

    以下是详细步骤:

    首先我使用DocX API 来获取word表格中的数据,然后将数据导入System.Data.DataTable对象中。

    代码片段:

    步骤1:加载word文档;

    DocX document = DocX.Load("E:\\Program Files\\data.docx");

    步骤2:从文档中获取表格。作为示例,这里我仅获取了第一个表格;

    //获取文档的第一个表格
    Table table = document.Tables[0];

    步骤3:创建一个DataTable对象,并导入word表格中的数据;

    //创建一个Datable对象并命名为order
    DataTable dt = new DataTable("order");
    //将word表格中的数据导入Datable
    DataColumn column;
    for (int i = 0; i < table.ColumnCount; i++)
    {
    column = new DataColumn();
    column.ColumnName = table.Rows[0].Cells[i].Paragraphs[0].Text;
    dt.Columns.Add(column);
    }
    DataRow newRow;
    for (int i = 1; i < table.RowCount; i++)
    {
    newRow = dt.NewRow();
    Row row = table.Rows[i];
    for (int j = 0; j < table.ColumnCount; j++)
    {
    newRow[j] = row.Cells[j].Paragraphs[0].Text;
    }
    dt.Rows.Add(newRow);
    }

    效果图如下:

    原word文档:
    这里写图片描述

    Datable:
    这里写图片描述

    其次,我使用了Spire.Xls API来创建一个Workbook对象,并将dataTable插入到Workbook中,然后将文件保存为.xlsx文件。

    代码片段:

    步骤1:创建一个Workbook实例并新建一个空的worksheet;

    //创建一个Workbook示例
    Workbook workbook = new Workbook();
    //新建一个空的worksheet
    workbook.CreateEmptySheets(1);
    //获取第一个worksheet
    Worksheet sheet = workbook.Worksheets[0];

    步骤2:将dataTable中的数据导入到worksheet;

    //将dataTable中的数据插入到worksheet中,1代表第一行和第一列
    sheet.InsertDataTable(dt, true, 1, 1);

    步骤3: 保存到一个excel文件中;

    workbook.SaveToFile("Data.xlsx",ExcelVersion.Version2007);

    生成的excel文件效果图:

    这里写图片描述

    全部代码:

    using System.Data;
    using Spire.Xls;
    using Novacode; //Docx
    namespace word_table_to_excel
    {
        class Program
        {
            static void Main(string[] args)
            {
                DocX document = DocX.Load("E:\\Program Files\\data.docx");
                Table table = document.Tables[0];
                DataTable dt = new DataTable("order");
                DataColumn column;
                for (int i = 0; i < table.ColumnCount; i++)
                {
                    column = new DataColumn();
                    column.ColumnName = table.Rows[0].Cells[i].Paragraphs[0].Text;
                    dt.Columns.Add(column);
                }
                DataRow newRow;
                for (int i = 1; i < table.RowCount; i++)
                {
                    newRow = dt.NewRow();
                    Row row = table.Rows[i];
                    for (int j = 0; j < table.ColumnCount; j++)
                    {
                        newRow[j] = row.Cells[j].Paragraphs[0].Text;
                    }
                    dt.Rows.Add(newRow);
                }
                Workbook workbook = new Workbook();
                workbook.CreateEmptySheets(1);
                Worksheet sheet = workbook.Worksheets[0];
                sheet.InsertDataTable(dt, true, 1, 1);
                workbook.SaveToFile("Data.xlsx", ExcelVersion.Version2007);
            }
        }
    }

    总结:

    这是两款独立的免费软件,使用时不需要安装MS Office。使我节省了不少的时间。如果你有好的意见或建议,希望可以在这里相互分享。

    希望本文能给您带来一定的帮助。

    展开全文
  • 之前,兰色曾分享过如何把word表格导入到Excel中而格式不变。还记得方法吗:word表格文档另存为网页格式用Excel打开网页文件另存为Excel文件很多同学问,Excel表格怎么导入到word文档中呢?也可以用另存为网页文件...
  • 由于工作的要求,需要将word文档里的表格提取出来放到excel里面。表格结构比较复杂,且一篇word里面有多个表格。对于一个word文档来说提取很简单,只要选中表格,然后复制黏贴到excel里面就可以了。但是word文档有上...
  • 把html的表格导入到excel,word

    千次阅读 2010-04-27 17:12:00
    function tableToWord() { try ... var oWD = new ActiveXObject("Word.Application");...alert("您的电脑没有安装Microsoft ...导入到excel" onclick="tableToExcel()"> 导入到word" onclick="tableToWord()">
  • 用Excel做的出差预算表,把它导入到Excel中,最直接的方法就是复制粘贴,但会有好多粘贴选项供你选择:1、保持格式大小粘到Excel中但如果表格较大,粘到word中无法完全显示,同时原来Excel中的图表也没有了:2、你也...
  • 特殊符号表示法^p/ctrl+j通常从Word中的表格导入到Excel中,常用的方法有:1. 直接选中复制粘贴——最原始简单的办法,但因为结构会错位,所以出现了第二种办法2. 将word另存为网页格式(单个网页*.mht),再使用excel...
  • 昨天老板让同事把几份简历转成Excel表格,同事苦着脸埋头苦干了两个小时,最后崩溃地来找我,让我救救他,我一看,这傻孩子,居然是用复制粘贴来做的,这样调整表格要调整明年吧?最后我教他一招,1分钟就完成了!...
  • 自动识别WORD中的表格,读取WORD表格到EXCEL,实现表格内容的自动获取。如果你的Word文档中包含多个结构相同的表格,且每个表格都是一个完整的记录,你需要选中,如果你的Word文档中包含多个表格,他们分别包含一条...
  • 用Excel做的出差预算表,把它导入到Excel中,最直接的方法就是复制粘贴,但会有好多粘贴选项供你选择:1、保持格式大小粘到Excel中但如果表格较大,粘到word中无法完全显示,同时原来Excel中的图表也没有了:2、你也...
  • 如何把word表格导入到Excel中而格式不变。还记得方法吗:word表格文档另存为网页格式用Excel打开网页文件另存为Excel文件Excel表格怎么导入到word文档中呢?也可以用另存为网页文件方式吗?用Excel做的出差预算表把...
  • 如何将word中的表格导入Excel

    万次阅读 2018-04-04 18:44:12
    1.选中word表格里的所有内容,复制、粘贴txt格式的文本文档; 2.打开Excel,新建空白表格。 3.重点操作!!! →单击“数据”→单击“导入数据”→选择数据源为刚才的txt文本文档→打开后“选择固定宽度” ...
  • word表格中提取数据到excel表格,可以批量提取数据自动导入的excel表格。
  • 继续开扒,今天要实现的是使用C#将excel表格嵌入到Word中这个功能,将word表格导入到excel中我已经写过了,如有需要可参考我之前的文章,在开始前还有一点需要指出的是在我的这个示例中是将excel表格转换为图片,...
  • Word 表格转存到Excel 工作中,经常需要将Word文档中的表格粘贴到Excel文件中,以便汇总及分析。一个一个复制粘贴,非常不方便,还是Python自动化操作,省心省力。要求如下图所示,即将word中的所有表格,转存...
  • excel表格怎么导入word?

    2019-09-17 16:30:22
    微软旗下的办公处理软件可以说是每台电脑必备的软件,那么我们在使用Excel处理表格数据后,会需要把Excel表格数据导入到word文档里做一些相关的文章报告,那么怎么把Excel表格数据导入到word文档里?下面就来看下...
  • PHP 用PHPExcel往数据库导入大量数据代码:$... //$temp=file("seo.csv");//连接EXCEL文件,格式为了.csvfor ($i=0;$i query($sqls);php 如何把word文档中的内容 导入到数据库中代码:$content = file($haoma); ...

空空如也

空空如也

1 2 3 4 5 ... 19
收藏数 367
精华内容 146
关键字:

word表格导入到excel