【分享成果，随喜正能量】做人不妨糊涂一点，大度一点，不仅是对别人，也是对自己。因为失败而散发出的负能量才是最致命的，一切都要往好了想。

跟我学VBA，我这里专注VBA, 授人以渔。我98年开始，从源码接触VBA已经20余年了，随着年龄的增长，越来越觉得有必要把这项技能传递给需要这项技术的职场人员。希望和数据打交道的朋友，都来学习VBA,利用VBA,起码可以提高自己的工作效率，可以有时间多陪陪父母，多陪陪家人，何乐而不为呢？

这讲我们继续学习64位Office API声明语句第80讲，这些内容是MS的权威资料，看似枯燥，但对于想学习API函数的朋友是非常有用的。

' The I/O bus was reset.

Const ERROR_BUS_RESET = 1111&

' No media in drive.

Const ERROR_NO_MEDIA_IN_DRIVE = 1112&

' No mapping for the Unicode character exists in the target multi-byte code page.

Const ERROR_NO_UNICODE_TRANSLATION = 1113&

' A dynamic link library (DLL) initialization routine failed.

Const ERROR_DLL_INIT_FAILED = 1114&

' A system shutdown is in progress.

Const ERROR_SHUTDOWN_IN_PROGRESS = 1115&

' Unable to abort the system shutdown because no shutdown was in progress.

Const ERROR_NO_SHUTDOWN_IN_PROGRESS = 1116&

' The request could not be performed because of an I/O device error.

Const ERROR_IO_DEVICE = 1117&

' No serial device was successfully initialized. The serial driver will unload.

Const ERROR_SERIAL_NO_DEVICE = 1118&

' Unable to open a device that was sharing an interrupt request (IRQ)

' with other devices. At least one other device that uses that IRQ

' was already opened.

Const ERROR_IRQ_BUSY = 1119&

' A serial I/O operation was completed by another write to the serial port.

' (The IOCTL_SERIAL_XOFF_COUNTER reached zero.)

Const ERROR_MORE_WRITES = 1120&

' A serial I/O operation completed because the time-out period expired.

' (The IOCTL_SERIAL_XOFF_COUNTER did not reach zero.)

Const ERROR_COUNTER_TIMEOUT = 1121&

' No ID address mark was found on the floppy disk.

Const ERROR_FLOPPY_ID_MARK_NOT_FOUND = 1122&

' Mismatch between the floppy disk sector ID field and the floppy disk

' controller track address.

Const ERROR_FLOPPY_WRONG_CYLINDER = 1123&

' The floppy disk controller reported an error that is not recognized

' by the 电脑 floppy disk driver.

Const ERROR_FLOPPY_UNKNOWN_ERROR = 1124&

' The floppy disk controller returned inconsistent results in its registers.

Const ERROR_FLOPPY_BAD_REGISTERS = 1125&

' While accessing the hard disk, a recalibrate operation failed, even after retries.

Const ERROR_DISK_RECALIBRATE_FAILED = 1126&

' While accessing the hard disk, a disk operation failed even after retries.

Const ERROR_DISK_OPERATION_FAILED = 1127&

' While accessing the hard disk, a disk controller reset was needed, but

' even that failed.

Const ERROR_DISK_RESET_FAILED = 1128&

' Physical end of tape encountered.

Const ERROR_EOM_OVERFLOW = 1129&

' Not enough server storage is available to process this command.

Const ERROR_NOT_ENOUGH_SERVER_MEMORY = 1130&

' A potential deadlock condition 电脑 has been detected.

Const ERROR_POSSIBLE_DEADLOCK = 1131&

' The base address or the file offset specified does not have the proper

' alignment.

Const ERROR_MAPPED_ALIGNMENT = 1132&

' NEW for Win32

Const ERROR_INVALID_PIXEL_FORMAT = 2000

Const ERROR_BAD_DRIVER = 2001

Const ERROR_INVALID_WINDOW_STYLE = 2002

Const ERROR_METAFILE_NOT_SUPPORTED = 2003

Const ERROR_TRANSFORM_NOT_SUPPORTED = 2004

Const ERROR_CLIPPING_NOT_SUPPORTED = 2005

Const ERROR_UNKNOWN_PRINT_MONITOR = 3000

Const ERROR_PRINTER_DRIVER_IN_USE = 3001

Const ERROR_SPOOL_FILE_NOT_FOUND = 3002

Const ERROR_SPL_NO_STARTDOC = 3003

Const ERROR_SPL_NO_ADDJOB = 3004

Const ERROR_PRINT_PROCESSOR_ALREADY_INSTALLED = 3005

Const ERROR_PRINT_MONITOR_ALREADY_INSTALLED = 3006

Const ERROR_WINS_INTERNAL = 40电脑00

Const ERROR_CAN_NOT_DEL_LOCAL_WINS = 4001

Const ERROR_STATIC_INIT = 4002

Const ERROR_INC_BACKUP = 4003

Const ERROR_FULL_BACKUP = 4004

