返回列表下一主題上一主題發帖

強制關閉複製的EXCEL

s13983037

中學生 Rank: 2

帖子: 60
主題: 26
精華: 0
積分: 93
點名: 0
作業系統: Windows
軟體版本: Windows 7
閱讀權限: 20
註冊時間: 2014-9-8
最後登錄: 2020-4-15

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2014-11-22 22:30 | 只看該作者

強制關閉複製的EXCEL

大大您好我想請問一下當我複製EXCEL中的資料卻無法關閉這有甚麼方法可以強制關閉EXCEL嗎
感謝協助

Dim Path As String
Path = ThisWorkbook.Path
Workbooks.Open Path & "\" & Range("B1")
Workbooks("aabtxt").Activate
Workbooks("aabtxt").Sheets(1).Range("A1").Select
Workbooks("aabtxt").Sheets(1).Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Copy
Windows("測試用2.xlsx").Activate
Worksheets(2).Range("A1").PasteSpecial
'Workbooks("aabtxt").SaveChanges:= False
Workbooks("aabtxt").Close SaveChanges:=False

6.png (21.87 KB)

附件1

樓主熱帖

PKKO

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

帖子: 549
主題: 152
精華: 0
積分: 691
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 50
性別: 男
註冊時間: 2013-8-10
最後登錄: 2022-9-7

論壇榮譽勳章論壇贊助勳章

2^#

發表於 2014-11-22 22:40 | 只看該作者

Dim Path As String
如果您的問題是因為你拍的圖片的關係,有簡單兩種方式解決
關閉警告視窗以及清除剪貼簿
'Application.DisplayAlerts = False'關閉警告視窗
Path = ThisWorkbook.Path
Workbooks.Open Path & "\" & Range("B1")
Workbooks("aabtxt").Activate
Workbooks("aabtxt").Sheets(1).Range("A1").Select
Workbooks("aabtxt").Sheets(1).Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Copy
Windows("測試用2.xlsx").Activate
Worksheets(2).Range("A1").PasteSpecial
Application.CutCopyMode = xlCopy'清除剪貼簿
'Workbooks("aabtxt").SaveChanges:= False
Workbooks("aabtxt").Close SaveChanges:=False