Re: [算表] excel 讀取另一個未開啟 .xls sheet內的值

看板Office作者kasl (小麻雀)時間16年前 (2010/01/02 03:58)推噓0(0推 0噓 0→)

留言0則, 0人參與討論串2/2 (看更多)

google 找到的試寫了一下不知我這樣寫法有更聰明的寫法嗎總覺得 excel 抓值進來填的執行時間好久 QQ 還請各位指教謝謝~ Set ExcelApp = CreateObject("Excel.Application") Set ExcelBook = ExcelApp.Workbooks.Open("d:\1229.xls") Set ExcelSheet1 = ExcelBook.Worksheets("收盤價") Set ExcelSheet2 = ExcelBook.Worksheets("成交量") lCols1 = ExcelSheet1.UsedRange.Cells.Columns.Count lRows1 = ExcelSheet1.UsedRange.Cells.Rows.Count For i = 1 To (lCols1 - 5) ' 股價代碼 Sheets("分析資料").Cells(i + 1, 2) = ExcelSheet1.Cells(1, i + 5) ' 10/20 均價 Sheets("分析資料").Cells(i + 1, 3) = WorksheetFunction.Average(ExcelApp.Range(ExcelSheet1.Cells(lRows1 - 9, i + 5), ExcelSheet1.Cells(lRows1, i + 5))) Sheets("分析資料").Cells(i + 1, 4) = WorksheetFunction.Average(ExcelApp.Range(ExcelSheet1.Cells(lRows1 - 19, i + 5), ExcelSheet1.Cells(lRows1, i + 5))) Next i ※ 引述《kasl (小麻雀)》之銘言： : 我有一個 .xls 檔每日更新裡面放有100檔每日的收盤價 : 1101 1102 ...... : 20080101 1 2 : 20080102 2 4 : ..... : 20091225 4 5 : 20091228 6 7 : 我有另一個 excel file 裡面要 .xls 每隻股票的 10日收盤均價 20日收盤均價 : 就是說我要抓 .xls 最後一欄往前抓10個取平均往前抓20個取平均 ... : 我現在的作法是把 .xls 我要分析資料的sheet放在同一個檔案內 : 來抓收盤價的 sheet 不過當股票愈多檔這個 excel file 就超肥的 QQ : 請問我該怎麼把這二個 excel 分開然後每天更新收盤價.xls : 分析資料的 excel 就會去抓相對應的資料出來運算再填回 : 謝謝~ -- -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 122.116.227.44