Documentation

Name	Filename	Output Type
VBAProject (Sample.xlsm)	Sample.xlsm

Project VBAProject (Sample.xlsm)

Filename: Sample.xlsm
Language: VB/VBA
Output Type:

Properties:

Name	Value
FileName	Sample.xlsm
FullPath	C:\Test\Sample.xlsm
LanguageDescription	VB/VBA
OutputType

References:

Name	Filename	Description	Type	Version
VBA	VBE7.DLL	Visual Basic For Applications	ActiveX	4.2
Excel	EXCEL.EXE	Microsoft Excel 16.0 Object Library	ActiveX	1.9
stdole	stdole2.tlb	OLE Automation	ActiveX	2.0
Office	MSO.DLL	Microsoft Office 16.0 Object Library	ActiveX	2.8

Imports:

Import
VBA
Excel
stdole
Office

Files:

Filename	Type
Module1	Module
Sheet1	VBA Document
ThisWorkbook	VBA Document

File Module1

Properties:

Name	Value
FileName	Module1
FullPath
SubType	Module

Modules:

Name	Access
Module1	Public

Module Module1

Name: Module1
Access: Public

Declaration:

Comment:

'標準モジュール

Properties:

Name	Value
DocComment	'標準モジュール
FullName	VBAProject.Module1
IsShadows	False
Namespace	VBAProject
XmlDocComment

Structures:

Name	Access
UUID	Private

Struct UUID

Name: UUID
Access: Private

Declaration:

Private Type UUID

Implemented Interfaces:

None

Comment:

None

Properties:

Name	Value
DocComment
FullName	VBAProject.UUID
IsShadows	False
Namespace	VBAProject
XmlDocComment

Fields:

Name	Access	Declaration
Data1		Data1 As Long
Data2		Data2 As Integer
Data3		Data3 As Integer
Data4(0 To 7)		Data4(0 To 7) As Byte

Constants:

Name	Access	Declaration
hEdge	Private	Private hEdge As Long
hIES	Private	Private hIES As Long

Fields:

Name	Access	Declaration
hEdge	Private	Private hEdge As Long
hIES	Private	Private hIES As Long

Methods:

Kind	Name	Access
Function	EnumChildProcEdge	Private
Function	EnumChildProcIES	Private
Declare function	EnumChildWindows	Private
Declare function	GetClassName	Private
Declare function	GetWindowText	Private
Declare function	ObjectFromLresult	Private
Declare function	RegisterWindowMessage	Private
Subroutine	Sample	Public
Declare function	SendMessageTimeout	Private
Declare subroutine	Sleep	Private

Function EnumChildProcEdge

Kind: Function
Name: EnumChildProcEdge
Access: Private

Declaration:

Private Function EnumChildProcEdge(ByVal hWnd As Long, ByVal lParam As Long) As Long

Comment:

None

Properties:

Name	Value
DocComment
FullName	VBAProject.Module1.EnumChildProcEdge
IsAbstract	False
IsNotOverridable	False
IsOverloaded	False
IsOverridable	False
IsOverrides	False
IsShadows	False
IsStatic	False
MethodKind	Function
TypeAliasedName	Long
TypeFullName	Long
TypeName	Long
XmlDocComment

Parameters:

Name	Type	Modifiers
hWnd	Long	ByVal
lParam	Long	ByVal

Function EnumChildProcIES

Kind: Function
Name: EnumChildProcIES
Access: Private

Declaration:

Private Function EnumChildProcIES(ByVal hWnd As Long, ByVal lParam As Long) As Long

Comment:

None

Properties:

Name	Value
DocComment
FullName	VBAProject.Module1.EnumChildProcIES
IsAbstract	False
IsNotOverridable	False
IsOverloaded	False
IsOverridable	False
IsOverrides	False
IsShadows	False
IsStatic	False
MethodKind	Function
TypeAliasedName	Long
TypeFullName	Long
TypeName	Long
XmlDocComment

Parameters:

Name	Type	Modifiers
hWnd	Long	ByVal
lParam	Long	ByVal

Declare function EnumChildWindows

Kind: Declare function
Name: EnumChildWindows
Access: Private

Declaration:

Private Declare Function EnumChildWindows Lib "user32" (ByVal hWndParent As Long, ByVal lpEnumFunc As Long, lParam As Long) As Long

Comment:

None

Properties:

Name	Value
DocComment
FullName	VBAProject.Module1.EnumChildWindows
IsAbstract	False
IsNotOverridable	False
IsOverloaded	False
IsOverridable	False
IsOverrides	False
IsShadows	False
IsStatic	False
MethodKind	Declare function
XmlDocComment

