excel, access 脚本

ACCESS:

1、往表插入数据：

　　　　　　　　sql = "INSERT INTO Tbl(col1, col2....) VALUES(val1, val2....)"

　　　　　　　　Dim db as Database

　　　　　　　　Set db = CurrentDb

　　　　　　　　db.Execute sql

2、对于自动编号的列，删除所有记录后，编号不会重新从头开始，如何回复？

　　　　　　　　sql = "ALTER TABLE Tbl ALTER COLUMN Colname COUNTER(1, 1)"

　　　　　　　　DoCmd.RunSQL sql

3、通过 “工具” - “启动” 中的选项，可以再打开ACCESS数据库时不显示某些菜单，如果需要可通过按住 shift 键，再打开该数据库来实现

EXCEL:

1、取得当前表格可输入的那一行： idx = Application.ActiveSheet.Range("A65536").End(-4162).Row

2、遍历目录： Dir(path, vbDirectory)

3、给电子表格框输入内容：Range("A0").Value = "Test"

vbscript:

1、字符串：left 　　mid　　　　right　　　　trim　　　　instr　　　　replace

2、do while a <> ""

　　loop

3、 if a <> "" then

　　end if

4、重命名文件 name ... as ...