如何用vba代码打开文件夹内的word文档?:word vba教程

Sub Read_Word()Dim worDoc As objectDim wordappl As objectDim mydoc As StringDim myappl As Stringmydoc = thisworkbook.path & "\" & "文献名.doc"   '正文档目次下的doc文献,这边不妨径直改成路途+文献名的情势Set wordappl = CreateObject("Word.application")  '树立wordappl东西Set worDoc = wordappl.Documents.Open(mydoc) '翻开word文书档案,mydoc变量指定路途和文献名worDoc.Activate  '激活翻开的文书档案wordappl.Selection.WholeStory '全选文书档案wordappl.Selection.Copy  '复制采用实质到剪贴板worDoc.Application.Quit  '封闭word文书档案Set WordApp = Nothing  '开释东西变量的外存Workbooks(1).Sheets(2).Activate '激活excel第一个处事簿的第二个处事表ActiveSheet.UsedRange.Clear   '把暂时处事表清空,即使有要害数据,这条简略Cells(1, 1).Select    '采用A1单位格ActiveSheet.Paste  '粘贴复制的实质wordappl.quitset wordappl =nothingEnd Sub

如何用vba代码打开文件夹内的word文档?:word vba教程

转载请说明出处
网资源分享 » 如何用vba代码打开文件夹内的word文档?:word vba教程

发表评论

欢迎 访客 发表评论