在Access中用代码建立表和字段,通常用DAO的方式。 如: Dim dbs As DAO.Database Dim tdf As DAO.TableDef Dim fld As DAO.Field Set dbs = CurrentDb Set tdf = dbs.CreateTableDef("表1") Set fld = tdf.CreateField("字段1", dbText) tdf.Fields.Append fld dbs.TableDefs.Append tdf ...
Access应用程序本身(msaccess.exe)有一些导出函数,是对win32api的再次封装,比如下面这个选择颜色对话框调用就很方便。 Private Declare Function wlib_AccChooseColor Lib "msaccess.exe" Alias "WizChooseColor@8" (ByVal hwnd As Long, rgb As Long) As Long Private Sub GetColor() Dim lRgb ...
获取Excel工作表表名一般使用创建Excel.Application对象的方法,但速度比较慢。 使用dao的方法则可以快速获取, 代码 如下: '获取Excel文件所有工作表名称的过程 Public Sub GetExcelSheetName() Dim dbs As DAO.Database Dim tbf As DAO.TableDef Dim ...