c语言运行excel中vba程序,VBA代码在WPS上可运行,在EXCEL中报错

本人是一名VBA爱好者兼VBA小白,因工作需要,最近想要做1个EXCEL模板,通过VBA代码自动调用浏览器下载数据,导入EXCEL中进行处理。但在编写VBA代码过程中发现,同样的代码在WPS中可以运行,但在EXCEL中运行时报错,我试了几种方法,在网上也百度了很多信息,但问题没有得到解决。      在此,小白求教各位VBA前辈、达人、爱好者帮忙纠正一下应该怎么解决,在此谢过。

以下是VBA代码:

(详情请参看附件)

Sub 更新出勤()

Sheets("钉钉考勤汇总查询").Visible = xlSheetVisible

Sheets("钉钉考勤汇总查询").Cells.ClearContents

Dim name_list As String

name_list = Sheets("系统初始化配置").Range("B13").Value

timename = Format(Sheets("系统初始化配置").Range("B3").Value, "yyyymmdd hhmm")

namelist_name = "钉钉考勤汇总查询" & timename

ActiveWorkbook.FollowHyperlink Address:=name_list

Application.Wait (Now + TimeValue("0:00:03")) '等待网页反应

SendKeys namelist_name  ''文件名

SendKeys "{ENTER}"

Application.Wait (Now + TimeValue("0:00:03")) '等下报表下载

Application.DisplayAlerts = False

myFilename = Sheets("系统初始化配置").Range("B17").Value

Workbooks.Open Filename:=myFilename & "\" & namelist_name & ".xls"

Windows(namelist_name & ".xls").Activate

Cells.Copy

Windows("菜鸟仓生产进度播报 - 副本.xlsm").Activate

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值