[問題] EXCEL VBA 不同檔案指定欄位貼到指定檔 …

看板Office作者 (菲揪)時間15年前 (2011/03/14 17:02), 編輯推噓0(005)
留言5則, 2人參與, 最新討論串1/1
軟體:EXCLE 版本:2003 如題 以下是小弟的寫法(我真的很弱...) Sub CMD() Workbooks.Open "D:\company\bcc.xls" Worksheets("sheet1").Select Range("R4:X81").Select Range("R4:X81").Copy Workbooks.Open "D:\company\general.xls" Worksheets("A1").Select Range("I6:O83").Select ActiveSheet.Paste Workbooks.Open "D:\company\jd.xls" Worksheets("sheet1").Select Range("S4:U85").Select Range("S4:U85").Copy Workbooks.Open "D:\company\general.xls" Worksheets("A1").Select Range("I6:O87").Select ActiveSheet.Paste End Sub 問題是... 他不能重覆開general.xls 我也不能寫close把它關掉... 因為這樣就白貼了...而且也會有bug 是不是有什麼方法可以將它儲存一次 然後關掉 再開啟呢 ↑ 目前只有想到這個笨方法... 麻煩各位大大了 剛剛試過把兩個開啟兩次的語法DEL掉 直接請它貼到A1上 可是根本跑不到結尾... ~"~ -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 61.60.29.124 ※ 編輯: fityu 來自: 61.60.29.124 (03/14 17:20)

03/15 04:14, , 1F
第二次不用Open, 用Activate就好了
03/15 04:14, 1F

03/15 08:02, , 2F
感恩樓上 我試試~
03/15 08:02, 2F

03/15 08:06, , 3F
恩...請問Activate是要插在哪一段呢?
03/15 08:06, 3F

03/15 19:08, , 4F
改成Workbooks("jd.xls").activate 類推
03/15 19:08, 4F

03/16 12:31, , 5F
感恩樓上 問題已解決~
03/16 12:31, 5F
文章代碼(AID): #1DVTcjlP (Office)
文章代碼(AID): #1DVTcjlP (Office)