[問題] 關閉檔案出錯的巨集

看板Office作者ptguitar (佩蒂吉他)時間9年前 (2017/02/07 10:12)推噓0(0推 0噓 5→)

留言5則, 2人參與討論串1/1

軟體: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://www.ptt.cc/bbs/Office/M.1486433524.A.D83.html