返回列表 上一主題 發帖

關於重複做開啟不同檔案去做同樣複製貼上

vavashop

帖子
78 
主題
30 
精華
0 
積分
109 
點名
0  
作業系統
XP 
軟體版本
XP 
閱讀權限
20 
註冊時間
2014-5-15 
最後登錄
2018-9-16 

論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2016-2-26 18:49 | 顯示全部帖子

關於重複做開啟不同檔案去做同樣複製貼上

ChDir _
        "C:\Users\user\Google 雲端硬碟\2015\魚"
    Workbooks.Open Filename:= _
        "C:\Users\user\Google 雲端硬碟\2015\魚\魚-系統.xlsx" _
        , UpdateLinks:=0


Windows("new資料庫.xlsm").Activate
    Sheets("報表").Select
    Cells.Select
    Selection.Copy
   
    Windows("魚-系統.xlsx").Activate
    Sheets("報表").Select
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
     
     Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False



請問各位大大
我想 分別開啟
魚 蝦 牛 雞 羊 五個xlsx
每一個開起來後 都會檔案貼過去
有人可以知道如何做嗎?

因為我一個個錄造成 編輯過大
我的想法是我有開一個名稱資料頁
分別在上面打上魚 蝦 牛 雞 羊
然後 一路向下做
不知道這該如何執行呢
收藏 分享

vavashop

帖子
78 
主題
30 
精華
0 
積分
109 
點名
0  
作業系統
XP 
軟體版本
XP 
閱讀權限
20 
註冊時間
2014-5-15 
最後登錄
2018-9-16 

論壇贊助勳章
2#
發表於 2016-2-27 20:25 | 顯示全部帖子
感謝大大 可以了

TOP

        靜思自在 : 稻穗結得越飽滿，越會往下垂，一個人越有成就，就要越有謙沖的胸襟。
返回列表 上一主題