帖子: 19
主題: 4
精華: 0
積分: 35
點名: 0
作業系統: windows XP sp3
軟體版本: office 2007
閱讀權限: 10
性別: 男
來自: 台灣
註冊時間: 2010-6-10
最後登錄: 2013-8-6

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2011-11-22 16:58 | 只看該作者

[發問] 指定檔案抓去個檔案間資料

小弟目前需整理很多人工時問題希望從[工時整理]檔內匯入
M1~M16的檔案內容排序方式為
M1檔匯至A1起始
M2檔匯至A1000起始
M3檔匯至A2000起始
一直排到M14 16000起始
各M檔內A1~AA1000 資料都須複製到工時整理]檔內
希望只要按一檔案內按鈕九可以抓取M1~M14黨內資料不需一個一個開啟
拜託各位大大幫忙

新資料夾.rar (933.3 KB)

樓主熱帖

ounmaxz

小學生 Rank: 1

帖子: 19
主題: 4
精華: 0
積分: 35
點名: 0
作業系統: windows XP sp3
軟體版本: office 2007
閱讀權限: 10
性別: 男
來自: 台灣
註冊時間: 2010-6-10
最後登錄: 2013-8-6

2^#

發表於 2011-11-23 15:36 | 只看該作者

回復 1# ounmaxz

ub 巨集1()
'
' 巨集1 巨集
'

'
Workbooks.Open Filename:="Q:\M1.xlsx"
Range("A4:X400").Select
Selection.Copy
Windows("工時整理.xlsm").Activate
Range("A3").Select
ActiveSheet.Paste
Windows("M1.xlsx").Activate
ActiveWindow.Close

Workbooks.Open Filename:="Q:\M2.xlsx"
Range("A4:W400").Select
Selection.Copy
Windows("工時整理.xlsm").Activate
Range("A400").Select
ActiveSheet.Paste
Windows("M2.xlsx").Activate
ActiveWindow.Close

小弟我用錄製的手法做出來了但是
會一直出現剪貼簿要我選擇要不要清空他
因為檔案很多一直按很麻煩有辦法解決嗎???

TOP

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兔年全勤獎章

3^#

發表於 2011-11-23 16:14 | 只看該作者

回復 2# ounmaxz

Sub Ex()
Dim Rng As Range, CopyRng As Range, I As Integer
Set Rng = Workbooks("工時整理.xlsm").Sheets(1).[a1]
For I = 1 To 16
With Workbooks.Open("Q:\M" & I & ".xlsx")
Set CopyRng = .Sheets(1).UsedRange.Offset(3)
Rng.Resize(CopyRng.Rows.Count, CopyRng.Columns.Count).Value = CopyRng.Value
Set Rng = Rng.Offset(IIf(I = 1, 999, 1000))
.Close False
End With
Next
End Sub

複製代碼

TOP

lilytracy

中學生 Rank: 2

帖子: 12
主題: 5
精華: 0
積分: 56
點名: 0
作業系統: Window7
軟體版本: office2010
閱讀權限: 20
註冊時間: 2011-8-3
最後登錄: 2015-5-10

2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章

4^#

發表於 2011-11-23 18:52 | 只看該作者

範例只有14個檔案
For I = 1 To 16
應改為For I = 1 To 14

TOP

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兔年全勤獎章

5^#

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

回復 4# lilytracy
樓主說的:
小弟目前需整理很多人工時問題希望從[工時整理]檔內匯入 M1~M16 的檔案內容排序方式為

TOP

davidoff

中學生 Rank: 2

帖子: 10
主題: 0
精華: 0
積分: 50
點名: 0
作業系統: win7
軟體版本: office2003
閱讀權限: 20
註冊時間: 2011-11-23
最後登錄: 2012-11-27

6^#

發表於 2011-11-23 20:47 | 只看該作者

借此題一問
如果只要匯入M1,M2,M3到book1
且book1中，匯入的資料M1~M3間不留空白
小弟將GBKEE版主的程式改寫如下

Sub Ex()
Dim Rng As Range, CopyRng As Range, I As Integer
Set Rng = Workbooks("Book1").Sheets(1).[a65536]
For I = 1 To 3
With Workbooks.Open("C:\Users\tt\Desktop\新增資料夾\" & I & ".xls")
ActiveSheet.Range("a4", ActiveCell.SpecialCells(xlLastCell)).Copy Rng.End(xlUp).Offset(1)
.Close False
End With
Next
End Sub

複製代碼

想請教的是
一旦省略了ActiveSheet,就會出現"物件不支援此屬性或方法"
為什麼ActiveSheet一定要寫出來才能執行？
開檔案的時候，開出來的檔不是處於Activate的狀態嗎？
測試過在沒有執行開檔動作的時候，省略ActiveSheet是沒有問題的說。:Q

TOP

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兔年全勤獎章

7^#

發表於 2011-11-24 07:43 | 只看該作者

本帖最後由 GBKEE 於 2011-11-24 07:46 編輯

回復 6# davidoff
程式碼改寫在一般模組或ThisWorkbook模組
你的程式碼是寫在工作表物件模組
Range 沒指明工作表就是專屬於這工作表物件模組的工作表Range
你不能在其他工作表中執行這專屬於這工作表物件模組的工作表Range

TOP

ounmaxz