注意 c:\a 目录下的文件不要太多,免得死机 Sub 打开excel表格() Dim myPath$, myFile$, AK As Workbook Application。ScreenUpdating = False '冻结屏幕，以防屏幕抖动 myPath = "c:\a\" '把文件路径定义给变量 myFile = Dir(myPath & "*。
xls") '依次找寻指定路径中的*。xls文件 Do While myFile <> "" '当指定路径中有文件时进行循环 If myFile <> ThisWorkbook。Name Then Set AK = Workbooks。
Open(myPath & myFile) '打开符合要求的文件 End If myFile = Dir '找寻下一个*。xls文件 Loop Application。ScreenUpdating = True '冻结屏幕,此类语句一般成对使用 End Sub。
答：WrdApp.documents.Open Filename:=myFilename, PasswordDocument:="66", WritePasswor...详情>>
答：这个有很多详情>>
答：高手 很难的问题详情>>
