主题：复制股票代码到剪贴板的VBS代码

Sub fzdm()    
   Application.ActivateFrame("Technic")
    '与该窗格关联的证券代码
   Set Grid = Technic.GetGridByName("Main")
   Label = Grid.StockLabel       
   Set objIE = CreateObject("InternetExplorer.Application")    '复制股票代码到剪贴板
   objIE.Navigate("about:blank")
   objIE.document.parentwindow.clipboardData.SetData "text", Label
   objIE.Quit
   MsgBox "复制成功"
End Sub
 
这是复制股票代码的宏，取得股票代码后，在复制到
浏览器关键词的地方，进行搜索。也很实用的
将这段代码复制到斯道客上的步骤：
   按Shift+W 打开管理面板，选择高级标签，双击“模块”中的“Macro”，再随后弹出的VBS代码编辑器界面上，选择“运行”菜单，然后单击“重新设置”来停止VBS宏的运行，随后将以上代码粘贴到编辑器中，然后再选择“运行”菜单的“执行”命令开始VBS的运行。
   然后再“工具”菜单上选择“宏”，然后单击“执行宏”命令，再随后弹出的“执行宏”对话框上输入“fzdm”,单击确定按钮，就可以把当前K线界面中的股票代码复制到粘贴版了。（注意一定要在K线图界面上使用该宏）