ExcelVBA文件操作Word文档格式.docx
《ExcelVBA文件操作Word文档格式.docx》由会员分享,可在线阅读,更多相关《ExcelVBA文件操作Word文档格式.docx(73页珍藏版)》请在冰豆网上搜索。
![ExcelVBA文件操作Word文档格式.docx](https://file1.bdocx.com/fileroot1/2022-12/17/c60971d6-c1ab-4dbd-961d-650ea99ed4e0/c60971d6-c1ab-4dbd-961d-650ea99ed4e01.gif)
2007-3-29
Workbooks.OpenTextFilename:
="
\CallWindowProc.txt"
Origin:
=xlWindows,_
StartRow:
=1,DataType:
=xlDelimited,TextQualifier:
=xlDoubleQuote,_
ConsecutiveDelimiter:
=False,Tab:
=True,Semicolon:
=False,Comma:
=False_
Space:
=False,Other:
=False,FieldInfo:
=Array(1,1),_
TrailingMinusNumbers:
=True
EndSub
在实际编程中只要做相应的修改就可以使用了。
3、打开其他文件
利用Excel对象还可以打开XML文件和一些数据库(如Access)文件,对应XML文件,需要Excel2003以上的版本。
OpenXML方法的语法如下:
Workbooks.OpenXML(Filename,Stylesheets,LoadOption)
FileName
String类型,必需。
要打开的文件名。
Stylesheets
Variant类型,可选。
单个值或值的数组,用于指定要应用哪些XSL转换(XSLT)样式表处理指令。
LoadOption
Variant类型,转换。
指定Excel打开XML数据文件的方式。
可为XlXmlLoadOption常量之一。
XlXmlLoadOption可为以下XlXmlLoadOption常量之一:
xlXmlLoadImportToList将XML数据文件的内容置于XML列表中。
xlXmlLoadMapXml在“XML结构”任务窗格中显示XML数据文件的架构。
xlXmlLoadOpenXml打开XML数据文件。
文件的内容将展开。
xlXmlLoadPromptUser提示用户选择打开文件的方式。
示例
下面的代码打开了XML数据文件“customers.xml”并在XML列表中显示了此文件的内容。
SubUseOpenXML()
Application.Workbooks.OpenXML_
Filename:
customers.xml"
_
LoadOption:
=xlXmlLoadImportToList
OpenDatabase方法语法如下:
Workbooks.OpenDatabase(FileName,CommandText,CommandType,BackgroundQuery,ImportDataAs)
连接字符串。
CommandText
查询的命令文本。
CommandType
查询的命令类型。
以下是可用的命令类型:
Default、SQL和Table。
BackgroundQuery
查询的背景。
ImportDataAs
确定查询的格式。
本示例中,Excel打开了“northwind.mdb”文件。
SubOpenDatabase()
Workbooks.OpenDatabaseFileName:
C:
\northwind.mdb"
4、保存文件
文件的保存使用Workbook对象的Save或SaveAs方法。
Save方法使用简单,语法为
expression.Save,expression是某个Workbook对象。
如:
ActiveWorkbook.Save
即保存当前活动工作簿。
如果是第一次保存工作簿或要另存为,请使用SaveAs方法为该文件指定文件名。
其语法为:
expression.SaveAs(FileName,FileFormat,Password,WriteResPassword,ReadOnlyRecommended,CreateBackup,AccessMode,ConflictResolution,AddToMru,TextCodepage,TextVisualLayout,Local)
具体参数含义可参看VBA帮助,使用都比较简单。
本示例新建一个工作簿,提示用户输入文件名,然后保存该工作簿。
SetNewBook=Workbooks.Add
Do
fName=Application.GetSaveAsFilename
LoopUntilfName<
>
False
NewBook.SaveAsFilename:
=fName
Application.GetSaveAsFilename为调出标准的“另存为”对话框,获取用户文件名,但并不真正保存任何文件,然后使用代码保存文件。
还有Application.GetOpenFileName可以调出标准的“打开”对话框。
5、关闭文件
关闭文件可以使用Workbooks集合或Workbook对象的Close方法。
前者是关闭所有打开的工作簿,后者关闭特定的工作簿。
Workbook对象的Close方法语法为:
expression.Close(SaveChanges,Filename,RouteWorkbook)
SaveChanges参数表示是否保存更改,对许多不需要更改的操作,可设置为False以免弹出保存更改提示的对话框。
FileName可选。
以此文件名保存所做的更改。
RouteWorkbook
可选。
如果指定工作簿不需要传送给下一个收件人(没有传送名单或已经传送),则忽略该参数。
本示例关闭Book1.xls,并放弃所有对此工作簿的更改。
Workbooks("
BOOK1.XLS"
).CloseSaveChanges:
=False
本示例关闭所有打开的工作簿。
如果某个打开的工作簿有改变,MicrosoftExcel将显示询问是否保存更改的对话框和相应提示。
Workbooks.Close
6、综合实例
假如F盘有一个Excel文件test.xls,现在有另一个Excel文件要访问test.xls的数据,我们来看用VBA代码如何操作。
代码如下:
PublicSubtest()
Application.ScreenUpdating=False
f:
ThisWorkbook.Sheets
(1).Range("
b1"
)=ActiveWorkbook.Sheets
(1).Range("
a2"
)
ActiveWorkbook.Close
Application.ScreenUpdating=True
首先关闭屏幕刷新,是为了防止test.xls在打开时被看见(有时候还是看的见)。
打开后,见test.xls的Sheet1的单元格A2中的值赋给当前工作簿的Sheet1的单元格B2,然后关闭test.xls。
当要打开的工作簿不确定的时候,可以通过调用打开对话框来让用户自己选择。
可改为如下:
DimFilenameasString
Filename=Application.GetOpenFileName
Workbooks.OpenFilename
7、总结
利用Excel对象的方法进行文件操作是最简单,也是最方便的,适合初学者。
对于Excel文件格式,如果我们仅仅是读取其表格中的内容,这种方法也是首选。
对于文本文件的操作,使用第二种方法比较方便,若要将文本转换成表格,那么使用此方法也是合适的。
纸上来得终觉浅,绝知此事要躬行。
——陆游
最近工作非常的忙,发帖少了许多,大家见谅!
UID
93521
帖子
1863
精华
2
积分
2732
注册时间
2004-9-1
阅读权限
10
来自
上海
龙珠
2732颗
赤魂
5994缕
查看详细资料
TOP
龙族联盟广纳贤才,欢迎各位龙友申请!
武大郎
高级会员
UID
93521
帖子
1863
精华
2
龙珠
2732颗
赤魂
5994缕
∙发短消息
∙加为好友
∙当前在线
2楼大中小发表于2007-6-516:
25
只看该作者
二、利用VBA文件处理语句来处理文件
VBA包含了许多用于文件操作的语句和函数,可以满足绝大多数情况下的文件操作要求。
下面我们按照操作目的进行一一介绍。
(一)文件处理
1.Name语句
语法:
NameoldpathnameAsnewpathname
功能:
重命名一个文件、目录、或文件夹,移动一个文件。
说明:
在一个已打开的文件上使用Name,将会产生错误。
进行文件操作时,一定要注意错误处理。
示例:
OnErrorResumeNext
'
错误处理
Name"
\TEST.xls"
As"
\TEST123.xls"
重命名
\dll\TEST.xls"
移动文件
d:
跨驱动器移动并重命名文件
注意:
Name不能移动一个目录或文件夹。
2、FileCopy语句
FileCopysource,destination
复制一个文件。
如果对一个已打开的文件使用FileCopy语句,则会产生错误。
FileCopy"
"
e:
从F盘复制TEST.xls到E盘
3、Kill语句
Killpathname
从磁盘中删除文件。
Kill支持多字符(*)和单字符(?
)的统配符来指定多重文件。
如果使用Kill来删除一个已打开的文件,则会产生错误。
Kill"
’删除F盘的TEST.xls文件
\*.xls"
删除F盘所有xls文件
4、GetAttr函数
GetAttr(pathname)
获取一个文件、目录、或文件夹的属性。
返回一个Integer值。
返回值
由GetAttr返回的值,是下面这些属性值的总和:
常数
值
描述
vbNormal
0
常规
vbReadOnly
1
只读
vbHidden
隐藏
vbSystem
4
系统文件
vbDirectory
16
目录或文件夹
vbArchive
32
存档文件
vbalias
64
指定的文件名是别名。
只在Macintosh中可用。
若要判断是否设置了某个属性,在GetAttr函数与想要得知的属性值之间使用And运算符与逐位比较。
如果所得的结果不为零,则表示设置了这个属性值。
Debug.PrintGetAttr("
\test.txt"
)'
若为存档文件,在立即窗口可看到值为32
将属性—高级—可存档文件的勾去掉后,值为0
为判断一个文件是否只读,可用下法:
)AndvbReadOnly
若值非零,说明时只读的。
5、SetAttr语句
SetAttrpathname,attributes
为一个文件设置属性。
如果想要给一个已打开的文件设置属性,则会产生运行时错误。
SetAttr"
vbHidden
设置隐藏属性。
vbHidden+vbReadOnly
设置隐藏并只读。
6、FileLen函数
FileLen(pathname)
获取一个文件的长度,单位是字节。
当调用FileLen函数时,不需要打开文件,如果所指定的文件已经打开,则返回的值是这个文件在打开前的大小。
7、FileDateTime函数
FileDateTime(pathname)
获取一个文件被创建或最后修改后的日期和时间。
Debug.PrintFileDateTime("
)
在立即窗口可看到2007-3-2919:
28:
27
(二)目录处理
1、CurDir函数
CurDir[(drive)]
返回当前的路径。
drive参数是可选的,它指定一个存在的驱动器。
如果没有指定驱动器,或drive是零长度字符串("
"
),则CurDir会返回当前驱动器的路径。
Debug.PrintCurDir
返回“C:
\DocumentsandSettings\yc\MyDocuments”。
Debug.PrintCurDir("
C"
D"
返回“D:
\”。
2、ChDir语句
ChDirpath
改变当前的目录或文件夹。
ChDir语句改变缺省目录位置,但不会改变缺省驱动器位置。
缺省驱动器一般是C。
ChDir"
D:
\temp"
\temp”。
与上例比较,此时D盘的当前目录已经变为“D:
\temp”,但是缺省驱动器还是C。
3、ChDrive语句
ChDrivedrive
改变当前的驱动器。
如果使用零长度的字符串("
),则当前的驱动器将不会改变。
如果drive参数中有多个字符,则ChDrive只会使用首字母。
ChDrive"
与上例比较,用CurDir返回的是“D:
\temp”,当前驱动器已经变为D了。
4、Dir函数
Dir[(pathname[,attributes])]
两个参数都是可选的,attributes表示文件属性。
返回一个文件名、目录名或文件夹名称,它必须与指定的模式或文件属性、或磁盘卷标相匹配。
在第一次调用Dir函数时,必须指定pathname,否则会产生错误。
如果也指定了文件属性,那么就必须包括pathname。
Dir会返回匹配pathname的第一个文件名。
若想得到其它匹配pathname的文件名,再一次调用Dir,且不要使用参数。
如果已没有合乎条件的文件,则Dir会返回一个零长度字符串("
)。
一旦返回值为零长度字符串,并要再次调用Dir时,就必须指定pathname,否则会产生错误。
不必访问到所有匹配当前pathname的文件名,就可以改变到一个新的pathname上。
但是,不能以递归方式来调用Dir函数。
以vbDirectory属性来调用Dir不能连续地返回子目录。
Debug.PrintDir("
’返回"
TEST.xls"
’返回按条件第一个找到的文件名。
\*.txt"
vbReadOnly)’返回第一个只读的txt文件
以下过程可显示C盘根目录下的所有目录.
SubDirC()
MyPath="
c:
\"
MyName=dir(MyPath,vbDirectory)
找寻第一项。
DoWhileMyName<
"
开始循环。
跳过当前的目录及上层目录。
IfMyName<
."
AndMyName<
.."
Then
使用位比较来确定MyName代表一目录。
If(GetAttr(MyPath&
MyName)AndvbDirectory)=vbDirectoryThen
Debug.PrintMyName
如果它是一个目录,将其名称显示出来。
EndIf
EndIf
MyName=dir
查找下一个目录。
Loop
以下过程利用递归可以查找目录和子目录下的所有文件。
PublicSubFindFile(mPathAsString,OptionalsFileAsString="
OnErrorResumeNext
DimsAsString,sDir()AsString
DimiAsLong,dAsLong
IfRight(mPath,1)<
mPath=mPath&
查找目录下的文件
s=dir(mPath&
sFile,vbArchive+vbDirectory+vbHidden+vbNormal+vbReadOnly+vbSystem)
DoWhiles<
Debug.PrintmPath&
s
s=dir
查找目录下的子目录
s=dir(mPath,vbArchive+vbDirectory+vbHidden+vbNormal+vbReadOnly+vbSystem)
Ifs<
Ands<
If(GetAttr(mPath&
s)AndvbDirectory)=vb