標題: 關於重複做開啟不同檔案去做同樣複製貼上 [打印本頁]

---

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

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

---

作者: starry1314    時間: 2016-2-26 21:27

本帖最後由 starry1314 於 2016-2-26 21:29 編輯

回復 1# vavashop

我自己的做法,先複製好資料庫要貼至另一檔案的的範圍,
在執行你要執行的巨集

1. Sub 批次修改()
   
2. 
   
3. ' 螢幕刷新,關閉
   
4. Application.ScreenUpdating = False
   
5. 
   
6.    Dim filenames As Variant
   
7. 
   
8. ''設置數組給變量和真為多選
   
9.    ' set the array to a variable and the True is for multi-select
   
10.    filenames = Application.GetOpenFilename(, , , , True)
    
11. 
    
12.       counter = 1
    
13. 
    
14.       ' 選擇要開啟的檔案
    
15.       While counter <= UBound(filenames)
    
16. 
    
17.          '打開選定的文件
    
18.          Workbooks.Open filenames(counter)
    
19.          
    
20.          '巨集---------------------
    
21.          
    
22.          
    
23.          
    
24.          
    
25.          
    
26.          
    
27.          
    
28.          
    
29.          
    
30.          
    
31.          
    
32.          '巨集---------------------
    
33. 
    
34.    
    
35.         
    
36.          
    
37.          
    
38.               '關閉選擇的檔案
    
39.          
    
40.          ActiveWorkbook.Close True
    
41.          
    
42. 
    
43. 
    
44.          '開啟新檔案
    
45.          counter = counter + 1
    
46. 
    
47.       Wend
    
48.       
    
49.       ' 螢幕刷新,開啟
    
50. Application.ScreenUpdating = True
    
51. 
    
52.    End Sub

複製代碼

---

作者: vavashop    時間: 2016-2-27 20:25

感謝大大 可以了

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)