|
我把自己经常使用的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 |