一些代码规范

这几天都在弄VBA，昨天终于算是告一段落了

应该告一段落了吧？同事拿了代码回去也没给我个答复，到底能不能用啊？不过她不来找我，我也乐得清闲~
来做做工作总结吧~
首先是一些代码写作上的规范。这几天改了两三个宏代码，发现代码水平是真的参差不齐。差的那些，看起来就是录制完之后再随便拼接一些百度复制过来的代码，没有缩进没有标注，也没有变量声明。这个东西能够跑得起来，简直就是人类实用主义的一个里程碑式胜利！
话虽这样说，但，人家好歹跑起来了对吧？虽然很不甘心，但我当时也就只能先对照着这个大丑来改进、编写新的代码。过了几天，折磨结束，这时，来了一份新的代码，怎么形容这种感觉呢？与我而言，真的就是，如听仙乐耳暂明，非常的elegant，以至于我一瞬间感觉到，写代码真是一件开心的事~
下面稍微总结一下从中学到的知识，记在这里以便以后查看。
模板

'最好还是开启这个选项
Option Explicit
Pubic 公用变量
_______________________________
Sub main(*arg)
dim arr
dim path as string
dim = xlbook as object

'数组变量赋值
arr = thisworkbook.worksheets("data").range("").CurrentRegion

'定义文件路径,打开文件,(对任何东西进行操作前最好都先判断非空,非满...)
path = ""

if dir(path, vbdirectory) <> vbnullstring then
  set xlbook = workbooks.open(path)
  xlbook.visible = false '不显示工作簿
  arr = xlbook.worksheets(name).range("A1").currentregion
  xlbook.close (False) '关闭文件,不保存修改,若True则保存修改

End Sub