任务内容：每个月都要将上个月的异常记录，录入到公司的网站上。异常记录已经由公司的美女录入到Excel表中了，每个月多的时候上千条记录，少的时候也有三四百条记录。由于开发的网站不够智能，只能再一条条地把记录搬运到网站上。复制。。。黏贴。。。复制。。。黏贴。。。复制。。。黏贴。。
任务内容：
每个月都要将上个月的异常记录，录入到公司的网站上。异常记录已经由公司的美女录入到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, True3.黏贴内容
'模拟键盘录入 Ctrl+V
ws.SendKeys "^v" 4.循环复制黏贴键入
time = 200
'这里暂停1500毫秒是为了预留时间，将网页手动切换的前台来
Sleep 1500
For 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)需要完整代码或小工具的，请在评论区留言
有任何相关问题，欢迎来评论区交流
作者介绍：专注办公自动化，让工作轻松起来
创业项目群，学习操作 18个小项目，添加 微信：niuben22 备注：小项目！
如若转载，请注明出处：https://www.028wjs.com/137758.html
相关推荐
-
个体户核定征收(个体户核定征收超过了怎么办)
个体工商户，国税局核定征收为500元，是不是指每个月有无销售都需要交500元？餐饮服务业在“营改增”前仍在地税申报营业税，“营改增”后才在国税申报增值税。个体户核定征收计算方法依据：部门规章–个体工商户税收定期定额征收管理办法［2006］国家税务总局令第16号具体依据的数据：该文件第七条税务机关应当根据定期定
-
链接转二维码生成器–链接转二维码生成器在线
条形码生成软件中目前支持的条码类型有一包多种，今天给大家介绍的是其中一种条码类型MSIPlessey，MISPlessey条形码多用于超市、存储用的仓库和其他贮藏室的货架。货架上的条码可以告知货架上的产品、应放数量和其他相关信息。条码数据可以为任意长度，但是通常固定为适用于应用的长度。接下来我们一起来看下条形码生成软件如
-
淘宝总部在哪里_–淘宝总部在哪里
出品｜虎嗅商业消费组作者｜苗正卿题图｜视觉中国“我们不希望灌流量，而是形成正循环的流量逻辑。内容做得好，可以形成更好的停留时长。”阿里巴巴淘宝直播事业群总经理道放（程道放）说。9月1日，淘宝直播盛典在杭州举行。当天的发布和活动中，“内容”是关键词。在
-
体育单招培训机构排名（单招培训机构学费大概是多少）
随着2022年体育单招接近尾声，体育单招各个院校的拟录取名单都公布了。同时，现在体教联盟已开通体育单招录取状态查询，考生可以打开“体教联盟”查询自己的录取状态。1、打开体教联盟2、点击成绩查询3、点击查询即可
-
拼多多详情页尺寸多少为最佳（拼多多商品详情页尺寸）
大家好我是你们的朋友羊羊，拼多多电商创业现在十分常见，但对于很多新手来说却不知道怎么做，比如拼多多电商创业主题详情页是怎么优化的?就是各位卖家想知道的，下面就和羊羊一起来看看吧!我们都知道，视觉经济时代，谁率先抓住了消费者的眼球，谁就占据了商业先机。对于拼多多上的商家来说也是一样，一张具有吸引力的商品图片能够有效引流，提升点击量和购买率。在
-
如何用烤箱做面包(家庭版面包的做法烤箱)
如何用烤箱做普通面包烤箱做面包：1、面粉加适量干酵母，加鸡蛋4只，奶粉适量，糖一齐用水调面，面要稀一些，用筷子调面即可。2、先将烤盘里放少许油，将发酵好的面加少量小苏打水用筷子用劲朝一个方向搅和，将搅好
-
一亩茶园(一亩茶园产多少斤茶叶)
普洱万亩茶园路线如何走往江城的方向走，不到大寨的地方右边有个岔路，往那进去一直走就能看到，不过还要走好久，而且这段时间在修路，路不好走。如果找不到也可以停下来问问当地人，普洱人民会很热情帮助你的。普洱城边还有一个可以观赏茶树风景的茶山，位于高家寨，那的景色也很美，离城也近，交通方便。什么我真佩服你作文外公，我真佩服你在万家灯火悄然引退的深夜，
-
网购促销活动时间-网购最喜欢的促销方式
在电商平台购物，似乎总能赶上些“节日”——电商购物节、夏日游泳节、“88”狂欢节……各种名目的购物节接连不断，促销活动和打折价格往往让消费者“手痒”。然而，网络交易的虚假报价甚至价格欺诈现象也时有发生。国家市场监督管理总局发布的《明
-
巨量百应如何发福袋（巨量百应可以发福袋吗）
在抖音上经营店铺或者做直播间，竞争的都是流量，能吸引更多流量的商家，就可以拥有更高的商业价值，同时也可以换来更大的销售额。而现在竞争流量已经不再单纯依靠内容了，巨量千川这一广告投放工具的影响力越来越大。接下来就为新用户们具体介绍一下巨量千川推广是什么，
-
陆羽茶经(陆羽茶经有记载乌龙茶传统制茶工序为)
茶叶祖师是谁-小鱼家居的回答-懂得《茶经》是唐朝人陆羽所著的关于茶的著作，是世界上第一部有关茶的专著。在四库全书中为子部谱录饮馔类。茶经全书分三卷十个部分，分别是：一之源；二之具；三之造；四之器；五之煮；六之饮；七之事；八之出；九之就；十之图。茶经成书于公元760年到780年，距今已经有一千二百多年的历史了。自从中国有了这一部茶书以后，它就被奉为茶的经典参考，以后各朝代的茶书，给予《