- ©«¤l
- 5923
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 5986
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW°ò¶©
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2022-1-23
        
|
¦^´_ 3# kasl
¸Õ¸Õ¬Ý- Option Explicit
- Sub Get_Stock_Table()
- Dim ExcApp As Workbook, AR(0 To 3), Sh, i As Integer
- 'Set ExcApp = CreateObject("Excel.Application") '«Ø¥ß¤Þ¥ÎWordÀ³¥Îµ{¦¡ªºª«¥ó
- '??? Excel.Applicationg ¬O ExcelÀ³¥Îµ{¦¡ªºª«¥ó****
- 'Set ExcDoc = ExcApp.Workbooks.Open("D:\¶}°ª§C¦¬.xls") '¤Þ¥ÎWord¤å¥ó
- '??? ³oxls¬OExcelÀÉ
- '**** ¶}±Òªº¬Oxls ****
- Set ExcApp = Workbooks.Open("D:\¶}°ª§C¦¬.xls") '¶}±ÒexcelÀÉ
- Sh = Split("Open,High,Low,Close", ",")
- With ExcApp
- For i = 0 To UBound(Sh)
- AR(i) = .Worksheets(Sh(i)).UsedRange
- Next
- End With
- ExcApp.Close 'Close the Workbook
- 'Set ExcApp = Nothing 'ÄÀ©ñª«¥óÅܼÆ
- 'ExcApp:µ{¦¡ªº¨p¥ÎÅܼÆ,µ{¦¡µ²§ô´N³QÄÀ©ñ±¼,¤£¥²¦A Set ExcApp = Nothing
- End Sub
½Æ»s¥N½X |
|