打印本文
關閉窗口
用論壇軟件導出即時數據到excel時：
MyXL.Application.activesheet.Range("D" & Cstr(j+1)) = report1.LastHigh
MyXL.Application.activesheet.Range("E" & Cstr(j+1)) = report1.LastLow
上述語句導出的總是前天的數據 而不是昨天的。請問這是什么問題？謝謝
導出的是期指當月 上證指數 滬深300，日線數據。lastclose都對，但lasthigh和lastlow 都是前天的，試了很久，都是這樣，為什么呢？
再多給出一些代碼看看,
你檢查檢查,有沒哪些語句會導致j變化
Public MyXL
private StockCode(30),StockMarket(30)
Sub APPLICATION_VBAStart()
Call Application.SetTimer(10, 500)
GetExcelFile("D:\Stock.xlsx")
End Sub
Sub APPLICATION_Timer(ID)
GetStockCode
GetNewPrice
end sub
Sub GetNewPrice()
dim i
dim j
on error resume next
i=CDbl(Document.GetPrivateProfileString("Stock","StockCount",1,"D:\StockCode.INI"))
For j=1 to i
application.MsgOut "正在導出:" & StockCode(j) & "行情..."
Set Report1 = marketdata.GetReportData(StockCode(j),StockMarket(j))
MyXL.Application.activesheet.Range("A" & Cstr(j+1)) = StockCode(j)
MyXL.Application.activesheet.Range("B" & Cstr(j+1)) = Report1.NewPrice
MyXL.Application.activesheet.Range("C" & Cstr(j+1)) = Report1.LastClose
MyXL.Application.activesheet.Range("D" & Cstr(j+1)) = Report1.LastHigh
MyXL.Application.activesheet.Range("E" & Cstr(j+1)) = Report1.LastLow
MyXL.Application.activesheet.Range("F" & Cstr(j+1)) = Report1.Open
MyXL.Application.activesheet.Range("G" & Cstr(j+1)) = Report1.High
MyXL.Application.activesheet.Range("H" & Cstr(j+1)) = Report1.Low
Next
End Sub
'取得要監控的品種代碼
Sub GetStockCode()
dim i
dim j
i=CDbl(Document.GetPrivateProfileString("Stock","StockCount",1,"D:\StockCode.INI"))
For j=1 to i
StockCode(j)=Document.GetPrivateProfileString("Stock","Code" & Cstr(j),"","D:\StockCode.INI") '品種號碼
StockMarket(j)=Document.GetPrivateProfileString("Stock","Market" & Cstr(j),"","D:\StockCode.INI") '交易所代碼
'application.MsgOut "i:" & i & "," & stockcode(j) & "," & StockMarket(j)
Next
End Sub
'打開Excel
Sub GetExcel()
Const ERR_APP_NOTRUNNING = 429
On Error Resume Next
Set MyXL = GetObject(, "Excel.Application")
If Err = ERR_APP_NOTRUNNING Then
Set MyXL = CreateObject("Excel.Application")
End If
MyXL.Application.Visible = True
End Sub
'打開某個excel文件
Sub GetExcelFile(sFileName)
'此過程暫停使用,替代過程為:GetExcel
Dim sWinName '窗口名
Dim iPos
'測試 Microsoft Excel 的副本是否在運行。
On Error Resume Next '延遲錯誤捕獲。
'不帶第一個參數調用 Getobject 函數將
'返回對該應用程序的實例的引用。
'如果該應用程序不在運行，則會產生錯誤。
Set MyXL = GetObject(, "Excel.Application")
If Err.Number <> 0 Then
Set MyXL = CreateObject("Excel.Application")
End if
'將對象變量設為對要看的文件的引用。
Set MyXL = GetObject(sFileName)
iPos = InStrRev(sFileName, "\", -1, vbTextCompare)
sWinName = Mid(sFileName, iPos + 1, Len(sFileName) - iPos - 4)
'設置其 Application 屬性，顯示 Microsoft Excel。
'然后使用 MyXL 對象引用的 Windows 集合
'顯示包含該文件的實際窗口。
MyXL.Application.Visible = True
MyXL.Application.ScreenUpdating = True
MyXL.Parent.Windows(1).Activate
MyXl.Application.Sheets(1).Visible=true
End Sub
'關閉Excel
Sub CloseExcel()
On Error Resume Next
MyXL.Application.DisplayAlerts = False
'MyXL.Application.Save
MyXL.Application.Quit
' Set MyXL = Nothing '釋放對該應用程序
End Sub
--------------------------------------------------------------------------
這是全部。請檢查，謝謝。如果仍有問題，我擬明日去公司當面咨詢。可否私信電話聯系。