宏命令语句(文件打开级内容处理).doc

《宏命令语句(文件打开级内容处理).doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、FunctionOpenExcelFile(sPathAsString,ByValsFileNameAsString,bDisplayAsBoolean,sPwdAsString)AsInteger'许长安时间:2016-2-4'打开Excel文件'参数说明：'sPath:文件绝对路径；sFileName:Excel文件名；bDisplay:True显示错误信息；sPwd:文件打开密码'返回值：-1:同名文件已经打开；-2:文件不存在或密码错误；0:成功打开；1:文件已经被打开DimbOpenAsBooleanDimsFullNameAsStringOnErrorResume

2、NextIfInStr(LCase(sFileName),".xls")=0ThensFileName=sFileName&".xls"sFullName=Workbooks(sFileName).FullName'检查是否已经打开同名的Excel文件'如果有sFullName不为空OnErrorGoTo0bOpen=FalseIfsFullName<>""ThenIfLCase(sFullName)=LCase(sPath&""&sFileName)ThenbOpen=True'判断已经打开的同名文件是否本次需要打开的文件OpenExcelFile=1'文件已经被打开'M

3、sgBox"请首先关闭“"&sFileName&"”文件！"&Chr(13)&"不能同时打开同名文件，这是Excel的规定！",vbOKOnly+vbExclamation,"文件的打开错误"'ElseIfbDisplayThenMsgBox"请首先关闭“"&sFileName&"”文件！"&Chr(13)&"不能同时打开同名文件，这是Excel的规定！",vbOKOnly+vbExclamation,"文件的打开错误"EndIfbOpen=TrueOpenExcelFile=-1'不能同时打开同名文件，这是Excel的规定EndIfEndIfIfNotbOpenThenOn

4、ErrorGoToerrOpenWorkbooks.OpenFileName:=sPath&""&sFileName,Password:=sPwdOnErrorGoTo0OpenExcelFile=0'成功打开文件EndIfExitFunctionerrOpen:IfbDisplayThenMsgBoxErr.Description,vbOKOnly+vbExclamation,"文件的打开错误"OpenExcelFile=-2'文件不存在或密码错误OnErrorGoTo0EndFunctionSubfileproce()''Macro5Macro'宏由许长安录制，时间:2

5、016-2-28'MergeArea.Rows.Count'MergeArea.Columns.Count''Range("B7:B28").Select'row=ActiveCell.row()'col=ActiveCell.Column()Dimi,hAsLongDimrow,col,rangrows,countrowsAsLongi=0'countrows=ActiveCell.row()'MsgBox"当前文件总并行数："&countrows&"！"'rangrows=Cells(row,col).MergeArea.Rows.Count'从B列第7行开始'Range

6、("B7:B"&rangrows).Select'MsgBox"B7当前合并行数："&rangrows&"！"row=7'定义起始行数col=2'定义从B列开始DoWhilerow

7、AddIndent=False.IndentLevel=0.ShrinkToFit=False.ReadingOrder=xlContext.MergeCells=TrueEndWithrangrows=Cells(row,col).MergeArea.Rows.Count'返回当前合并格行数Selection.UnMerge'撤销合并格DoWhilei