我把自己经常使用的stk的vbs语句供出,希望大家一起交流
1:打开网页
Application.ShellExecute "open", "http://share.jrj.com.cn/cominfo/default_"&Label&".htm", "", "", 1 \'金融街个股频道
2:运行应用程序
Application.WinExec "E:\\dzh2\\dzh2.exe", 1
3:激活或者打开一个指定的框架
Application.ActivateFrame "ReportPro" \'激活或者打开一个指定的框架
4:APPLICATION_VBAStart 应用程序启动时发生
Sub APPLICATION_VBAStart()
UserForm2.show
UserForm2.Move 170,-28,53,1000 \'初始化UserForm2窗体
End Sub
5:获得焦点股票代码
dim Label
dim Market
Result = Application.GetCurrentStock(Label,Market) \'获得焦点股票代码
if Result = 0 then
msgbox "请选择一个品种"
exit sub
end if
6:调用MSie的剪贴板实现复制股票代码
dim Label
dim Market
Result = Application.GetCurrentStock(Label,Market)
if Result = 0 then
msgbox "请选择一个品种"
exit sub
end if
Set objIE = CreateObject("InternetExplorer.Application") \'调用MSie的剪贴板实现复制股票代码
objIE.Navigate("about:blank")
objIE.document.parentwindow.clipboardData.SetData "text", Label
objIE.Quit
msgbox "已成功将"&Market&Label&"复制到粘贴板"
7:加载窗体时显示最大和最小按钮
Sub UserForm2_Load() \'加载窗体时显示最大和最小按钮
UserForm2.MinButton=1
UserForm2.MaxButton=1
End Sub
8:窗体move方法.可用于改变窗体的尺寸,克服vbs在窗体尺寸控制的缺陷
Sub UserForm2_Click() \' 单击窗体时展开窗体
call UserForm2.Move (170,-28,200,1000)
End Sub
Sub UserForm2_DblClick(Cancel) \'双击窗体时收缩窗体
call UserForm2.Move (170,-28,53,1000)
End Sub