返回列表下一主題上一主題發帖

[發問] 合併數個工作簿部分儲存格資料至一工作簿中

spermbank

中學生 Rank: 2

帖子: 94
主題: 28
精華: 0
積分: 145
點名: 0
作業系統: windows
軟體版本: office 2007
閱讀權限: 20
註冊時間: 2011-9-22
最後登錄: 2021-10-18

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2011-10-13 19:06 | 只看該作者

[發問] 合併數個工作簿部分儲存格資料至一工作簿中

請問:
   1.合併數個工作簿(檔案位於\base\)部分儲存格資料至一工作簿(test.xlsm)中，其中匯入資料以工作簿對應部分儲存格以顏色表示
   要怎麼執行test.xlsm中工作表2中的"匯入資料"按鈕，將位於\base\的檔案，依據工作表1中的代號，將資料合併至其中。
   PS:我嘗試利用之前G大幫我的合併數個工作簿中某欄資料，轉置合併至一工作簿的列位中，但因這次資料為部分儲存格，試寫測試幾天，仍無解，
         請指教。

test.rar (190.41 KB)

樓主熱帖

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2011-10-14 15:58 | 只看該作者

回復 1# spermbank
試試看

Sub Ex()
Dim R As Integer, EPath As String, Ar(), Wb As Workbook
EPath = "D:\base\"
With Sheets("工作表1")
For R = 2 To .Range("A1").End(xlDown).Row '股票範圍
Set Wb = Workbooks.Open(EPath & .Cells(R, "A") & ".xlsx")
With Wb.Sheets("BASIC")
Ar = Array(.[E9], .[E13], .[E12], .[C16], .[C7])
End With
.Cells(R, "C").Resize(1, 5) = Ar '紅區
.Cells(R, "H").Resize(1, 8) = Wb.Sheets("FR").[B15].Resize(1, 8).Value '綠區
.Cells(R, "P").Resize(1, 8) = Wb.Sheets("BASIC").[B32].Resize(1, 8).Value '黃區
Wb.Close False
Next
End With
End Sub

複製代碼

TOP

linlinda20

小學生 Rank: 1

帖子: 2
主題: 0
精華: 0
積分: 2
點名: 0
作業系統: Vista
軟體版本: Office 2003
閱讀權限: 10
註冊時間: 2011-4-29
最後登錄: 2011-10-17

3^#

發表於 2011-10-17 11:22 | 只看該作者

謝謝您,感謝!

TOP

spermbank

中學生 Rank: 2

帖子: 94
主題: 28
精華: 0
積分: 145
點名: 0
作業系統: windows
軟體版本: office 2007
閱讀權限: 20
註冊時間: 2011-9-22
最後登錄: 2021-10-18

4^#

發表於 2011-10-20 23:56 | 只看該作者

回復 2# GBKEE

感謝G大，努力拼湊程式，終於成功^^
另外想請問一個問題:
sub ex()
Application.ScreenUpdating = False

...(我要怎麼樣在不更新螢幕，但是要更新儲存格Cells(1,"A")計算並且持續顯示"巨集"執行開始至終止時間(秒)呢??)

Application.ScreenUpdating = False
end sub

TOP

靜思自在 : 【行善要及時】行善要及時，功德要持續。如燒開水一般，未燒開之前千萬不要停熄火候，否則重來就太費事了。

返回列表下一主題上一主題