做一个电子表格excel vba 实时获取网页数据

1. 做一个电子表格excel vba 实时获取网页数据

首先打开Excel 2007工作表，点击想要把数据导入的位置，然后在菜单栏找到第五项"数据“，点击，在“获取外部数据”项下找到“自网站”并点击。

这时弹出来”新建 Web 查询“对话框，可以在“地址”一栏键入要添加数据的网页的地址。

添加完成后，点击“转到（G）”，下面会出来要添加网页的内容和黄色箭头，单击要选择的表旁边的黄色箭头，可以看到点击后黄色箭头变成绿色的对号，这表示内容已经选中了，然后单击“导入（I）”。

弹出来”导入数据“对话框，设置完成点击“确定”。

Excel表中显示“正在获取数据……”。

数据获取完成，之前选中的网页内容全部导入了Excel工作表里。

2. 用excel vba 抓取网页中 股票的财务数据 然后做分析 做好了可以加分哈

网抓已经OK。


原网页源代码写的不太规范，几处语法写错的地方解析时要特殊处理，花了点时间。

3. 如何将新浪网上的股票行情导入到excel中并实时更新

1、首先查找股票价格表的地址。
2、打开EXCEL表将光标置于A1,选“数据/导入外部数据/新建veb查询”，在地址栏输入股票价格表地址，“转到”，单击价格表旁黄色向右箭头，单击“导入”，即可将价格表导入EXCEL表。
3、将EXCEL表起名，保存。
4、光标放在新导入表格中，在“数据/导入外部数据/数据区域属性/数据控件”中，勾选“打开工作簿时自动刷新/确定”。
4、再在目录打开保存过的EXCEL表，点击“启用自动刷新”按钮，即可根据网上最新的股票数据予以刷新。
5、你还应进一步建立自己股票查询表，用VLOOKUP函数根据股票代码将自己的股票信息导入到查询表中，并设置收益计算等项目。
这样，每天打开查询表，刷新，即可见到自己股票的最新信息和收益状况了。

4. 怎样用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#File1　　i=1　　DoWhileNotEOF(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

5. excel里面用vba中如何读取网页特定数据，可追加100分

供参考


Sub test()
Dim myQuery

    With ActiveSheet
        .Cells.Delete
        .[a1] = "Conneting, Please Wait..."
        
    
        Set myQuery = ActiveSheet.QueryTables _
            .Add(Connection:="URL;http://www.boshi.com.cn", _
            Destination:=.Cells(1, 1))
    End With
    With myQuery
        .Refresh
    End With

补充：grhsc你不是知道读取全部网页的程序吗？那里可以先把整个网页以表格的方式读取到excel中，建立一个临时sheet，然后删除掉多余的数据，或者在excel中在读取需要的数据不就行了？

6. EXCEL如何用VBA自动获取每个股票近几天的涨幅

　　一般网页上的数据都可以通过VBA进行抓取，应用得好，可以实现对很很多资料的动态监测。
　　涨幅就是指目前这只股票的上涨幅度。
　　涨幅的计算公式：涨幅=(现价-上一个交易日收盘价）/上一个交易日收盘价*100%
　　例如：某只股票价格上一个交易日收盘价100，次日现价为110.01，就是股价涨幅为（110.01-100 ）/100*100%=10.01%.一般对于股票来说 就是涨停了!如果涨幅为0则表示今天没涨没跌，价格和前一个交易日持平。如果涨幅为负则称为跌幅。
　　比如:一支股票的涨幅是：10%、-5%等 。

7. 怎么实现EXCEL自动提取网站中的数据

数据菜单获取外部数据
自网站
输入网站的地址
导入
属性设置刷新时间

8. 在excel中如何使用vba实现将sql的数据快速写入excel

Dim conn As New ADODB.ConnectionconnStr = "Driver={SQL Server};DataBase=test;Server=(local);UID=sa;PWD=123"conn.Open connStr '连接数据库Dim rs As New Recordsetsql = "select * from a" '查看表ars.Open sql, conn, 3, 3if Not rs.EOF then   For iCols = 0 To rs.fields.Count - 1       Sheets(1).Cells(1, iCols + 1).Value = rs.fields(iCols).Name   Next iCols   Sheets(1).Cells(2, 1).CopyFromRecordset rsendif