回复：Excel可以做什么，Excel工作笔记[全员乱入]

任务栏放右面的确很符合个人的使用习惯的，不过放右侧之后文件夹是没有名称显示，想问问楼主有没有完美的解决办法？

@fengtf12 试试这种方法，现在第一个页面建立一个activex对象microsoft web browser，然后用na打开http://xueqiu.com/S/SH600175，这样内建的浏览器应该有cookie了，然后运行getwebfile，下载json的文件，试了试，直接修改股票代码SH600175到SH600176也好用。剩下的就是文本的处理了
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
Public Sub Nav()
ActiveWorkbook.Sheets(1).WebBrowser1.Navigate "http://xueqiu.com/S/SH600175"
End Sub
Sub GetWebFile()
If URLDownloadToFile(0, "http://xueqiu.com/statuses/search.json?count=15&comment=0&symbol=SH600175&hl=0&source=all&sort=time&page=1&_=1422350957287", "H:\SH600175.txt", 0, 0) = 0 Then
Else
End If
End Sub

用vba编程，编了个小程序，提高了全县的养老保险每月发放报表效率，以前两三天的报表，现在半小时完成。从村里到县里人人都夸，被人夸的忘乎所以，其实都是皮毛，深知自己差的很远。

本人学生，给80+的同学拍值班表，工作量很大。现在已经掌握了同学的空闲时间，如何拍，更高效？求助楼主