wbAsWorkbookpathAsStri
gAsBoolea
O
ErrorGoToErr
Ope
WorkBookTrue
DimisWbOpe
edAsBoolea
isWbOpe
edFalse
DimfileNameAsStri
gfileNameGetFileNamepath
checkfileisope
edoreitherDimwbTempAsWorkbookForEachwbTempI
Workbooks
IffileNameThe
isWbOpe
edTrue
Next
ope
fileIfisWbOpe
edFalseThe
path
E
dIf
SetwbWorkbooksfileName
ExitFu
ctio
ErrOpe
WorkBookFalse
E
dFu
ctio
打开一个文件，并将文件赋予到wb中，将文件的sheet页赋予到ws中的完整代码。（用到了上面的函数）
IfOpe
WorkBookwbpath