189 8069 5689
第一步，新建项目。
创新互联建站是专业的顺德网站建设公司，顺德接单;提供成都做网站、网站建设,网页设计,网站设计,建网站,PHP网站建设等专业做网站服务;采用PHP框架,可快速的进行顺德网站开发网页制作和功能扩展;专业做搜索引擎喜爱的网站,专业的做网站团队,希望更多企业前来合作!
1
打开vb点虐 ，也就是打开Microsoft visual studio 2010，第一次使用的时候设置为basic语言就行。新建项目--打开excel。
2
新建成功。
END
第二步，添加引用。
1
“项目”--“添加引用”。
2
添加Microsoft Excel 14.0 Object Library。
END
第三步，添加打开文件对话框工具。
1
工具箱--对话框--openfiledialog。
2
添加成功。
END
第四步，添加命令按钮控件。
1
工具箱--公共控件--button。
在控件上右击鼠标，进入属性设置。
2
text属性设置为“打开excel”。
3
name属性也设置为“打开excel”。
END
第五步，编写程序。
1
鼠标双击命令按钮，进入编程界面，编写程序。
END
第六步，运行程序。
1
鼠标单击启动调式图标，程序开始运行。
2
单击打开excel命令按钮，调用打开文件对话框，选择自己要打开的excel文件。
END
第七步，保存程序。
第一次程序运行完，关闭程序，出现关闭项目提示，选择保存。
2
选好自己要保存的位置。
Declare Sub mouse_event Lib "user32" Alias "mouse_event" (ByVal dwFlags As Integer, ByVal dx As Integer, ByVal dy As Integer, ByVal cButtons As Integer, ByVal dwExtraInfo As Integer)
Dim postion1 As New Point
mouse_event(H1 Or H8000, postion1.X * 65535 / 1366, postion1.Y * 65535 / 768, 0, 0)
'按绝对位置移动鼠标
'在鼠标坐标系统中，屏幕在水平和垂直方向上均匀分割成65535×65535个单元，
'当前所用显示屏分辨率为1366*768
'所以要进行如上转换
mouse_event(H2, 0, 0, 0, 0) '鼠标左键按下
mouse_event(H4, 0, 0, 0, 0) '鼠标左键弹起
msdn上有 mouse_event 的详解，大致使用如上
SetCursorPos(xr,yr)
sleep (1000) '移动鼠标后加个延时 先加大一点的没关系 测试有效后再缩短延时时间
其他行的sleep 也如此 再者你的leftdown 和 up 常量有先赋值吧