vba访问服务器中txt文件,vba读取word内容 vba读取txt文件

excel vba 读取 word 指定字符

Sub 按钮1()Dim myPath As StringSet Wdapp = CreateObject(＂Word.Application＂)Wdapp.Visible = TrueApplication.ScreenUpdating = False '关闭屏幕刷新' On Error Resume Next '捕捉错误myPath = ThisWorkbook.Path & ＂\多房地产预评估函.doc＂ '定义word文件路径，自己修改Set wdDoc = Wdapp.Documents.Open(myPath) '打开wordwdDoc.Activatesr = wdDoc.Content '将word的文档内容赋予变量srMsgBox Mid(sr, InStr(sr， ＂籍贯＂) + 3, 2)wdDoc.Close '关闭wordWdapp.QuitSet Wdapp = NothingSet wdDoc = NothingApplication.ScreenUpdating = True '开启屏幕刷新End Sub

VBA excel调用word内容

在有word文件的文件夹中新建一个excel工作簿，打开工作簿，按Alt+F11，把下面的代码复制进去，按F5执行。

代码会复制work文件的前300个字符到excel中。