mdsk.net
当前位置:首页 >> vBA在ExCEl中打开worD并把里面的文字内容转为表格 >>

vBA在ExCEl中打开worD并把里面的文字内容转为表格

换一种思路! 把word中的数据 直接读取到excel转换成一个excel表格然后 你再对这个新的excel表格进行你需要的操作 不就可以解决问题了吗? 有关 word 转成 excel 表格的文章 有很多 你可以参考一下 ……这样处理就可以了……

在word vba工具-引用中选中Ms Excel就可以正常打开EXCEL进行操作了 Dim xlapp As Excel.Application ‘代表excel程序 Dim wkBook As Excel.Workbook '代表excelworkbook(也就是excel工作簿文件 .xls .xlsx) Dim wkSheet As Excel.Worksheet '代...

可用CreateObject函数创建对EXCEL的引用,然后就可打开EXCEL工作簿,将表格中的数据复制到WORD中,参考代码如下: Set xlapp = CreateObject("excel.application")With xlapp.Open("带路径的EXCEL文件名") .Sheets(1).Range("A1:H8").Copy '粘贴...

在EXcel的VB编辑器中插入一个模块,输入如下代码试试看。 Sub ExcelToWord() Dim WordObject As Object '声明一个对象变量,这里即将声明为Word对象 On Error Resume Next Set WordObject = CreateObject("Word.Application") '用set来创建Word...

试试下面的代码,在网上找的 Sub 宏1() Dim wordapp As Object Dim mydoc Dim mypath$, myname$ Dim wdRng As Object Dim pos1%, pos2% '定义找到的字段的首位位置 Application.DisplayAlerts = False Set wordapp = CreateObject("word.applica...

步骤一、先进入Excel表格,然后选中需要导入到Word文档中的区域,按下 Ctrl+C 复制; 步骤二、打开Word,然后选择菜单栏的“编辑”中的“选择性粘贴”,在“形式”下面选中“Microsoft Office Excel 工作表 对象”然后确定; 此时,就已经把编辑好的Excel...

可以完成。但要说如何完成,那就不是几句话能说清了。

'首先要在vba中引用Microsoft Word 11.0 Object Library Dim Wdapp As Word.Application Dim WdDocument As Word.Document Dim UserFile As String Private Sub CommandButton1_Click() Set Wdapp = New Word.Application UserFile = Wdapp.Path...

给你段示例,你再接着完善你的: Dim wdApp As Word.Application '定义WORD对象 Dim wdDoc As Word.Document '定义WORD文档对象 Dim wkSheet As Worksheet '定工作表对象 Dim I As Long '实例化WORD对象 Set wdApp = New Word.Application '创建...

把处理代码修改并移到workbook_open()事件中去,这样这个Excel文件打开时就自动运行其中的代码了。

网站首页 | 网站地图
All rights reserved Powered by www.mdsk.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com