VBA入门记录
上学学过C,工作与编程无关
最近开始对编程有一定兴趣,就来学一下VBA,期望在工作中能应用,做一些小的开发。
主要是在我要自学网看视频。
With AP.Sheet2 这一段总是报438错误
Sub 合并excel表格A()
'打开本文件夹下所有EXCEL文件,按条到THISWORKBOOK查找,如果有此代码则数量相加,如果无此代码
'整行COPY到THISWORKBOOK,行号+1
Dim MyPath$, myFile$, WKb$, AK As Workbook, AP As Workbook
Dim ROWB, ROWC
Application.ScreenUpdating = False '冻结zhi屏幕,以防屏幕抖dao动
MyPath = "D:\learning\VBA\跨表操作\" '把文件路zhuan径定义给变量
myFile = Dir(MyPath & "\" & "*.xl