![](https://img-blog.csdnimg.cn/20201014180756918.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
VBA in Excel
yuanfang1992
这个作者很懒,什么都没留下…
展开
-
取最大行
Sheets.AutoFilter.ShowAllData '任何情况,一定要先去筛选再取最大行max_row =sheets(1).[a65536].End(3).Row原创 2018-08-27 16:27:20 · 236 阅读 · 0 评论 -
常用的几种遍历
遍历文件/文件夹Set Fso = CreateObject("scripting.filesystemobject") '后期绑定Set ff = Fso.getfolder(ThisWorkbook.Path) 'FSO取文件树For Each f In ff.Files '遍历 ''' '核心代码块 '''Next f遍历数...原创 2018-08-27 16:31:34 · 274 阅读 · 0 评论 -
使用字典
'字典声明Set dic = CreateObject("Scripting.Dictionary")If Not dic.exists(Arr(1, col)) Then '查询字典是否存在 dic.Add Arr(1, col), col '新增字典 key + valueElse MsgBox ("BOM中发现重复列名,请删除或改名字先!") GoT...原创 2018-08-27 16:29:26 · 211 阅读 · 0 评论 -
VBA常见对象的操作
拷贝到指定地方Sheets(1).Range.copy destination:=Sheets(2).range拷贝指定range的几种写法 Range("A1:C5").Copy '直接复制源数据 (去掉select以提高效率)Range("G7").PasteSpecial Paste:=xlPasteValues '显示参数名方式(标准、易懂)Range("G7").Pa...原创 2018-08-27 16:42:12 · 2270 阅读 · 0 评论 -
VBA项目方面小技巧
workbook 关闭并保存修改workbook.close savechanges:=True 删除隐私检查Workbook.RemovePersonalInformation = False打印任意格式文件,只要支持windows右键打印Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecu...原创 2018-08-27 16:44:28 · 945 阅读 · 0 评论 -
VBA中使用SQL
取出同文件夹下所有表格中相关信息Dim Cnn As Object, MyCat As Object, rst As Object, sql$, SheetName$, f$, ph$, r&, strConn$ph = ThisWorkbook.Path & "\": f = Dir(ph & "*.xls?") '注意写法,创建路径strConn = "Pr...原创 2018-08-27 16:54:06 · 14697 阅读 · 1 评论 -
使用数组
定义与重定义:'定义空的数组,第一次赋值时确定大小Dim Mystr()'定义确实大小的数组Dim Mystr(100,100)'保留数据扩充大小,速度慢不推荐ReDim Preserve MyStr(n)'擦除数组,释放内存Erase arr数组取值:'一维数组取列arr = Application.Transpose(.range())'一维数组取行...原创 2018-08-30 12:04:50 · 311 阅读 · 0 评论