① 在VB.NET中如何使用新浪股票數據介面
基本沒有，你得和人家有合作關系
② VB.net 如果讀取txt數據(或十進制dat數據)
vb.net雖也有input語句，但一次只能讀取到一個變數中，可以用TextFieldParser類代替，但似乎沒以前的方便。不過比以前的更靈活。寫入文件Write還是可以用，在Microsoft.VisualBasic.FileIO中。
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
DimfileNameAsString="E:電子閱讀股票 able2.csv"
UsingRecrodsAsNewMicrosoft.VisualBasic.FileIO.TextFieldParser(fileName)'建立TextFieldParser對象
'MyReader.TextFieldType=FieldType.Delimited
Recrods.SetDelimiters(",")'把欄位分隔符設置為","
DimcurRow()AsString
DoUntilRecrods.EndOfData
curRow=Recrods.ReadFields()'讀取記錄行，返回字元串數組，所以不同欄位類型需要自己轉換。
Debug.Print(Join(curRow,vbTab))
Loop
EndUsing
EndSub
③ EXCEL如何用VBA自動獲取每個股票近幾天的漲幅
excel大量獲取數據是比較慢的 你這種得用vb寫dll多線程刷新數據才行 私聊
④ 用VB 讀取通達信實時股票數據(現價，漲幅)
可以在http://stock.business.sohu.com/p/pl.php
用VB的 WebBrowser1_DownloadComplete 做。
引用Internet Controls
⑤ 用VB如何直接獲取股票實時數據
可以通過調用ChinaStockWebService的服務來實現獲取股票的實時數據，代碼如下：
publicstring[]getStockInfo(stringstockcode)
{
//stringurl="http://hq.sinajs.cn/list="+stockcode;
//stockcode某隻股票的代碼
stringurl="http://hq.sinajs.cn/list=sh600683";
WebClientclient=newWebClient();
client.Headers.Add("Content-Type","text/html;charset=gb2312");
Streamdata=client.OpenRead(url);
StreamReaderreader=newStreamReader(data,Encoding.GetEncoding("gb2312"));
strings=reader.ReadToEnd();
reader.Close();
data.Close();
returns.Split(',');
}
⑥ 怎樣用EXCEL 實時讀取 股票日線數據
定量分析的第一步，是獲取數據。
獲取股票歷史行情數據最方便的途徑，就是直接讀取股票行情軟體留在你電腦中的日線數據文件。
但如果不是程序員，電腦里一般不會有VB、VC之類的編程語言。
其實，大家的電腦中一般都有OFFICE。OFFICE中的EXCEL自帶了一個VBA語言的編程環境。功能也很強大。
我用EXCEL里的VBA編寫了一段代碼，讀取通達信股票行情軟體的日線文件。已經測試通過。
代碼如下。與愛好定量分析的朋友分享。
TypeMyType
a1AsLong'標示碼
a2AsLong'日期
a3AsSingle'開盤價
a4AsSingle'最高價
a5AsSingle'最低價
a6AsSingle'收盤價
a7AsSingle'成交金額
a8AsLong'成交量
EndType
Sub按鈕1_Click()
DimFile2AsInteger
DimbAsMyType
File1=FreeFile
Opensh600000.dayForBinaryAccessReadAs#File1i=1DoWhileNotEOF(File1)
Get#File1,,b
Cells(i,1)=b.a1
Cells(i,2)=b.a2
Cells(i,3)=b.a3
Cells(i,4)=b.a4
Cells(i,5)=b.a5
Cells(i,6)=b.a6
⑦ vb轉換股票數據的問題
大智慧股票數據
每個記錄40 byte
格式
long Date 0'相對開頭偏移量 byte
long Open=4
long High=8
long Low=12
long Close=16
long Volume=20
不是二進制方式，使用隨機方式 Random 讀取， 讀取以後 價格 /1000 就行了
定義類型
Private Type ddzh
Date As Long
Open As Long
High As Long
Low As Long
Close As Long
Volume As Long
End1 As Long
End2 As Long
End3 As Long
End4 As Long
End Type
Private Type dzh
Date As Long
Open As Single
High As Single
Low As Single
Close As Single
Volume As Long
End Type
用 Get 讀取記錄到 就可以了
ReDim ddzh(1 To 1) As ddzh
ReDim dzh(1 To 1) As dzh
Open "000001.day" For Random As #1 Len= Len(ddzh(1))
ReDim ddzh(1 To Lof(1)/Len(ddzh(1))) As ddzh
For i = 1 To ReadToTal
Get #1, i, ddzh(i)
Next i
Close #1
讀取以後轉換到
dzh里就可以了
大福星數據比較好用，分中圖都可以讀取