標題: [發問] 如何將Excel表格內資料擷取到另一個Excel報表內 [打印本頁]

---

作者: ewingleo    時間: 2011-6-15 09:37     標題: 如何將Excel表格內資料擷取到另一個Excel報表內

各位大大 想請問將Excel表格內資料擷取到另一個Excel報表的方法
[attach]6661[/attach]

---

作者: Hsieh    時間: 2011-6-15 22:17

1. Sub nn()
   
2. Dim Ay()
   
3. With Workbooks.Open(ThisWorkbook.Path & "\999.xls")
   
4.   With .ActiveSheet
   
5.   For Each a In .Range(.[A1], .[A65536].End(xlUp))
   
6.      If IsDate(a) Then
   
7.      ar = Array(a.Offset(5).Value, a.Value, a.Offset(1).Value, a.Offset(3).Value)
   
8.      ReDim Preserve Ay(s)
   
9.      Ay(s) = ar
   
10.      s = s + 1
    
11.      End If
    
12.   Next
    
13.   End With
    
14.   .Close
    
15. End With
    
16. Sheets("Sheet1").[A2].Resize(s, 4) = Application.Transpose(Application.Transpose(Ay))
    
17. End Sub

複製代碼

---

作者: ewingleo    時間: 2011-6-17 12:46

感謝Hsieh 板大
程式執行ok
想請問下列程式的涵義
ar = Array(a.Offset(5).Value, a.Value, a.Offset(1).Value, a.Offset(3).Value)
Sheets("Sheet1").[A2].Resize(s, 4) = Application.Transpose(Application.Transpose(Ay))

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)