vba操作word文件

VBA文件操作及目录操作

VBA包含了许多用于文件操作的语句和函数，可以满足绝大多数情况下的文件操作要求。下面我们按照操作目的进行一一介绍。

（一）文件处理

1.Name 语句

语法：Name oldpathname As newpathname

功能：重命名一个文件、目录、或文件夹，移动一个文件。

说明：在一个已打开的文件上使用 Name，将会产生错误。进行文件操作时，一定要注意错误处理。

示例：

On Error Resume Next '错误处理

Name \ '重命名 Name \ '移动文件

Name \ '跨驱动器移动并重命名文件

注意：Name不能移动一个目录或文件夹。

2、FileCopy 语句

语法：FileCopy source, destination

功能：复制一个文件。

说明：如果对一个已打开的文件使用 FileCopy 语句，则会产生错误。

示例：

FileCopy \ '从F盘复制TEST.xls到E盘

3、Kill 语句

语法：Kill pathname

功能：从磁盘中删除文件。

说明：Kill 支持多字符 (*) 和单字符 (?) 的统配符来指定多重文

使用VBA操作Word表格

一、生成表格

Private Sub CreateTable(mRows As Integer, mColumns) Dim mRange As Range

Set mRange = ActiveDocument.Range

mRange.SetRange Start:=ActiveDocument.Range.End, End:=ActiveDocument.Range.End

Set SelfGenTable = ActiveDocument.Tables.Add(Range:=mRange, NumRows:=mRows, NumColumns:=mColumns) End Sub

上面过程的作用是在活动文档的末尾插入一个mRows行，mColumns列的表格。 二、在读写表格中的单元格 写入单元格使用如下代码：

TableObject.Cell(Row:=curRow, Column:=curColumn).Range.InsertAfter \文本\上面代码的做用时在curRow行，curColumn列处插入字符“文本”。

其中TableObject为表格对象，如果使用了生成表格中的例子，那么可以用Sel

Excel-VBA操作文件四大方法之一__利用Excel对象来处理文件

在我们日常使用Excel的时候，不仅会用到当前Excel文件的数据，还经常需要访问其他的数据文件。这些数据文件可能是Excel文件、文本文件或数据库

文件等。经常有朋友会问如何在vba代码里操作这些数据文件？本文就系统地介绍一下在Excel中应用VBA操作数据文件的方法。

本文主要介绍四种常用的方法：

1、利用Excel对象来处理文件；

2、利用VBA文件处理语句来处理文件；

3、利用FileSystemObject对象来处理文件；

4、利用API函数来处理文件。

当然对于数据库文件，还可以利用ADO＋SQL的方法操作，不过论坛已经有前辈详细介绍过此类方法，本文就不再重复了。

一、利用Excel对象来处理文件

利用Excel对象自带的方法来操作文件是最方便，也是最简单的。

我们主要利用Workbooks集合和Workbook对象的方法来操作文件。

1、打开Excel文件

我们可以用Workbooks.Open方法打开一个Excel工作簿。

