基于Excel VBA的财务自动化 习题及答案 张泽华 第9--14章.docx

第9章跨文件汇总报表

1、请简述Dir函数的作用及使用特点。

Dir的作用是返回一个String，用以表示一个文件名、目录名或文件夹名称，它必须与指定的模式或文件属性、或磁盘卷标相匹配。Dir(pathname)仅返回匹配pathname的第一个文件名，若想得到匹配pathname的其它文件名，再一次调用Dir，且不要使用参数。如果已没有合乎条件的文件，则Dir会返回一个零长度字符串()。一旦返回值为零长度字符串，并要再次调用Dir时，就必须指定pathname，否则会产生错误。

2.请使用Dir函数写一个sub过程，用以判断与代码文件所在的文件夹中，有没有名为“test”的excle文件。

PublicSubfileNameTest()

DimmyFileNameAsString

指定带完整目录的文件夹名称

myFileName=ThisWorkbook.Path\test.xls*

IfLen(Dir(myFileName,vbDirectory))0Then

IfDir(myFileName)Then

MsgBox该文件存在

Else

MsgBox该文件不存在

EndIf

Else

MsgBox所指定的文件夹或文件不存在

EndIf

EndSub

3.在路径“d:\1”下有三个excel文件，名称分别为company1、company2、company3，文件内的数据格式均如下图左所示。图右是在另一路径下的汇总文件。现需在不打开company1、company2、company3文件的情况下，在汇总文件中得到统计数据，试写一个sub过程实现这一要求。

Sub子公司营业合计()

Fori=1To3

Sheets(ActiveSheet.Name).Cells(4+i,2).FormulaR1C1==D:\1\[companyi.xls]Sheet1!R[(-2-i)]C

Nexti

以上3行代码,循环调用D盘1文件夹company1、company2、company3文件Sheet1工作表B2单元格中的数据,并从当前工作表B5单元格开始向下依次列出.

EndSub

4.试写一个sub过程，可以在代码所在文件中，将指定文件夹中所有excel文件（数量不确定）的所有工作表（数量不确定）的前20行前10列的数据，分别求和放入代码所在文件的对应单元格中。

Subtest()

DimcFile$,cPath$,ShAsWorksheet,nRow%

SetSh=ActiveSheet

DimmydirAsString

Application.ScreenUpdating=False

Application.EnableEvents=False

Fori=1To20行范围

Forj=1To10列范围

Sh.Cells(i,j)=

Nextj

Nexti

cPath=ThisWorkbook.Path\数据源\

cFile=Dir(cPath*.xls)找寻第一个表格

DoWhilecFile开始循环。

Workbooks.OpencPathcFile打开表格

WithActiveWorkbook

Setwk=ActiveWorkbook.Sheets

Fori=1To20

Forj=1To10

Fork=1Towk.Count

Sh.Cells(i,j)=Val(Sh.Cells(i,j))+Val(.Sheets(k).Cells(i,j))

Nextk

Nextj

Nexti

.Close