【分享成果，随喜正能量】做人不妨糊涂一点，大度一点，不仅是对别人，也是对自己。因为失败而散发出的负能量才是最致命的，一切都要往好了想。
跟我学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 = 4000
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实践经验，全部浓缩在下面的各个教程中：
【分享成果，随喜正能量】我们对待别人也是一样，要求别太刻薄，哪怕是别人失败了，也不要嘲笑，能从他的失败中学到对自己有用的东西，才是最好的。
电脑