Excel-VBA学习笔记

Dir[(pathname[, attributes])]

Dir 会返回匹配 pathname 的第一个文件名。若想得到其它匹配 pathname 的文件名，再一次调用 Dir，且不要使用参数。如果已没有合乎条件的文件，则 Dir 会返回一个零长度字符串 ("")。一旦返回值为零长度字符串，并要再次调用 Dir 时，就必须指定 pathname，否则会产生错误。不必访问到所有匹配当前 pathname 的文件名，就可以改变到一个新的 pathname 上。但是，不能以递归方式来调用 Dir 函数。以 vbDirectory 属性来调用 Dir 不能连续地返回子目录。

 Dir 支持多字符 (*) 和单字符 (?) 的通配符来指定多重文件。

 

'数组

arr = Range("A1:A10")

 

'匹配函数

1.使用Excel函数，Application.Match() 或 Application.WorkSheet.Match()

'获取最后的单元格行号

last_cell = Cells(Rows.Count, 1).Row

'获取最右的单元格列号

last_cell = Cells(1, Columns.Count).Column

 

'msgbox "This is only an example!", VbInformation + vbOkOnly, "Title"

vbOkOnly指对话框的确定键，VbInformation指“问号”图标

 

'Excel xlsx下使用宏———做成加载项。

将写好的宏，另存为excel 加载宏（xlam文件），然后在EXCEL里，点 文件、选项、加载项、转到、浏览、选取刚才存的xlam文件即可。

 

On Error Resume Next

在它之后发生的错误代码直接跳过执行下一句

'在打开某文件前先检查此文件是否已经打开，如没打开则打开，如已打开则不再打开。

 

'打开文件

1、GetOpenFilename-只会选择一个

file_path = Application.GetOpenFilename("Excel File ,*.xls*")

2、FileDialog-对文件操作更加灵活