Workbooks.Open(FileName, UpdateLinks, ReadOnly, Format, Password, WriteResPasswor

Excel-VBA操作文件方法总结

一、利用Excel对象来处理文件 ......................................................................................... 4 1、打开Excel文件 ........................................................................................................... 4 2、打开文本文件 ............................................................................................................. 4 3、打开其他文件 ............................................................................................................. 5 4、保存文件 ...............................

‘sub xlsOpen()

Set rrr = CreateObject(\ Set r = rrr.GetFolder(\练习\\\

Application.ScreenUpdating = False For Each i In r.Files

Workbooks.Open Filename:=(\练习\\\ Sheets(1).Cells(2,5 )=“10”

ActiveWorkbook.Close savechanges:=true Next

Application.ScreenUpdating = True ‘End Sub

ExecuteExcel4Macro \ ‘打印当前SHEET

ActiveWorkbook.Close savechanges:=false ‘不

Microsoft Word VBA (2)

Application/Global, Documents,Templates, Tables, Cells, Bookmarks, FormFields, Variables

Windows, View, Panes

Dialogs

Application Object

注：任何Word object都有Parent,Creator,Application属性。

Obj.Parent:返回Obj的Parent object。Parent关系一般可由Object model中的层次关系看出。例如Find object的Parent是某 Range或Selection object。w

Dim r As Range

Set r = ActiveDocument.Paragraphs(1).Range

MsgBox TypeName(r.Parent) ? Document r.Select

MsgBox TypeName(Selection.Parent) ? Pane

MsgBox TypeName(

'''VBA_1基本入门代码集

''' by daode1212 2010-10-20

Sub Msg_01() '''消息框:

MsgBox \我们将成为VBA高手!\End Sub

Sub Msg_02() '''消息框,换行:

MsgBox \我们将成为:\高手!\高手!\高手!\End Sub

Sub Msg_03()

'''消息框,双引号:

MsgBox \我们将成为VBA高手!\专家级的高手!\End Sub

Sub Msg_04()

'''消息框,当前时间:

'MsgBox \新的长征起步于:\

'MsgBox \新的VBA高手诞生于:\'MsgBox \当前日期:\'MsgBox \当前时间:\

'MsgBox \当前时钟(秒):\

'MsgBox \星期(星期日:1,星期一:2):\

'MsgBox DateDiff(\距2010-01-10的天数 ''==================字母所表示的意义===================== '' yyyy 年 '' q 季度 '' n 月

'' y 一年的日数 '' d 日

'' w 一周

从零开始，步入Word宏编程的世界（第一讲）

工作中，经常看到许多朋友在使用Office时已经非常地熟练，但仍不敢去接触Office 的VBA编程；在网上Office的VBA编程论坛中，同样看到有朋友在其中流连了相当长的时间，但仍然不得其门而入。问一下这两类朋友，前者觉得编程是一件很“高深”的事，自己恐怕学不会；后者为了提高自己的工作效率，虽然很想学，但自己一点编程的基础也没有，照着网上高手们的帖子做，反而越学越糊涂。当我问第二类朋友为什么不多看看VBA的帮助文件时，“看不大懂，就像有语言障碍一样。”他这样回答我。

对于第一类朋友，我想说，不要被自己想象出来的“困难”吓倒，如果您没有亲自尝试过，怎么知道编程会很“高深”，又怎么知道自己学不会？而第二类朋友如果能静下心来把基础知识补一补，相信您的问题也会迎刃而解。

那么，就让我们从最基础的知识开始，步入Office宏编程的世界吧。 文前的几点说明：

1、虽说本文用到的程序在office2007与office2010中同样可以正常运行，但考虑到目前单位办公用机的实际情况，本文所有的实例主要还是面向Office2003的用户；

2、为了便于

VBA宏编程操作指南

修订记录版本 V1.0 日期 2011-3-17 作者 jingpengtao 说明 VBA基础教程，不用自己写代码，不 用看懂代码也可以写出适合自己工作 的宏。

目录1.1 1.2 1.3 1.4 1.5 1.6 1.7 第一部分：关键代码解释 ......................................................................................... 3 第二部分：如何录制宏 ............................................................................................. 9 第三部分：实例解释如果编写宏 ........................................................................... 10 第四部分：如何确定在哪个位置插入关键代码呢？ ........................................... 20 第五部分：如何调试宏 ......................

如何在VBA判断EXCEL或WORD文件已经打开，并用代码关闭

字体: 小 中 大 | 打印 发表于: 2003-6-17 20:17 作者: huanghai 来源: Office中国社区门户

如何在VBA（ACCESS）中用代码判断一个EXCEL或WORD文件已经打开，并用代码关闭

我也来说两句 查看全部回复 最新回复

?

竹笛 (2003-6-18 06:17:00)

笨办法，你试试：

1、在ACCESS代码中获取那个EXCEL文件中一个指定的cells的value 2、如果出错……，您知道了吧。 3、关闭这个EXCEL： olxApp.Quit

Set olxApp = Nothing '这个你是知道的

?

李寻欢 (2003-6-18 06:20:00)

Dim MyXL As Object

Set MyXL = GetObject(, \ For Each axls In MyXL.workbooks

If InStr(1, axls.Name, \ 'axls.Close '关闭文档 MyXL.Quit '退出excel