作者ptguitar (佩蒂吉他)
看板Office
标题[问题] 关闭档案出错的巨集
时间Tue Feb 7 10:12:01 2017
软体:excel
版本:任何版本
我弄了个巨集excel档案
可以开启一个档案把资料复制过来
但是我想要开启那个档案後 复制好後就关闭这个档案
但是关闭都会出错误
不知道哪边写错了?
问题档案
https://drive.google.com/open?id=0BwCgrQhGgaw7V2Mxdy0wSXVfRWs
原始巨集:
Sub 汇入()
If (MsgBox("是否执行档案汇入?", vbYesNo) = vbNo) Then Exit Sub
Dim abc, xyz As String
Dim 本年月, 汇率 As Variant
Dim thiswrkname$
本年月 = InputBox("输入本年月，格式:10512")
Sheets("设定").Range("H1") = 本年月
汇率 = InputBox("输入汇价")
Sheets("设定").Range("H3") = 汇率
thiswrkname = ThisWorkbook.Name
abc = Sheets("原始资料").Range("C1").End(xlDown).Row + 1
filetoopen = Application.GetOpenFilename("allfiles, *.*")
If filetoopen <> False Then
Workbooks.Open (filetoopen)
End If
'贴上开启的档案
Sheets("汇总").Range("A6:ZT73").Select
Selection.Copy
Workbooks(thiswrkname).Activate
Worksheets("原始资料").Activate
Range("C" & abc).Select
Selection.PasteSpecial Paste:=xlPasteValues
xyz = Range("C1").End(xlDown).Row
Range("B" & abc) = Sheets("设定").Range("H1")
Range("B" & abc).AutoFill Range("B" & abc & ":B" & xyz)
Range("A" & abc - 1).AutoFill Range("A" & abc - 1 & ":A" & xyz)
Workbooks(filetoopen).Activate
Workbooks(filetoopen).Close SaveChanges:=False
End Sub
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 1.34.252.11
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1486433524.A.D83.html
2F：→ soyoso: 如有可能filetoopen是未选取档案的话，if..end if的部分请 02/07 10:39
3F：→ soyoso: 含括注解'贴上开启的档案以下的部分 02/07 10:41
4F：→ soyoso: 或如msgbox写法，filetoopen判断为false时exit sub 02/07 10:43
5F：→ ptguitar: 可以了 感谢大大 真的帮忙很大 !! 02/07 11:02