VBAQQ群：273624828
如上面所示，所有深市沪市2600多支股票的历史交易数据，有需要的联系我，QQ449217002。 首先声明不是免费的，只想找我当义工的请绕行。 送给一些只想吃免费午餐的朋友一句话，“帮你是道义，不帮是本分”，你的时间值钱，我的时间也值钱。 附件是其中15支股票的数据 http://pan.baidu.co...
利用VSTO vb.net开发了一个excel插件，用来获取当前股票的实时数据，安装之后效果如下图 点击按钮即可获得实时的股票数据。 下载地址： http://pan.baidu.com/s/1eQvlzHK。 第一次安装时需要从微软官网下载一些.net组件，如不能自动安装请到 http://pan.baidu....
熟悉VBA窗体的朋友都知道窗体的样式很单调，要想设置一些个性化的属性要用到大量的API函数，今天在论坛上看到一个总结的很全面的自定义函数，拿出来分享一下。感谢前人做了嫁衣裳，我们就不客气的拿来用了，代码中保留了原作者的声明，感兴趣的可以直接联系原作者。 Public Declare Function GetWindowLong Lib ...
后来仔细想了想该方法并没有所谓的防止查看和修改代码的作用，因为只要限制了宏功能或者不信任对VBA工程对象模型的访问就可以限制该功能从而打开VBE窗口。 禁止打开VBE窗口，可以防止查看和修改代码。 运行机理：在打开事件中添加windows监视，一旦VBE打开，就运行VBEwindow过程，并调用CheckVBE_Event过程强制...
打开Excel时自动运行程序，将当前时间与设置的时间进行比较，如果超时的话就将工作簿自动删除，可以起到设置使用期限的作用。 Private Sub Workbook_Open()If Now() >= #2/12/2015# ThenActiveWorkbook.ChangeFileAccess xlReadOnlyKill Ac...
看个网抓的例子。 在百度地图搜索杭州，然后在杭州搜索关键词“母婴店”，现在要将搜索得到的结果提取出来，这里只提取店名，地址和电话。 Sub BaiDuMap() Dim winhttp, URL, arr, i, j, p, t, objSC, strJSON, objJSON, pages, n, strFunc, jsonI...