GBKEE

¦^´_ 3# kasl
¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Sub Get_Stock_Table()
   
3. Dim ExcApp As Workbook, AR(0 To 3), Sh, i As Integer
   
4. 
   
5. 'Set ExcApp = CreateObject("Excel.Application") '«Ø¥ß¤Þ¥ÎWordÀ³¥Îµ{¦¡ªºª«¥ó
   
6. '??? Excel.Applicationg ¬O ExcelÀ³¥Îµ{¦¡ªºª«¥ó****
   
7. 'Set ExcDoc = ExcApp.Workbooks.Open("D:\¶}°ª§C¦¬.xls") '¤Þ¥ÎWord¤å¥ó
   
8. '??? ³oxls¬OExcelÀÉ
   
9. 
   
10. '**** ¶}±Òªº¬Oxls ****
    
11. Set ExcApp = Workbooks.Open("D:\¶}°ª§C¦¬.xls") '¶}±ÒexcelÀÉ
    
12. Sh = Split("Open,High,Low,Close", ",")
    
13. With ExcApp
    
14.     For i = 0 To UBound(Sh)
    
15.         AR(i) = .Worksheets(Sh(i)).UsedRange
    
16.     Next
    
17. End With
    
18. ExcApp.Close 'Close the Workbook
    
19. 'Set ExcApp = Nothing 'ÄÀ©ñª«¥óÅܼÆ
    
20. 'ExcApp:µ{¦¡ªº¨p¥ÎÅܼÆ,µ{¦¡µ²§ô´N³QÄÀ©ñ±¼,¤£¥²¦A Set ExcApp = Nothing
    
21. End Sub

½Æ»s¥N½X