返回列表 上一主題 發帖

強制關閉複製的EXCEL

s13983037

帖子
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

6.png

收藏 分享

PKKO
　暱稱: PKKO

高中生Rank: 3Rank: 3

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

論壇榮譽勳章論壇贊助勳章
4#
發表於 2014-11-23 00:32 | 只看該作者
回復 3# s13983037


    哪裡,我不小心把說明打入程式碼,哈哈!
PKKO

TOP

s13983037

帖子
60 
主題
26 
精華
0 
積分
93 
點名
0  
作業系統
Windows 
軟體版本
Windows 7 
閱讀權限
20 
註冊時間
2014-9-8 
最後登錄
2020-4-15 
3#
發表於 2014-11-22 23:01 | 只看該作者
回復 2# PKKO


    感謝幫忙 原來只要這樣就OK了

TOP

PKKO
　暱稱: PKKO

高中生Rank: 3Rank: 3

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

論壇榮譽勳章論壇贊助勳章
2#
發表於 2014-11-22 22:40 | 只看該作者
  1. Dim Path As String
  2. 如果您的問題是因為你拍的圖片的關係,有簡單兩種方式解決
  3. 關閉警告視窗 以及清除剪貼簿
  4. 'Application.DisplayAlerts = False'關閉警告視窗
  5. Path = ThisWorkbook.Path
  6. Workbooks.Open Path & "\" & Range("B1")
  7. Workbooks("aabtxt").Activate
  8. Workbooks("aabtxt").Sheets(1).Range("A1").Select
  9. Workbooks("aabtxt").Sheets(1).Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Copy
  10. Windows("測試用2.xlsx").Activate
  11. Worksheets(2).Range("A1").PasteSpecial
  12. Application.CutCopyMode = xlCopy'清除剪貼簿
  13. 'Workbooks("aabtxt").SaveChanges:= False
  14. Workbooks("aabtxt").Close SaveChanges:=False
複製代碼
回復 1# s13983037
PKKO

TOP

        靜思自在 : 【停滯不前，終無所得】人都迷於尋找奇蹟，因而停滯不前；縱使時間再多、路再長，也了無用處，終無所得。
返回列表 上一主題