Parameters:

Name	Type	Modifiers
hWndParent	Long	ByVal
lpEnumFunc	Long	ByVal
lParam	Long

Declare function GetClassName

Kind: Declare function
Name: GetClassName
Access: Private

Declaration:

Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hWnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long

Comment:

None

Properties:

Name	Value
DocComment
FullName	VBAProject.Module1.GetClassName
IsAbstract	False
IsNotOverridable	False
IsOverloaded	False
IsOverridable	False
IsOverrides	False
IsShadows	False
IsStatic	False
MethodKind	Declare function
XmlDocComment

Parameters:

Name	Type	Modifiers
hWnd	Long	ByVal
lpClassName	String	ByVal
nMaxCount	Long	ByVal

Declare function GetWindowText

Kind: Declare function
Name: GetWindowText
Access: Private

Declaration:

Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hWnd As Long, ByVal lpString As String, ByVal cch As Long) As Long

Comment:

None

Properties:

Name	Value
DocComment
FullName	VBAProject.Module1.GetWindowText
IsAbstract	False
IsNotOverridable	False
IsOverloaded	False
IsOverridable	False
IsOverrides	False
IsShadows	False
IsStatic	False
MethodKind	Declare function
XmlDocComment

Parameters:

Name	Type	Modifiers
hWnd	Long	ByVal
lpString	String	ByVal
cch	Long	ByVal

Declare function ObjectFromLresult

Kind: Declare function
Name: ObjectFromLresult
Access: Private

Declaration:

Private Declare Function ObjectFromLresult Lib "oleacc" (ByVal lResult As Long, riid As Any, ByVal wParam As Long, ppvObject As Object) As Long

Comment:

None

Properties:

Name	Value
DocComment
FullName	VBAProject.Module1.ObjectFromLresult
IsAbstract	False
IsNotOverridable	False
IsOverloaded	False
IsOverridable	False
IsOverrides	False
IsShadows	False
IsStatic	False
MethodKind	Declare function
XmlDocComment

Parameters:

Name	Type	Modifiers
lResult	Long	ByVal
riid	Any
wParam	Long	ByVal
ppvObject	Object

Declare function RegisterWindowMessage

Kind: Declare function
Name: RegisterWindowMessage
Access: Private

Declaration:

Private Declare Function RegisterWindowMessage Lib "user32" Alias "RegisterWindowMessageA" (ByVal lpString As String) As Long

Comment:

None

Properties:

Name	Value
DocComment
FullName	VBAProject.Module1.RegisterWindowMessage
IsAbstract	False
IsNotOverridable	False
IsOverloaded	False
IsOverridable	False
IsOverrides	False
IsShadows	False
IsStatic	False
MethodKind	Declare function
XmlDocComment

Parameters:

Name	Type	Modifiers
lpString	String	ByVal

Subroutine Sample

Kind: Subroutine
Name: Sample
Access: Public

Declaration:

Public Sub Sample()

Comment:

'Microsoft EdgeをDOM操作(64ビット版Excelでは不可)
'http://www.mvps.org/emorcillo/en/code/vb6/iedom.shtml 参照

Properties:

Name	Value
DocComment	'Microsoft EdgeをDOM操作(64ビット版Excelでは不可) 'http://www.mvps.org/emorcillo/en/code/vb6/iedom.shtml 参照
FullName	VBAProject.Module1.Sample
IsAbstract	False
IsNotOverridable	False
IsOverloaded	False
IsOverridable	False
IsOverrides	False
IsShadows	False
IsStatic	False
MethodKind	Subroutine
XmlDocComment

Parameters:

None

Declare function SendMessageTimeout

Kind: Declare function
Name: SendMessageTimeout
Access: Private

Declaration:

Private Declare Function SendMessageTimeout Lib "user32" Alias "SendMessageTimeoutA" (ByVal hWnd As Long, ByVal msg As Long, ByVal wParam As Long, ByVal lParam As Long, ByVal fuFlags As Long, ByVal uTimeout As Long, lpdwResult As Long) As Long

Comment:

None

Properties:

Name	Value
DocComment
FullName	VBAProject.Module1.SendMessageTimeout
IsAbstract	False
IsNotOverridable	False
IsOverloaded	False
IsOverridable	False
IsOverrides	False
IsShadows	False
IsStatic	False
MethodKind	Declare function
XmlDocComment

Parameters:

