manbet网

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 165|回复: 3
打印 上一主题 下一主题

怎么将Word的manbet复制到Excel相应的工作表里面

[复制链接]
跳转到指定楼层
1楼
发表于 2021-6-10 11:25 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
怎么将Word的manbet复制到Excel相应的工作表里面



WORD转EXCEL.zip

39.57 KB, 下载次数: 4

分享到:  QQ好友和群QQ好友和群
收藏收藏
2楼
发表于 2021-6-10 16:33 | 只看该作者
在WORD中运行
  1. Sub Zldccmx()
  2.     Dim Tb As Table, Wb As New Excel.Application
  3.     ' Set Wb = CreateObject("Wb As New Excel.Application") '
  4.     Wb.Workbooks.Open ThisDocument.Path & "\VBA测试.xlsx"
  5.     For Each Tb In ActiveDocument.Tables
  6.         Tb.Select
  7.         Selection.Copy
  8.         Selection.MoveUp Unit:=wdLine, Count:=1
  9.         Selection.Expand Unit:=wdLine
  10.         bm = Split(Selection, " ")(0)
  11.         If InStr(bm, ":") Then bm = Split(bm, ":")(1)
  12.         If InStr(bm, ":") Then bm = Split(bm, ":")(1)
  13.         If InStr(bm, ")") Then bm = Split(bm, ")")(1)
  14.         If InStr(bm, ")") > 0 Then bm = Split(bm, ")")(1)
  15.         Wb.Visible = True
  16.         Tb.Range.Copy
  17.         On Error Resume Next
  18.         Wb.worksheets(bm).Activate
  19.         If Err.Number <> 0 Then Wb.Sheets.Add.Name = bm: Err.Clear
  20.         On Error GoTo 0
  21.         Wb.ActiveSheet.[a1].Select
  22.         Wb.ActiveSheet.Paste
  23.     Next
  24.     Wb.ActiveWorkbook.Close , True
  25.     Wb.Quit
  26. End Sub
复制代码
3楼
发表于 2021-6-10 17:17 | 只看该作者
保证和XLS同目录

VBA测试.zip

22.82 KB, 下载次数: 3

4楼
发表于 2021-6-11 12:32 | 只看该作者

想请教一下如何将EXCEL里的manbet复制到word里面啊
您需要登录后才可以回帖 登录 | 注册 发新帖

本版积分规则

小黑屋|手机版|Archiver|manbet ( )

GMT+8, 2021-7-1 16:13 , Processed in 0.130000 second(s), 6 queries , Gzip On, Redis On.

Powered by X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表