如何利用excel vba提取word中表格的部分内容，复制粘贴到excel
这就一句话的事呀，两个工作簿都已经打开的情况下
Sub MyCopy()
Workbooks("工作簿1.xls").Sheet1.Range("A1:C50").Copy ThisWorkbook.Sheet2.Range("A1")
End Sub
意思就是把工作簿1中工作表sheet1的A1：C50区域复制到当前工作簿sheet2工作表的A1区域（这个区域与前面的区域是一样的，只需要写左上角的单元格即可）
试试下面的代码，在网上找的
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.application") mypath = ThisWorkbook.Path & "" myname = Dir(mypath & "*.doc*") Set mydoc = wordapp.Documents.Open(mypath & myname) Set wdRng = mydoc.Range wdRng.Find.Execute ("（一）") pos1 = wdRng.Start Set wdRng = mydoc.Range wdRng.Find.Execute ("五、") pos2 = wdRng.Start mydoc.Range(pos1, pos2).Copy '选中找到的两个字段中间的内容 mydoc.Close False wordapp.Quit Worksheets("Sheet2").Select Range("A1").Select ActiveSheet.Paste Application.ScreenUpdating = True Application.DisplayAlerts = TrueEnd Sub
试试下面的代码：
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.application")
mypath = ThisWorkbook.Path & ""
myname = Dir(mypath & "*.doc*")
Set mydoc = wordapp.Documents.Open(mypath & myname)
Set wdRng = mydoc.Range
wdRng.Find.Execute ("（一）")
pos1 = wdRng.Start
Set wdRng = mydoc.Range
wdRng.Find.Execute ("五、")
pos2 = wdRng.Start
mydoc.Range(pos1, pos2).Copy '选中找到的两个字段中间的内容
mydoc.Close False
wordapp.Quit
Worksheets("Sheet2").Select
Range("A1").Select
ActiveSheet.Paste
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
数据规律都差何实现word 提取内容制表格啊?
范珠法莫： 你的问题太大了,因为VBA在excel就是抓数据、计算数据的,要看你具体怎么抓.比如抓取特定字段数据,应该用到三个字符串函数:LEFT、RIGHT、MID 1、LEFT函数: 用法:LEFT(要提取字符所在单元格,从左侧开始提取的个数) 例如...
舒兰市17887332688： Excel 如何用VBA提取网页数据 - ？
范珠法莫： 1、首先打开Excel 2007工作表,点击想要把数据导入的位置,然后在菜单栏找到第五项'数据“,点击,在“获取外部数据”项下找到“自网站”并点击. 2、这时弹出来”新建 Web 查询“对话框,可以在“地址”一栏键入要添加数据的网页的地址. 3、添加完成后,点击“转到(G)”,下面会出来要添加网页的内容和黄色箭头,单击要选择的表旁边的黄色箭头,可以看到点击后黄色箭头变成绿色的对号,这表示内容已经选中了,然后单击“导入(I)”. 4、弹出来”导入数据“对话框,设置完成点击“确定”. 5、Excel表中显示“正在获取数据……”. 6、数据获取完成,之前选中的网页内容全部导入了Excel工作表里.
舒兰市17887332688： excel中如何通过VBA打开word文件和ppt文件? - ？
范珠法莫： wo.Documents.Open ThisWorkbook.Path & ＂\流程.doc＂ wo.Visible = True 二、打开ppt文件代码:方法1: Set wo = CreateObject(＂Powerpoint.Application＂) wo.Visible = True wo.Presentations.Open ThisWorkbook.Path & filename方法2:Sub ...
舒兰市17887332688： excel怎样用vba自动提取文件夹内的文件名 - ？
范珠法莫： excel中用vba实现自动提取文件夹内的文件名的方法如下:1、新建一个vba宏脚本2、写入如下代码:Function GetFileList(FileSpec As String) As Variant' Returns an array of filenames that match FileSpec' If no matching files are found, it returns ...
舒兰市17887332688： 如何利用VBA从多个excel文件中提取出含特定字段的数据 - ？
范珠法莫： 用open语句打开文件,然后应instr查找文本.如果字段是列,那直接找到列,然后用for循环查找就可以了
舒兰市17887332688： excel 如何用 vba 批量提取指定工作表 - ？
范珠法莫： 放在thisbook的workbook的open方法下.dim n as integer dim names names=＂＂ for n=1 to worksheets().count-1 if worksheets(n).name like ＂(2)＂ then names=names&worksheets(n).name&char(13) next n msgbox names
舒兰市17887332688： Excel excel文本框中的文字怎么提取 - ？
范珠法莫： 可以利用VBA提取,代码参考如下: Sub 提取()Dim shp As ShapeFor Each shp In ActiveSheet.ShapesMsgBox shp.OLEFormat.Object.TextNext End Sub
舒兰市17887332688： 怎样用VBA读取一个excel表格中的某一列,然后提取出来放到另一个sheet的一行里如何写代码求详细,谢谢 - ？
范珠法莫： Sheets(＂sheet1＂).Range(＂a1:a30＂).CopySheets(＂Sheet2＂).Select[a5].SelectSelection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _False, Transpose:=True
舒兰市17887332688： excel 怎么通过VBA 自动提取另一个工作表中相应数据,并可以同步修改、删除和添加 - ？
范珠法莫： 看了你的附件,用VLOOKUP函数就可以了在同1个工作薄额VBA,倒可以,跨文件,有点难. 上三个按钮能否者增加一个保存或修改的确认, 代码里添加 MSGBOX
舒兰市17887332688： 如何用VBA实现EXCEL根据关键字提取WORD文档中的内容 - ？
范珠法莫： 这涉及要分析 WORD中的文本 可能要使用正则表达式 具体 代码得看你的WORD文件内容和提取的内容