Const ERROR_REC_NON_EXISTENT = 4005

Const ERROR_RPL_NOT_ALLOWED = 4006

Const SEVERITY_SUCCESS = 0

Const SEVERITY_ERROR = 1

Const FACILITY_NT_BIT = &H10000000

Const NOERROR = 0

Const E_UNEXPECTED = &H8000FFFF

Const E_NOTIMPL = &H80004001

Const E_OUTOFMEMORY = &H8007000E

Const E_INVALIDARG = &H80070057

Const E_NOINTERFACE = &H80004002

Const E_POINTER = &H80004003

Const E_HANDLE = &H80070006

Const E_ABORT = &H80004004

Const E_FAIL = &H80004005

Const E_ACCESSDENIED = &H80070005

Const CO_E_INIT_TLS = &H80004006

Const CO_E_INIT_SHARED_ALLOCATOR = &H80004007

Const CO_E_INIT_MEMORY_ALLOCATOR = &H80004008

Const CO_E_INIT_CLASS_CACHE = &H80004009

Const CO_E_INIT_RPC_CHANNEL = &H8000400A

Const CO_E_INIT_TLS_SET_CHANNEL_CONTROL = &H8000400B

Const CO_E_INIT_TLS_CHANNEL_CONTROL = &H8000400C

Const CO_E_INIT_UNACCEPTED_USER_ALLOCATOR = &H8000400D

Const CO_E_INIT_SCM_MUTEX_EXISTS = &H8000400E

Const CO_E_INIT_SCM_FILE_MAPPING_EXISTS = &H8000400F

Const CO_E_INIT_SCM_MAP_VIEW_OF_FILE = &H80004010

Const CO_E_INIT_SCM_EXEC_FAILURE = &H80004011

Const CO_E_INIT_ONLY_SINGLE_THREADED = &H80004012

Const S_OK = &H0

Const S_FALSE = &H1

Const OLE_E_FIRST = &H80040000

Const OLE_E_LAST = &H800400FF

Const OLE_S_FIRST = &H40000

Const OLE_S_LAST = &H400FF

Const OLE_E_OLEVERB = &H80040000

Const OLE_E_ADVF = &H80040001

Const OLE_E_ENUM_NOMORE = &H80040002

Const OLE_E_ADVISENOTSUPPORTED = &H80040003

Const OLE_E_NOCONNECTION = &H80040004

Const OLE_E_NOTRUNNING = &H80040005

Const OLE_E_NOCACHE = &H80040006

Const OLE_E_BLANK = &H80040007

Const OLE_E_CLASSDIFF = &H80040008

Const OLE_E_CANT_GETMONIKER = &H80040009

Const OLE_E_CANT_BINDTOSOURCE = &H8004000A

Const OLE_E_STATIC = &H8004000B

Const OLE_E_PROMPTSAVECANCELLED = &H8004000C

Const OLE_E_INVALIDRECT = &H8004000D

Const OLE_E_WRONGCOMPOBJ = &H8004000E

Const OLE_E_INVALIDHWND = &H8004000F

Const OLE_E_NOT_INPLACEACTIVE = &H80040010

Const OLE_E_CANTCONVERT = &H80040011

Const OLE_E_NOSTORAGE = &H80040012

Const DV_E_FORMATETC = &H80040064

Const DV_E_DVTARGETDEVICE = &H80040065

Const DV_E_STGMEDIUM = &H80040066

Const DV_E_STATDATA = &H80040067

Const DV_E_LINDEX = &H80040068

Const DV_E_TYMED = &H80040069

Const DV_E_CLIPFORMAT = &H8004006A

Const DV_E_DVASPECT = &H8004006B

Const DV_E_DVTARGETDEVICE_SIZE = &H8004006C

Const DV_E_NOIVIEWOBJECT = &H8004006D

Const DRAGDROP_E_FIRST = &H80040100

Const DRAGDROP_E_LAST = &H8004010F

Const DRAGDROP_S_FIRST = &H40100

Const DRAGDROP_S_LAST = &H4010F

Const DRAGDROP_E_NOTREGISTERED = &H80040100

Const DRAGDROP_E_ALREADYREGISTERED = &H80040101

Const DRAGDROP_E_INVALIDHWND = &H80040102

Const CLASSFACTORY_E_FIRST = &H80040110

Const CLASSFACTORY_E_LAST = &H8004011F

Const CLASSFACTORY_S_FIRST = &H40110

Const CLASSFACTORY_S_LAST = &H4011F

Const CLASS_E_NOAGGREGATION = &H80040110

Const CLASS_E_CLASSNOTAVAILABLE = &H80040111

Const MARSHAL_E_FIRST = &H80040120

我20多年的VBA实践经验，全部浓缩在下面的各个教程中：

【分享成果，随喜正能量】我们对待别人也是一样，要求别太刻薄，哪怕是别人失败了，也不要嘲笑，能从他的失败中学到对自己有用的东西，才是最好的。