Name	Type	Modifiers
hWnd	Long	ByVal
msg	Long	ByVal
wParam	Long	ByVal
lParam	Long	ByVal
fuFlags	Long	ByVal
uTimeout	Long	ByVal
lpdwResult	Long

Declare subroutine Sleep

Kind: Declare subroutine
Name: Sleep
Access: Private

Declaration:

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Comment:

None

Properties:

Name	Value
DocComment
FullName	VBAProject.Module1.Sleep
IsAbstract	False
IsNotOverridable	False
IsOverloaded	False
IsOverridable	False
IsOverrides	False
IsShadows	False
IsStatic	False
MethodKind	Declare subroutine
XmlDocComment

Parameters:

Name	Type	Modifiers
dwMilliseconds	Long	ByVal

File Sheet1

Properties:

Name	Value
FileName	Sheet1
FullPath
SubType	VBA Document

Classes:

Name	Access
Sheet1	Public

Class Sheet1

Name: Sheet1
Access: Public

Declaration:

Implemented Interfaces:

None

Comment:

None

Properties:

Name	Value
_CodeName	Sheet1
_DisplayRightToLeft	False
AutoFilterMode	False
CodeName	Sheet1
ConsolidationFunction	-4157
Creator	1480803660
DisplayAutomaticPageBreaks	False
DisplayPageBreaks	False
DisplayRightToLeft	False
DocComment
EnableAutoFilter	False
EnableCalculation	True
EnableFormatConditionsCalculation	True
EnableOutlining	False
EnablePivotTable	False
EnableSelection	0
FilterMode	False
FullName	VBAProject.Sheet1
Index	1
IsAbstract	False
IsShadows	False
Namespace	VBAProject
PrintedCommentPages	0
ProtectContents	False
ProtectDrawingObjects	False
ProtectionMode	False
ProtectScenarios	False
ScrollArea
StandardHeight	18.75
StandardWidth	8.38
TransitionExpEval	False
TransitionFormEntry	False
Type	100
Visible	-1
XmlDocComment

File ThisWorkbook

Properties:

Name	Value
FileName	ThisWorkbook
FullPath
SubType	VBA Document

Classes:

Name	Access
ThisWorkbook	Public

Class ThisWorkbook

Name: ThisWorkbook
Access: Public

Declaration:

Implemented Interfaces:

None

Comment:

None

Properties:

Name	Value
_CodeName	ThisWorkbook
_ReadOnlyRecommended	False
AcceptLabelsInFormulas	False
AccuracyVersion	0
Author	Microsoft
AutoUpdateFrequency	0
CalculationVersion	162913
CaseSensitive	False
ChangeHistoryDuration	0
ChartDataPointTrack	True
CheckCompatibility	False
CodeName	ThisWorkbook
Comments
ConflictResolution	1
ConnectionsDisabled	False
CreateBackup	False
Creator	1480803660
Date1904	False
DisplayDrawingObjects	-4104
DisplayInkComments	True
DocComment
DoNotPromptForConvert	False
EnableAutoRecover	True
EncryptionProvider
EnvelopeVisible	False
Excel8CompatibilityMode	False
FileFormat	52
Final	False
ForceFullCalculation	False
FullName	VBAProject.ThisWorkbook
FullName	C:\Test\Sample.xlsm
FullNameURLEncoded	C:\Test\Sample.xlsm
HasMailer	False
HasPassword	False
HasRoutingSlip	False
HasVBProject	True
HighlightChangesOnScreen	False
InactiveListBorderVisible	True
IsAbstract	False
IsAddin	False
IsInplace	False
IsShadows	False
KeepChangeHistory	True
Keywords
ListChangesOnNewSheet	False
MultiUserEditing	False
Namespace	VBAProject
Password	********
PasswordEncryptionAlgorithm
PasswordEncryptionFileProperties	True
PasswordEncryptionKeyLength	0
PasswordEncryptionProvider
Path	C:\Test
PersonalViewListSettings	True
PersonalViewPrintSettings	True
PrecisionAsDisplayed	False
ProtectStructure	False
ProtectWindows	False
ReadOnly	False
ReadOnlyRecommended	False
RemovePersonalInformation	False
RevisionNumber	0
Routed	False
Saved	True
SaveLinkValues	True
ShowConflictHistory	False
ShowPivotChartActiveFields	False
ShowPivotTableFieldList	True
Subject
TemplateRemoveExtData	False
Title
UpdateLinks	1
UpdateRemoteReferences	True
UseWholeCellCriteria	True
UseWildcards	True
VBASigned	False
WritePassword	********
WriteReserved	False
WriteReservedBy	Microsoft
XmlDocComment