帖子: 117
主題: 34
精華: 0
積分: 155
點名: 0
作業系統: windows XP
軟體版本: OFFICE 2010
閱讀權限: 20
性別: 男
註冊時間: 2010-5-19
最後登錄: 2024-8-29

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2010-9-28 14:54 | 只看該作者

不同檔案間的複製

請問.....該怎麼從檔案1複製某些固定的儲存格至檔案2某些固定的儲存格??
例如: 在檔案1複製A3 A4 A5 A6 A7 A9 到檔案2的 B3 B4 B5 B10 B11 B12 (以上是隨便打的,沒有一定)

樓主熱帖

初學者color

riceeric

小學生 Rank: 1

帖子: 5
主題: 2
精華: 0
積分: 12
點名: 0
作業系統: Window XP
軟體版本: SP3
閱讀權限: 10
性別: 男
註冊時間: 2012-3-15
最後登錄: 2012-9-18

9^#

發表於 2012-9-11 14:30 | 只看該作者

謝謝分享～
另外想請教的是，我也是遇到每天要將某個檔的欄位插入另一個檔的某幾欄
檔名也是會照日期做更改
問題一：插入的動作是要改成？
問題二：在第一個檔案執行巨集時，是否可以跳出個表單讓User點選目前開啟的Excel的哪個來插入？

Eric.Tu

TOP

ag324

小學生 Rank: 1

帖子: 19
主題: 5
精華: 0
積分: 29
點名: 0
作業系統: windows 7
軟體版本: 2010
閱讀權限: 10
註冊時間: 2011-10-31
最後登錄: 2014-11-13

8^#

發表於 2011-11-2 10:38 | 只看該作者

剛好需要用到受益良多感謝

TOP

color790

中學生 Rank: 2

帖子: 117
主題: 34
精華: 0
積分: 155
點名: 0
作業系統: windows XP
軟體版本: OFFICE 2010
閱讀權限: 20
性別: 男
註冊時間: 2010-5-19
最後登錄: 2024-8-29

7^#

發表於 2010-9-29 08:37 | 只看該作者

太感謝兩位版主的幫忙~^^

初學者color

TOP

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

6^#

發表於 2010-9-29 08:24 | 只看該作者

1.是的，在檔名不一定的情形下，以這樣方式才能決定誰是Workbooks(1)，誰是Workbooks(2).
2.建立迴圈。
3.迴圈的次數(以你要複製的儲存格數字決定,陣列中內定值是從0開始。
2007，2010我都沒用過，無法理解或回覆這樣的問題。

TOP

color790

中學生 Rank: 2

帖子: 117
主題: 34
精華: 0
積分: 155
點名: 0
作業系統: windows XP
軟體版本: OFFICE 2010
閱讀權限: 20
性別: 男
註冊時間: 2010-5-19
最後登錄: 2024-8-29

5^#

發表於 2010-9-29 00:31 | 只看該作者

本帖最後由 color790 於 2010-9-29 00:56 編輯

回復 4# oobird

謝謝OOBIRD版主的回答
  1.請問...是不是要複製的檔案第一個開,要貼上的檔案第二個開
  2.為什麼要for i ...
  3.為什麼要0 to 5

另外問個小問題- 以前用office2003不會有這個問題,現在用2007版,就是要編輯個人工作活頁薄的巨集時,都會出現 " 無法在隱藏活頁薄編輯巨集 .... " 非得要打開PERSONAL.XLSB 才能編輯,而且PERSONAL關掉後巨集就不能使用,這個有解嗎? 2010版的也會這樣嗎?

初學者color

TOP

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

4^#

發表於 2010-9-29 00:00 | 只看該作者

Sub yy()
With ActiveSheet
ary = Array(.[a3], .[a4], .[a5], .[a6], .[a7], .[a9])
End With
Workbooks(2).Activate
With ActiveSheet
ary2 = Array(.[b3], .[b4], .[b5], .[b10], .[b11], .[b12])
For i = 0 To 5
ary2(i).Value = ary(i)
Next
End With
End Sub

TOP

color790

中學生 Rank: 2

帖子: 117
主題: 34
精華: 0
積分: 155
點名: 0
作業系統: windows XP
軟體版本: OFFICE 2010
閱讀權限: 20
性別: 男
註冊時間: 2010-5-19
最後登錄: 2024-8-29

3^#

發表於 2010-9-28 23:18 | 只看該作者

本帖最後由 color790 於 2010-9-28 23:24 編輯

謝謝GBKEE版主的解答,但這樣需要每次都keyin workbook name (因為每次檔案1&檔案2的檔名都不相同)
有沒有辦法在檔案1以 with activesheet 複製儲存格的值,儲存於字典物件後, 之後再至檔案2 以with activesheet 貼上也就是分兩個vba程式,或是有更好的方法,感恩

.