精华内容
下载资源
问答
  • 所以我们今天分享的VBA小代码的内容是:如何将Word文件的表格数据批量写入Excel?比如说,有一个Word文件,里面有十几张表格,现在急需将每个表格的数据复制到Excel,每个表格自成一份Sheet,关键是很不巧,你的秘书...

    有很多的小伙伴询问VBA多文件协同应用的问题,比如如何将Word的数据写入Excel?所以我们今天分享的VBA小代码的内容是:

    如何将Word文件的表格数据批量写入Excel?

    比如说,有一个Word文件,里面有十几张表格,现在急需将每个表格的数据复制到Excel,每个表格自成一份Sheet,关键是很不巧,你的秘书MISS李请假一个月回老家了……

    操作动画如下:

    475e9997dfd9b596d877996615c209e8.gif

    代码如下

    Sub GetWordTable()    Dim WdApp As Object    Dim objTable As Object    Dim objDoc As Object    Dim strPath As String    Dim shtEach As Worksheet    Dim shtSelect As Worksheet    Dim i As Long    Dim j As Long    Dim x As Long    Dim y As Long    Dim k As Long    Dim brr As Variant    Set WdApp = CreateObject("Word.Application")    With Application.FileDialog(msoFileDialogFilePicker)        .Filters.Add "Word文件", "*.doc*", 1        '只显示word文件        .AllowMultiSelect = False        '禁止多选文件        If .Show Then strPath = .SelectedItems(1) Else Exit Sub    End With    Application.ScreenUpdating = False    Application.DisplayAlerts = False    Set shtSelect = ActiveSheet    '当前表赋值变量shtSelect,方便代码运行完成后叶落归根回到开始的地方    For Each shtEach In Worksheets    '删除当前工作表以外的所有工作表        If shtEach.Name <> shtSelect.Name Then shtEach.Delete    Next    shtSelect.Name = "EH看见星光"    '这句代码不是无聊,作用在于……你猜……    '……其实是避免下面的程序工作表名称重复    Set objDoc = WdApp.documents.Open(strPath)    '后台打开用户选定的word文档    For Each objTable In objDoc.tables    '遍历文档中的每个表格        k = k + 1        Worksheets.Add after:=Worksheets(Worksheets.Count)        '新建工作表        ActiveSheet.Name = k & "表"        x = objTable.Rows.Count        'table的行数        y = objTable.Columns.Count        'table的列数        ReDim brr(1 To x, 1 To y)        '以下遍历行列,数据写入数组brr        For i = 1 To x            For j = 1 To y                brr(i, j) = "'" & Application.Clean(objTable.cell(i, j).Range.Text)                'Clean函数清除制表符等                '半角单引号将数据统一转换为文本格式,避免身份证等数值变形            Next        Next        With [a1].Resize(x, y)            .Value = brr            '数据写入Excel工作表            .Borders.LineStyle = 1            '添加边框线        End With    Next    shtSelect.Select    objDoc.Close: WdApp.Quit    Application.ScreenUpdating = True    Application.DisplayAlerts = True    Set objDoc = Nothing    Set WdApp = Nothing    MsgBox "共获取:" & k & "张表格的数据。"End Sub

    代码已有注释说明,这里就不再啰嗦了。

    特殊时期,小伙伴们尽量不要出门。闷了,就学习excel吧。

    展开全文
  • 所以我们今天分享的VBA小代码的内容是:如何将Word文件的表格数据批量写入Excel?比如说,有一个Word文件,里面有十几张表格,现在急需将每个表格的数据复制到Excel,每个表格自成一份Sheet,关键是很不巧,你的秘书...

    有很多的小伙伴询问VBA多文件协同应用的问题,比如如何将Word的数据写入Excel?所以我们今天分享的VBA小代码的内容是:

    如何将Word文件的表格数据批量写入Excel?

    比如说,有一个Word文件,里面有十几张表格,现在急需将每个表格的数据复制到Excel,每个表格自成一份Sheet,关键是很不巧,你的秘书MISS李请假一个月回老家了……

    操作动画如下:

    e9c0fdfd21558ebac898b3062aeaf606.gif

    代码如下

    Sub GetWordTable()    Dim WdApp As Object    Dim objTable As Object    Dim objDoc As Object    Dim strPath As String    Dim shtEach As Worksheet    Dim shtSelect As Worksheet    Dim i As Long    Dim j As Long    Dim x As Long    Dim y As Long    Dim k As Long    Dim brr As Variant    Set WdApp = CreateObject("Word.Application")    With Application.FileDialog(msoFileDialogFilePicker)        .Filters.Add "Word文件", "*.doc*", 1        '只显示word文件        .AllowMultiSelect = False        '禁止多选文件        If .Show Then strPath = .SelectedItems(1) Else Exit Sub    End With    Application.ScreenUpdating = False    Application.DisplayAlerts = False    Set shtSelect = ActiveSheet    '当前表赋值变量shtSelect,方便代码运行完成后叶落归根回到开始的地方    For Each shtEach In Worksheets    '删除当前工作表以外的所有工作表        If shtEach.Name <> shtSelect.Name Then shtEach.Delete    Next    shtSelect.Name = "EH看见星光"    '这句代码不是无聊,作用在于……你猜……    '……其实是避免下面的程序工作表名称重复    Set objDoc = WdApp.documents.Open(strPath)    '后台打开用户选定的word文档    For Each objTable In objDoc.tables    '遍历文档中的每个表格        k = k + 1        Worksheets.Add after:=Worksheets(Worksheets.Count)        '新建工作表        ActiveSheet.Name = k & "表"        x = objTable.Rows.Count        'table的行数        y = objTable.Columns.Count        'table的列数        ReDim brr(1 To x, 1 To y)        '以下遍历行列,数据写入数组brr        For i = 1 To x            For j = 1 To y                brr(i, j) = "'" & Application.Clean(objTable.cell(i, j).Range.Text)                'Clean函数清除制表符等                '半角单引号将数据统一转换为文本格式,避免身份证等数值变形            Next        Next        With [a1].Resize(x, y)            .Value = brr            '数据写入Excel工作表            .Borders.LineStyle = 1            '添加边框线        End With    Next    shtSelect.Select    objDoc.Close: WdApp.Quit    Application.ScreenUpdating = True    Application.DisplayAlerts = True    Set objDoc = Nothing    Set WdApp = Nothing    MsgBox "共获取:" & k & "张表格的数据。"End Sub

    代码已有注释说明,这里就不再啰嗦了。

    特殊时期,小伙伴们尽量不要出门。闷了,就学习excel吧。

    展开全文
  • 一、快捷复制1、批量复制打开Excel表格之后,想要批量复制某个单元格里面的内容,除了手动一个一个复制之外,还有另外一种操作方法,那就是先选中需要复制的单元,然后按下键盘上的【Ctrl】+【Ent...

    假如说到Excel里面的复制粘贴,大家第一时间想到的肯定是【Ctrl + C】与【Ctrl + V】,但其实在Excel中还有比这更高效的快捷键,能替代【Ctrl】 + 【C】,下面就让我们起来看一看吧!

    87ff9a670e219a51d90b5a5d223a6aa6.png

    一、快捷复制

    1、批量复制

    打开Excel表格之后,想要批量复制某个单元格里面的内容,除了手动一个一个复制之外,还有另外一种操作方法,那就是先选中需要复制的单元,然后按下键盘上的【Ctrl】+【Enter】,这样一来就能实现批量复制了。

    9c4e85e8c6af12064e9477239965e1c0.gif

    2、复制粘贴左侧内容

    我们来看看下面这个例子,是将左侧的内容进行一个复制粘贴,在这种情况下,除了使用【Ctrl 】+【 C】和【Ctrl 】+ 【V】,还可以按下键盘的上【Ctrl 】+【R】,也能快速将左侧的内容复制粘贴到其他单元格。

    b0ffd8e4f7525d17ccb01cba70ce2420.gif

    3、复制粘贴上方内容

    看看下面这个例子,我们想要将首行内容进行一个复制粘贴,其实只要按下键盘上的【Ctrl 】+【D】,就能将其进行复制粘贴,而且操作起来也非常迅速,有多少行就按多少次。

    aeda6ac17d0ee02fa9cf904fad56f436.gif

    二、其他复制

    1、格式刷

    相信经常使用Excel制作表格都知道格式刷吧!只要我们选中需要复制的内容,然后双击格式刷,最后再将鼠标拖动到空白处,按下键盘上的【Enter】键,就可以快速复制粘贴了。

    040eefb2cdc3acf7f3d12b5d2ece0334.gif

    2、鼠标拖拉

    最后一个复制粘贴方法是拖拉鼠标,也就是先选中一排数据之后,鼠标停靠在右下方,等待鼠标变成【+】图标,最后拖动一下就可以快速复制粘贴了。

    a5d6b4fed8c5c4671d5b499209241c56.gif

    相信有了这些复制粘贴方法,大家应该不会只用【Ctrl 】+【 C】与【Ctrl 】+ 【V】了吧!如果大家还有其他补充的,欢迎在评论区留言。

    展开全文
  • 一、Excel转PPT1、复制表格有时候我们需要将表格转成PPT,直接复制粘贴过去的话,格式会乱,那么怎样才能原汁原味地保留表格的格式呢?简单!首先我们按【Ctrl+C】复制表格里的内容~2、选择性粘贴然后打开PPT...

    工作中经常都要转换各种各样的文件格式,如果不掌握点小技巧的话,要浪费很多时间在这上面,今天小编就来大家分享一些快速转换格式的小技巧,有需要的小伙伴可以学一学,下次需要的时候可以试一试!

    一、Excel转PPT

    1、复制表格

    有时候我们需要将表格转成PPT,直接复制粘贴过去的话,格式会乱,那么怎样才能原汁原味地保留表格的格式呢?

    简单!首先我们按【Ctrl+C】复制表格里的内容~

    13be4849408269fa5586e620cd77ceca.png

    2、选择性粘贴

    然后打开PPT,在粘贴时候选择【选择性粘贴】,这时会弹出一个窗口,我们选择【Microsoft Excel 工作表 对象】,这样表格就会原原本本地被复制过来啦!

    6071edde3b91902f9b5ded666fefb31a.gif

    二、Wordl转PPT

    1、大纲设置

    Word转PPT的话也很简单,我们在Word中点击【视图】——【大纲】,将小标题设置为「1级」,将正文内容设置为「2级」。

    869f73db006184d4956a4e390784fb70.gif

    2、新建幻灯片

    然后我们打开PPT,点击【新建幻灯片】——【幻灯片(从大纲)】,插入Word文件即可

    ee2c1c029730cd90a1da36d863f394fd.gif

    三、Word、Excel、PPT互转

    1、专业软件

    当我们的文件比较多的时候,一个一个转换太麻烦了,我们可以借助一些专业的软件来实现批量转换,我们可以在电脑中下载一个【迅捷PDF转换器】。

    d2bb7533a30e77b591cb994653e6cb8e.png

    2、转换操作

    这个转换器可以实现多种文件格式的互转,Word、Excel、PPT、PDF都可以进行互转,以PDF转Word为例,我们点击【文件转Word】功能,然后PDF文件添加进来~

    1602199f6661ea8e0f80b3b6d284cb72.png

    点击右下角的【立即转换】即可批量转换文件了~

    e049ec18a6888e137f61e4be137cfa94.png

    好啦,这就是小编今天要分享的内容啦!如果你还有更多更好的方法的话,欢迎在评论区分享哦!

    展开全文
  • excel单元格,数字前有空格(字符)...替换内容:(什么都不输入)3、全部替换4、关闭完成excel 怎样去掉每一行中第一个数字前的空格替换不成功的话,你可以先复制一个单元格前面的空格内容CTLR H在查找栏中 粘贴刚才复制...
  • 实例58:批量将文档内容转换成每行都带横线的表格 38 实例59:批量将文档内容设置作文格子形式 39 实例60:批量提取下列每行文字的第一部分超链接 40 实例61:提取歌曲的超级链接 40 实例62:清除网页中的乱码 41 ...
  • word使用技巧大全

    热门讨论 2011-03-18 20:37:53
    内容主要包括: word使用技巧;公式编辑技巧;页眉页脚技巧;目录处理技巧;参考文献格式排版技巧,word画图技巧,word转PDF等等。 下面是本资源的详细目录! ============================================= 目录 I...
  • 怎样升级安装《管家婆》Windows版? #1.具体步骤如下: 1).为避免在升级过程中断电或其它原因造成数据破坏和丢失,首先进行数据备份。 2).安装方法:请将升级版的1#盘插入软驱,在Win9x系统下运行1#盘的"Setup...
  • 实例185 批量复制文件 241 实例186 文件复制过程中显示进度条 242 5.6 指定类型的文件操作 243 实例187 对ini文件进行操作 243 实例188 文本文件的操作 245 实例189 在程序中使用自定义文件格式 ...
  • 实例185 批量复制文件 241 实例186 文件复制过程中显示进度条 242 5.6 指定类型的文件操作 243 实例187 对ini文件进行操作 243 实例188 文本文件的操作 245 实例189 在程序中使用自定义文件格式 ...
  • delphi 开发经验技巧宝典源码

    热门讨论 2010-08-12 16:47:23
    0217 根据表格中的数据长度自动调整表格宽度 144 7.2 ADO数据处理技术 145 0218 如何把ADO中的数据导入到ListBox中 145 0219 使用SQL语句保存数据 146 0220 使用赋值方式保存数据 147 0221 当ADO循环删除...
  • 0217 根据表格中的数据长度自动调整表格宽度 144 7.2 ADO数据处理技术 145 0218 如何把ADO中的数据导入到ListBox中 145 0219 使用SQL语句保存数据 146 0220 使用赋值方式保存数据 147 0221 当ADO循环删除...
  • 0217 根据表格中的数据长度自动调整表格宽度 144 7.2 ADO数据处理技术 145 0218 如何把ADO中的数据导入到ListBox中 145 0219 使用SQL语句保存数据 146 0220 使用赋值方式保存数据 147 0221 当ADO循环删除...
  • 0217 根据表格中的数据长度自动调整表格宽度 144 7.2 ADO数据处理技术 145 0218 如何把ADO中的数据导入到ListBox中 145 0219 使用SQL语句保存数据 146 0220 使用赋值方式保存数据 147 0221 当ADO循环删除...
  • 0217 根据表格中的数据长度自动调整表格宽度 144 7.2 ADO数据处理技术 145 0218 如何把ADO中的数据导入到ListBox中 145 0219 使用SQL语句保存数据 146 0220 使用赋值方式保存数据 147 0221 当ADO循环删除...
  • 0217 根据表格中的数据长度自动调整表格宽度 144 7.2 ADO数据处理技术 145 0218 如何把ADO中的数据导入到ListBox中 145 0219 使用SQL语句保存数据 146 0220 使用赋值方式保存数据 147 0221 当ADO循环删除...
  • C#.net_经典编程例子400个

    热门讨论 2013-05-17 09:25:30
    267 6.5 复制文件 268 实例186 移动正在使用的文件 268 实例187 批量复制文件 269 6.6 指定类型的文件操作 270 实例188 文本文件的操作 270 实例189 简单的文件加密解密 271 6.7 ...
  • 程序开发范例宝典>>

    2012-10-24 10:41:28
    实例223 批量复制文件 312 6.6 指定类型的文件操作 313 实例224 文本文件的操作 313 实例225 使用ROT13加密解密文件 314 6.7 其他 315 实例226 获取窗口文本 315 实例227 判断文件是否正在被使用...
  • 实例223 批量复制文件 312 6.6 指定类型的文件操作 313 实例224 文本文件的操作 313 实例225 使用ROT13加密解密文件 314 6.7 其他 315 实例226 获取窗口文本 315 实例227 判断文件是否正在被使用 316 实例228 在程序...
  • C#程序开发范例宝典(第2版).part02

    热门讨论 2012-11-12 07:55:11
    实例223 批量复制文件 312 6.6 指定类型的文件操作 313 实例224 文本文件的操作 313 实例225 使用ROT13加密解密文件 314 6.7 其他 315 实例226 获取窗口文本 315 实例227 判断文件是否正在被使用 316 实例228...
  • C#程序开发范例宝典(第2版).part13

    热门讨论 2012-11-12 20:17:14
    实例223 批量复制文件 312 6.6 指定类型的文件操作 313 实例224 文本文件的操作 313 实例225 使用ROT13加密解密文件 314 6.7 其他 315 实例226 获取窗口文本 315 实例227 判断文件是否正在被使用 316 实例228...
  • 实例223 批量复制文件 312 6.6 指定类型的文件操作 313 实例224 文本文件的操作 313 实例225 使用ROT13加密解密文件 314 6.7 其他 315 实例226 获取窗口文本 315 实例227 判断文件是否正在被使用 316 实例228...
  • 实例223 批量复制文件 312 6.6 指定类型的文件操作 313 实例224 文本文件的操作 313 实例225 使用ROT13加密解密文件 314 6.7 其他 315 实例226 获取窗口文本 315 实例227 判断文件是否正在被使用 316 实例228...
  • 实例223 批量复制文件 312 6.6 指定类型的文件操作 313 实例224 文本文件的操作 313 实例225 使用ROT13加密解密文件 314 6.7 其他 315 实例226 获取窗口文本 315 实例227 判断文件是否正在被使用 316 实例228...
  • 实例223 批量复制文件 312 6.6 指定类型的文件操作 313 实例224 文本文件的操作 313 实例225 使用ROT13加密解密文件 314 6.7 其他 315 实例226 获取窗口文本 315 实例227 判断文件是否正在被使用 316 实例228...
  • 实例223 批量复制文件 312 6.6 指定类型的文件操作 313 实例224 文本文件的操作 313 实例225 使用ROT13加密解密文件 314 6.7 其他 315 实例226 获取窗口文本 315 实例227 判断文件是否正在被使用 316 实例228...
  • 实例223 批量复制文件 312 6.6 指定类型的文件操作 313 实例224 文本文件的操作 313 实例225 使用ROT13加密解密文件 314 6.7 其他 315 实例226 获取窗口文本 315 实例227 判断文件是否正在被使用 316 实例228...
  • 实例223 批量复制文件 312 6.6 指定类型的文件操作 313 实例224 文本文件的操作 313 实例225 使用ROT13加密解密文件 314 6.7 其他 315 实例226 获取窗口文本 315 实例227 判断文件是否正在被使用 316 实例228...
  • 实例223 批量复制文件 312 6.6 指定类型的文件操作 313 实例224 文本文件的操作 313 实例225 使用ROT13加密解密文件 314 6.7 其他 315 实例226 获取窗口文本 315 实例227 判断文件是否正在被使用 316 实例228...
  • 实例223 批量复制文件 312 6.6 指定类型的文件操作 313 实例224 文本文件的操作 313 实例225 使用ROT13加密解密文件 314 6.7 其他 315 实例226 获取窗口文本 315 实例227 判断文件是否正在被使用 316 实例228...

空空如也

空空如也

1 2
收藏数 40
精华内容 16
关键字:

怎样批量复制表格内容