前言:
当前朋友们对“网页制作表单例子”都比较着重,姐妹们都想要了解一些“网页制作表单例子”的相关文章。那么小编在网上汇集了一些有关“网页制作表单例子””的相关文章,希望兄弟们能喜欢,你们快快来了解一下吧!视频加载中...
任务内容:
每个月都要将上个月的异常记录,录入到公司的网站上。异常记录已经由公司的美女录入到Excel表中了,每个月多的时候上千条记录,少的时候也有三四百条记录。由于开发的网站不够智能,只能再一条条地把记录搬运到网站上。复制。。。黏贴。。。复制。。。黏贴。。。复制。。。黏贴。。。复制。。。黏贴。。。[吐血]
解决方案:
通过VBA的 SendKeys来代替我们手动的复制黏贴。
SendKeys 语句说明:向活动窗口发送一个或多个键击,就像按键盘上的按键一样。
因此使用sendKeys来代替我们手动按键盘,刚好可以用来解决我们的需求。
sendKeys对应按键代码
键
代码
Backspace
{BACKSPACE} 或 {BS}
Break
{BREAK}
Caps Lock
{CAPSLOCK}
清除
{CLEAR}
Delete 或 Del
{DELETE} 或 {DEL}
向下键
{DOWN}
结束
{END}
Enter(数字小键盘)
{ENTER}
Enter
~(波形符)
Esc
{ESCAPE} 或 {ESC}
帮助
{HELP}
主页
{HOME}
Ins
{INSERT}
向左键
{LEFT}
Num Lock
{NUMLOCK}
PageDown
{PGDN}
PageUp
{PGUP}
Return
{RETURN}
向右键
{RIGHT}
Scroll Lock
{SCROLLLOCK}
Tab
{TAB}
向上键
{UP}
F1 到 F15
{F1} 到 {F15}
键
代码
Shift
+
Ctrl
^
Alt
%
1.获取sendkeys对象
Set ws = CreateObject("wscript.shell")
2.将要黏贴的内容复制到剪贴板
msg = zuSheet.Cells(i, 13)'要复制的内容ws.Run "mshta vbscript:ClipboardData.SetData(" & Chr(34) & "text" & Chr(34) & "," & Chr(34) & msg & Chr(34) & ")(close)", 0, True
3.黏贴内容
'模拟键盘录入 Ctrl+Vws.SendKeys "^v"
4.循环复制黏贴键入
time = 200'这里暂停1500毫秒是为了预留时间,将网页手动切换的前台来Sleep 1500For i = 3 To zuSheet.Cells(Rows.count, 1).End(xlUp).Row msg = zuSheet.Cells(i, 4) '要复制的内容 ws.Run "mshta vbscript:ClipboardData.SetData(" & Chr(34) & "text" & Chr(34) & "," & Chr(34) & msg & Chr(34) & ")(close)", 0, True Sleep time ws.SendKeys "^v" Sleep time ws.SendKeys "{TAB}" ...... ws.SendKeys "{TAB}" ws.SendKeys "{TAB}"Next
切换网页到前台问题:
这里有个不足的地方就是,无法自动将网页切换到前台
使用 ws.SendKeys "%{TAB}",无法实现
有网友说使用两个:
ws.SendKeys "%{TAB}"ws.SendKeys "%{TAB}"
经验证也是没有反应,无法实现将网页切换到前台。
所以这里只能暂时用手动的方式,切换过去
(不知道有没哪个网友来支个招)
Sleep 问题:
Sleep 延时,这个是毫秒级别的, 使用时必须要先声明
'32位系统用这个Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) '64位系统用这个Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
需要完整代码或小工具的,请在评论区留言
有任何相关问题,欢迎来评论区交流
作者介绍:专注办公自动化,让工作轻松起来
标签: #网页制作表单例子