返回列表 上一主題 發帖

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

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

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
每一個開起來後 都會檔案貼過去
有人可以知道如何做嗎?

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

感謝大大 可以了

TOP

        靜思自在 : 吃苦了苦、苦盡廿來,享福了福、福盡悲來。
返回列表 上一主題