本人是一名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