- 帖子
- 11
- 主題
- 1
- 精華
- 0
- 積分
- 17
- 點名
- 0
- 作業系統
- WindowsXP
- 軟體版本
- 2003
- 閱讀權限
- 10
- 性別
- 女
- 註冊時間
- 2011-9-29
- 最後登錄
- 2013-5-22
 
|
Dear GBKEE版大，
1.我試了您的方法，但卻出現 "陣列索引超出範圍 (錯誤 9)"，程式碼如下：
Sub 統計()
Dim Wb As Workbook
For Each Wb In Workbooks
If Wb.Name <> "統計.xls" Then '排除 "統計.xls"
Wb.Sheets("Sheet2").Copy After:=Workbooks("統計.xls").Sheets(2) '錯誤9
ActiveSheet.Name = Replace(Wb.Name, ".xls", "")
End If
Next
Workbooks("統計.xls").Activate
End Sub
2.我另外又加了路徑，但卻出現 "型態不符合 (錯誤 13)"，程式碼如下：
Sub 統計()
Dim MyBook, Wb As Workbook, MyPath As Long
Set MyBook = ThisWorkbook
MyPath = MyBook.Path & "\" '型態不符
With Workbooks.Open(MyPath & "*.xls")
For Each Wb In Workbooks
If Wb.Name <> "統計.xls" Then
Wb.Sheets("Sheet2").Copy after:=MyBook.Sheets(Sheets.Count)
ActiveSheet.Name = Replace(Wb.Name, ".xls", "")
End If
Next
End With
Workbooks("統計.xls").Activate
End Sub
3.我是要將不同檔名的檔案匯入一個excel檔內，再來作資料處理。 |
|
發表於 2011-9-30 12:39
| 
