返回列表 上一主題 發帖

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

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

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

starry1314
　暱稱: 豪

高中生Rank: 3Rank: 3

帖子
471 
主題
121 
精華
0 
積分
579 
點名
0  
作業系統
WIN10 
軟體版本
OFFICE2019 
閱讀權限
50 
性別
男 
註冊時間
2015-4-16 
最後登錄
2023-1-17 
2#
發表於 2016-2-26 21:27 | 只看該作者
本帖最後由 starry1314 於 2016-2-26 21:29 編輯

回復 1# vavashop

我自己的做法,先複製好資料庫要貼至另一檔案的的範圍,
在執行你要執行的巨集
  1. Sub 批次修改()

  3. ' 螢幕刷新,關閉
  4. Application.ScreenUpdating = False

  6.    Dim filenames As Variant

  8. ''設置數組給變量和真為多選
  9.    ' set the array to a variable and the True is for multi-select
  10.    filenames = Application.GetOpenFilename(, , , , True)

  12.       counter = 1

  14.       ' 選擇要開啟的檔案
  15.       While counter <= UBound(filenames)

  17.          '打開選定的文件
  18.          Workbooks.Open filenames(counter)
  19.          
  20.          '巨集---------------------
  21.          
  22.          
  23.          
  24.          
  25.          
  26.          
  27.          
  28.          
  29.          
  30.          
  31.          
  32.          '巨集---------------------

  34.    
  35.         
  36.          
  37.          
  38.               '關閉選擇的檔案
  39.          
  40.          ActiveWorkbook.Close True
  41.          


  44.          '開啟新檔案
  45.          counter = counter + 1

  47.       Wend
  48.       
  49.       ' 螢幕刷新,開啟
  50. Application.ScreenUpdating = True

  52.    End Sub
複製代碼

TOP

vavashop

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

論壇贊助勳章
3#
發表於 2016-2-27 20:25 | 只看該作者
感謝大大 可以了

TOP

        靜思自在 : 慈悲沒有敵人，智慧不起煩惱。
返回列表 上一主題