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

剪貼簿資料如何自動"否"

linsurvey2005

中學生 Rank: 2

帖子: 84
主題: 15
精華: 0
積分: 123
點名: 0
作業系統: Windows 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: 台南市
註冊時間: 2011-5-16
最後登錄: 2022-9-17

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2011-5-21 16:12 | 只看該作者

剪貼簿資料如何自動"否"

如題
檔案A.xls 複製一堆資料貼到檔案B.xls
Windows(A).Activate
      Cells.Select
      Selection.Copy
Windows(B).Activate
      Cells.Select
      ActiveSheet.Paste
Windows(A).Close
當關閉檔案A.xls 則會出現剪貼簿中含有大量資料.妳以後還會用到嘛?  是 / 否
請教怎麼自動點選 "是" 或 "否" 或 "取消"

樓主熱帖

開心學習,學習很開心

chin15

中學生 Rank: 2

帖子: 227
主題: 3
精華: 1
積分: 273
點名: 0
作業系統: XP
軟體版本: XP
閱讀權限: 20
性別: 女
註冊時間: 2011-3-22
最後登錄: 2013-1-29

2^#

發表於 2011-5-21 21:40 | 只看該作者

ActiveSheet.Paste
後面加一句
Application.CutCopyMode = False

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

3^#

發表於 2011-5-22 08:34 | 只看該作者

回復 1# linsurvey2005
請教怎麼自動點選 "是" 或 "否" 或 "取消" 好像做不到
如要關閉這個視窗
除2樓的  後面加一句  Application.CutCopyMode = False
               可換成 ActiveSheet.Range("A1").Copy
                           workbook.Save
或如
ActiveSheet.Paste
Application.DisplayAlerts = False    停止 Microsoft Excel 顯示特定的警告和訊息則
Windows(A).Close
Application.DisplayAlerts = True    恢復 Microsoft Excel 顯示特定的警告和訊息則

TOP

linsurvey2005