|
被导入加载宏文件-出错
提示加载DLL错误,找不到什么原因,请老师们帮修改下,谢谢老师们了!
被导入加载宏文件-出错.rar
(24.32 KB, 下载次数: 0)
- Sub 导入指定加载宏文件中的指定工作表()
- MsgBox "这是一个套打实例", , "提示"
- Dim mypath$, myname$
- Dim mybook, wb As Workbook
- Dim myNa As String
-
- Application.ScreenUpdating = False
- Application.DisplayAlerts = False
- Set mybook = ActiveWorkbook
- myNa = Array("套打", "备用", "说明")
- mypath = mybook.path & ""
- 'mypath = "C:\Windows" & ""
- myname = Dir(mypath & "被导入加载宏文件.xla")
- Set wb = Workbooks.Open(mypath & myname)
- With wb
- .Worksheets(myNa).Copy after:=mybook.Worksheets(mybook.Worksheets.Count)
- .Close False
- End With
- Worksheets("说明").Visible = False
- Sheets("病人总览信息列表").Select
- Call 范例
- Application.ScreenUpdating = False
- Application.DisplayAlerts = False
- End Sub
复制代码
|
|