Recent Posts

1

Bugs & Feature Requests / Feature request: resizable class arrays

« Last post by Brian Alvarez on April 23, 2021, 04:34:45 AM »

 I dont know If these already exists. I thought they were working in
earlier versions but now it causes runtime errors.

 But if not, adding them would open a lot of new possibilities.

2

Problems & Solutions / Re: Colored Button

« Last post by Arnold on April 21, 2021, 01:30:04 AM »

Hi Nicola,

I can empathize with you as I have similar problems. This is a crazy time. Hopefully it will get better at some point. I also hope that your wife will be better soon.

Roland

3

Problems & Solutions / Re: Colored Button

« Last post by Nicola on April 20, 2021, 01:45:21 PM »

Hi Arnold,
I also wanted to thank you for your help.
Sorry for the delay in doing so, but unfortunately I am busy with many commitments between work and help my wife who is not very well.
Thank you

4

Problems & Solutions / external process PASTE

« Last post by JRS on April 10, 2021, 07:43:54 AM »

I need to send another BASIC interpreter sitting at its command line text commands via a PASTE Windows API call. Has anyone done this before?

THIS might be a starting point.

5

Problems & Solutions / Re: COM OLE

« Last post by JRS on April 04, 2021, 08:48:39 PM »

This is the COM::DI() output for the Excel objects of interest. For me it helps with CallTypes to use.

Microsoft Excel VBA Documentations

Code: Visual Basic

1. *** oExcelApp ***
2.  
3. Interface: _Application
4. ProgID: Excel.Application.16
5. CLSID: {00024500-0000-0000-C000-000000000046}
6. Get Application() As Object
7. Get Creator() As XlCreator
8. Get Parent() As Object
9. Get ActiveCell() As Object
10. Get ActiveChart() As Object
11. Get ActivePrinter() As String
12. Let ActivePrinter(String)
13. Get ActiveSheet() As Object
14. Get ActiveWindow() As Object
15. Get ActiveWorkbook() As Object
16. Sub Calculate()
17. Get Cells() As Object
18. Get Charts() As Object
19. Get CommandBars() As Object
20. Get DDEAppReturnCode() As Long
21. Sub DDEExecute(Channel As Long, String As String)
22. Function DDEInitiate(App As String, Topic As String) As Long
23. Sub DDEPoke(Channel As Long, Item As Variant, Data As Variant)
24. Function DDERequest(Channel As Long, Item As String) As Variant
25. Sub DDETerminate(Channel As Long)
26. Function Evaluate(Name As Variant) As Variant
27. Function ExecuteExcel4Macro(String As String) As Variant
28. Function Intersect(Arg1 As Object, Arg2 As Object, [Arg3 As Variant], [Arg4 As Variant], [Arg5 As Variant], [Arg6 As Variant], [Arg7 As Variant], [Arg8 As Variant], [Arg9 As Variant], [Arg10 As Variant], [Arg11 As Variant], [Arg12 As Variant], [Arg13 As Variant], [Arg14 As Variant], [Arg15 As Variant], [Arg16 As Variant], [Arg17 As Variant], [Arg18 As Variant], [Arg19 As Variant], [Arg20 As Variant], [Arg21 As Variant], [Arg22 As Variant], [Arg23 As Variant], [Arg24 As Variant], [Arg25 As Variant], [Arg26 As Variant], [Arg27 As Variant], [Arg28 As Variant], [Arg29 As Variant], [Arg30 As Variant]) As Object
29. Get Names() As Object
30. Get Range(Cell1 As Variant, [Cell2 As Variant]) As Object
31. Function Run([Macro As Variant], [Arg1 As Variant], [Arg2 As Variant], [Arg3 As Variant], [Arg4 As Variant], [Arg5 As Variant], [Arg6 As Variant], [Arg7 As Variant], [Arg8 As Variant], [Arg9 As Variant], [Arg10 As Variant], [Arg11 As Variant], [Arg12 As Variant], [Arg13 As Variant], [Arg14 As Variant], [Arg15 As Variant], [Arg16 As Variant], [Arg17 As Variant], [Arg18 As Variant], [Arg19 As Variant], [Arg20 As Variant], [Arg21 As Variant], [Arg22 As Variant], [Arg23 As Variant], [Arg24 As Variant], [Arg25 As Variant], [Arg26 As Variant], [Arg27 As Variant], [Arg28 As Variant], [Arg29 As Variant], [Arg30 As Variant]) As Variant
32. Get Selection() As Object
33. Sub SendKeys(Keys As Variant, [Wait As Variant])
34. Get Sheets() As Object
35. Get ThisWorkbook() As Object
36. Function Union(Arg1 As Object, Arg2 As Object, [Arg3 As Variant], [Arg4 As Variant], [Arg5 As Variant], [Arg6 As Variant], [Arg7 As Variant], [Arg8 As Variant], [Arg9 As Variant], [Arg10 As Variant], [Arg11 As Variant], [Arg12 As Variant], [Arg13 As Variant], [Arg14 As Variant], [Arg15 As Variant], [Arg16 As Variant], [Arg17 As Variant], [Arg18 As Variant], [Arg19 As Variant], [Arg20 As Variant], [Arg21 As Variant], [Arg22 As Variant], [Arg23 As Variant], [Arg24 As Variant], [Arg25 As Variant], [Arg26 As Variant], [Arg27 As Variant], [Arg28 As Variant], [Arg29 As Variant], [Arg30 As Variant]) As Object
37. Get Windows() As Object
38. Get Workbooks() As Object
39. Get WorksheetFunction() As Object
40. Get Worksheets() As Object
41. Get Excel4IntlMacroSheets() As Object
42. Get Excel4MacroSheets() As Object
43. Sub ActivateMicrosoftApp(Index As XlMSApplication)
44. Sub AddCustomList(ListArray As Variant, [ByRow As Variant])
45. Get AlertBeforeOverwriting() As Boolean
46. Let AlertBeforeOverwriting(Boolean)
47. Get AltStartupPath() As String
48. Let AltStartupPath(String)
49. Get AskToUpdateLinks() As Boolean
50. Let AskToUpdateLinks(Boolean)
51. Get EnableAnimations() As Boolean
52. Let EnableAnimations(Boolean)
53. Get AutoCorrect() As Object
54. Get Build() As Long
55. Get CalculateBeforeSave() As Boolean
56. Let CalculateBeforeSave(Boolean)
57. Get Calculation() As XlCalculation
58. Let Calculation(XlCalculation)
59. Get Caller([Index As Variant]) As Variant
60. Get CanPlaySounds() As Boolean
61. Get CanRecordSounds() As Boolean
62. Get Caption() As String
63. Let Caption(String)
64. Get CellDragAndDrop() As Boolean
65. Let CellDragAndDrop(Boolean)
66. Function CentimetersToPoints(Centimeters As Currency) As Currency
67. Function CheckSpelling(Word As String, [CustomDictionary As Variant], [IgnoreUppercase As Variant]) As Boolean
68. Get ClipboardFormats([Index As Variant]) As Variant
69. Get DisplayClipboardWindow() As Boolean
70. Let DisplayClipboardWindow(Boolean)
71. Get CommandUnderlines() As XlCommandUnderlines
72. Let CommandUnderlines(XlCommandUnderlines)
73. Get ConstrainNumeric() As Boolean
74. Let ConstrainNumeric(Boolean)
75. Function ConvertFormula(Formula As Variant, FromReferenceStyle As XlReferenceStyle, [ToReferenceStyle As Variant], [ToAbsolute As Variant], [RelativeTo As Variant]) As Variant
76. Get CopyObjectsWithCells() As Boolean
77. Let CopyObjectsWithCells(Boolean)
78. Get Cursor() As XlMousePointer
79. Let Cursor(XlMousePointer)
80. Get CustomListCount() As Long
81. Get CutCopyMode() As XlCutCopyMode
82. Let CutCopyMode(XlCutCopyMode)
83. Get DataEntryMode() As Long
84. Let DataEntryMode(Long)
85. Get DefaultFilePath() As String
86. Let DefaultFilePath(String)
87. Sub DeleteCustomList(ListNum As Long)
88. Get Dialogs() As Object
89. Get DisplayAlerts() As Boolean
90. Let DisplayAlerts(Boolean)
91. Get DisplayFormulaBar() As Boolean
92. Let DisplayFormulaBar(Boolean)
93. Get DisplayFullScreen() As Boolean
94. Let DisplayFullScreen(Boolean)
95. Get DisplayNoteIndicator() As Boolean
96. Let DisplayNoteIndicator(Boolean)
97. Get DisplayCommentIndicator() As XlCommentDisplayMode
98. Let DisplayCommentIndicator(XlCommentDisplayMode)
99. Get DisplayExcel4Menus() As Boolean
100. Let DisplayExcel4Menus(Boolean)
101. Get DisplayRecentFiles() As Boolean
102. Let DisplayRecentFiles(Boolean)
103. Get DisplayScrollBars() As Boolean
104. Let DisplayScrollBars(Boolean)
105. Get DisplayStatusBar() As Boolean
106. Let DisplayStatusBar(Boolean)
107. Sub DoubleClick()
108. Get EditDirectlyInCell() As Boolean
109. Let EditDirectlyInCell(Boolean)
110. Get EnableAutoComplete() As Boolean
111. Let EnableAutoComplete(Boolean)
112. Get EnableCancelKey() As XlEnableCancelKey
113. Let EnableCancelKey(XlEnableCancelKey)
114. Get EnableSound() As Boolean
115. Let EnableSound(Boolean)
116. Get FileConverters([Index1 As Variant], [Index2 As Variant]) As Variant
117. Get FixedDecimal() As Boolean
118. Let FixedDecimal(Boolean)
119. Get FixedDecimalPlaces() As Long
120. Let FixedDecimalPlaces(Long)
121. Function GetCustomListContents(ListNum As Long) As Variant
122. Function GetCustomListNum(ListArray As Variant) As Long
123. Function GetOpenFilename([FileFilter As Variant], [FilterIndex As Variant], [Title As Variant], [ButtonText As Variant], [MultiSelect As Variant]) As Variant
124. Function GetSaveAsFilename([InitialFilename As Variant], [FileFilter As Variant], [FilterIndex As Variant], [Title As Variant], [ButtonText As Variant]) As Variant
125. Sub Goto([Reference As Variant], [Scroll As Variant])
126. Get Height() As Currency
127. Let Height(Currency)
128. Sub Help([HelpFile As Variant], [HelpContextID As Variant])
129. Get IgnoreRemoteRequests() As Boolean
130. Let IgnoreRemoteRequests(Boolean)
131. Function InchesToPoints(Inches As Currency) As Currency
132. Function InputBox(Prompt As String, [Title As Variant], [Default As Variant], [Left As Variant], [Top As Variant], [HelpFile As Variant], [HelpContextID As Variant], [Type As Variant]) As Variant
133. Get Interactive() As Boolean
134. Let Interactive(Boolean)
135. Get International([Index As Variant]) As Variant
136. Get Iteration() As Boolean
137. Let Iteration(Boolean)
138. Get Left() As Currency
139. Let Left(Currency)
140. Get LibraryPath() As String
141. Sub MailLogoff()
142. Sub MailLogon([Name As Variant], [Password As Variant], [DownloadNewMail As Variant])
143. Get MailSession() As Variant
144. Get MailSystem() As XlMailSystem
145. Get MathCoprocessorAvailable() As Boolean
146. Get MaxChange() As Currency
147. Let MaxChange(Currency)
148. Get MaxIterations() As Long
149. Let MaxIterations(Long)
150. Get MouseAvailable() As Boolean
151. Get MoveAfterReturn() As Boolean
152. Let MoveAfterReturn(Boolean)
153. Get MoveAfterReturnDirection() As XlDirection
154. Let MoveAfterReturnDirection(XlDirection)
155. Get RecentFiles() As Object
156. Get Name() As String
157. Function NextLetter() As Object
158. Get NetworkTemplatesPath() As String
159. Get ODBCErrors() As Object
160. Get ODBCTimeout() As Long
161. Let ODBCTimeout(Long)
162. Sub OnKey(Key As String, [Procedure As Variant])
163. Sub OnRepeat(Text As String, Procedure As String)
164. Sub OnTime(EarliestTime As Variant, Procedure As String, [LatestTime As Variant], [Schedule As Variant])
165. Sub OnUndo(Text As String, Procedure As String)
166. Get OnWindow() As String
167. Let OnWindow(String)
168. Get OperatingSystem() As String
169. Get OrganizationName() As String
170. Get Path() As String
171. Get PathSeparator() As String
172. Get PreviousSelections([Index As Variant]) As Variant
173. Get PivotTableSelection() As Boolean
174. Let PivotTableSelection(Boolean)
175. Get PromptForSummaryInfo() As Boolean
176. Let PromptForSummaryInfo(Boolean)
177. Sub Quit()
178. Sub RecordMacro([BasicCode As Variant], [XlmCode As Variant])
179. Get RecordRelative() As Boolean
180. Get ReferenceStyle() As XlReferenceStyle
181. Let ReferenceStyle(XlReferenceStyle)
182. Get RegisteredFunctions([Index1 As Variant], [Index2 As Variant]) As Variant
183. Function RegisterXLL(Filename As String) As Boolean
184. Sub Repeat()
185. Get RollZoom() As Boolean
186. Let RollZoom(Boolean)
187. Get ScreenUpdating() As Boolean
188. Let ScreenUpdating(Boolean)
189. Get SheetsInNewWorkbook() As Long
190. Let SheetsInNewWorkbook(Long)
191. Get ShowChartTipNames() As Boolean
192. Let ShowChartTipNames(Boolean)
193. Get ShowChartTipValues() As Boolean
194. Let ShowChartTipValues(Boolean)
195. Get StandardFont() As String
196. Let StandardFont(String)
197. Get StandardFontSize() As Currency
198. Let StandardFontSize(Currency)
199. Get StartupPath() As String
200. Get StatusBar() As Variant
201. Let StatusBar(Variant)
202. Get TemplatesPath() As String
203. Get ShowToolTips() As Boolean
204. Let ShowToolTips(Boolean)
205. Get Top() As Currency
206. Let Top(Currency)
207. Get DefaultSaveFormat() As XlFileFormat
208. Let DefaultSaveFormat(XlFileFormat)
209. Get TransitionMenuKey() As String
210. Let TransitionMenuKey(String)
211. Get TransitionMenuKeyAction() As Long
212. Let TransitionMenuKeyAction(Long)
213. Get TransitionNavigKeys() As Boolean
214. Let TransitionNavigKeys(Boolean)
215. Sub Undo()
216. Get UsableHeight() As Currency
217. Get UsableWidth() As Currency
218. Get UserControl() As Boolean
219. Let UserControl(Boolean)
220. Get UserName() As String
221. Let UserName(String)
222. Get Value() As String
223. Get VBE() As Object
224. Get Version() As String
225. Get Visible() As Boolean
226. Let Visible(Boolean)
227. Sub Volatile([Volatile As Variant])
228. Get Width() As Currency
229. Let Width(Currency)
230. Get WindowsForPens() As Boolean
231. Get WindowState() As XlWindowState
232. Let WindowState(XlWindowState)
233. Get DefaultSheetDirection() As Long
234. Let DefaultSheetDirection(Long)
235. Get CursorMovement() As Long
236. Let CursorMovement(Long)
237. Get ControlCharacters() As Boolean
238. Let ControlCharacters(Boolean)
239. Get EnableEvents() As Boolean
240. Let EnableEvents(Boolean)
241. Function Wait(Time As Variant) As Boolean
242. Get ExtendList() As Boolean
243. Let ExtendList(Boolean)
244. Get OLEDBErrors() As Object
245. Function GetPhonetic([Text As Variant]) As String
246. Get COMAddIns() As Object
247. Get DefaultWebOptions() As Object
248. Get ProductCode() As String
249. Get UserLibraryPath() As String
250. Get AutoPercentEntry() As Boolean
251. Let AutoPercentEntry(Boolean)
252. Get LanguageSettings() As Object
253. Sub CalculateFull()
254. Function FindFile() As Boolean
255. Get CalculationVersion() As Long
256. Get FeatureInstall() As MsoFeatureInstall
257. Let FeatureInstall(MsoFeatureInstall)
258. Get Ready() As Boolean
259. Get FindFormat() As Object
260. Set FindFormat(Object)
261. Get ReplaceFormat() As Object
262. Set ReplaceFormat(Object)
263. Get UsedObjects() As Object
264. Get CalculationState() As XlCalculationState
265. Get CalculationInterruptKey() As XlCalculationInterruptKey
266. Let CalculationInterruptKey(XlCalculationInterruptKey)
267. Get Watches() As Object
268. Get DisplayFunctionToolTips() As Boolean
269. Let DisplayFunctionToolTips(Boolean)
270. Get AutomationSecurity() As MsoAutomationSecurity
271. Let AutomationSecurity(MsoAutomationSecurity)
272. Get FileDialog(fileDialogType As MsoFileDialogType) As Object
273. Sub CalculateFullRebuild()
274. Get DisplayPasteOptions() As Boolean
275. Let DisplayPasteOptions(Boolean)
276. Get DisplayInsertOptions() As Boolean
277. Let DisplayInsertOptions(Boolean)
278. Get GenerateGetPivotData() As Boolean
279. Let GenerateGetPivotData(Boolean)
280. Get AutoRecover() As Object
281. Get Hwnd() As Long
282. Get Hinstance() As Long
283. Sub CheckAbort([KeepAbort As Variant])
284. Get ErrorCheckingOptions() As Object
285. Get AutoFormatAsYouTypeReplaceHyperlinks() As Boolean
286. Let AutoFormatAsYouTypeReplaceHyperlinks(Boolean)
287. Get NewWorkbook() As Object
288. Get SpellingOptions() As Object
289. Get Speech() As Object
290. Get MapPaperSize() As Boolean
291. Let MapPaperSize(Boolean)
292. Get ShowStartupDialog() As Boolean
293. Let ShowStartupDialog(Boolean)
294. Get DecimalSeparator() As String
295. Let DecimalSeparator(String)
296. Get ThousandsSeparator() As String
297. Let ThousandsSeparator(String)
298. Get UseSystemSeparators() As Boolean
299. Let UseSystemSeparators(Boolean)
300. Get ThisCell() As Object
301. Get RTD() As Object
302. Get DisplayDocumentActionTaskPane() As Boolean
303. Let DisplayDocumentActionTaskPane(Boolean)
304. Sub DisplayXMLSourcePane([XmlMap As Variant])
305. Get ArbitraryXMLSupportAvailable() As Boolean
306. Get MeasurementUnit() As Long
307. Let MeasurementUnit(Long)
308. Get ShowSelectionFloaties() As Boolean
309. Let ShowSelectionFloaties(Boolean)
310. Get ShowMenuFloaties() As Boolean
311. Let ShowMenuFloaties(Boolean)
312. Get ShowDevTools() As Boolean
313. Let ShowDevTools(Boolean)
314. Get EnableLivePreview() As Boolean
315. Let EnableLivePreview(Boolean)
316. Get DisplayDocumentInformationPanel() As Boolean
317. Let DisplayDocumentInformationPanel(Boolean)
318. Get AlwaysUseClearType() As Boolean
319. Let AlwaysUseClearType(Boolean)
320. Get WarnOnFunctionNameConflict() As Boolean
321. Let WarnOnFunctionNameConflict(Boolean)
322. Get FormulaBarHeight() As Long
323. Let FormulaBarHeight(Long)
324. Get DisplayFormulaAutoComplete() As Boolean
325. Let DisplayFormulaAutoComplete(Boolean)
326. Get GenerateTableRefs() As XlGenerateTableRefs
327. Let GenerateTableRefs(XlGenerateTableRefs)
328. Get Assistance() As Object
329. Sub CalculateUntilAsyncQueriesDone()
330. Get EnableLargeOperationAlert() As Boolean
331. Let EnableLargeOperationAlert(Boolean)
332. Get LargeOperationCellThousandCount() As Long
333. Let LargeOperationCellThousandCount(Long)
334. Get DeferAsyncQueries() As Boolean
335. Let DeferAsyncQueries(Boolean)
336. Get MultiThreadedCalculation() As Object
337. Function SharePointVersion(bstrUrl As String) As Long
338. Get ActiveEncryptionSession() As Long
339. Get HighQualityModeForGraphics() As Boolean
340. Let HighQualityModeForGraphics(Boolean)
341. Get FileExportConverters() As Object
342. Get SmartArtLayouts() As Object
343. Get SmartArtQuickStyles() As Object
344. Get SmartArtColors() As Object
345. Get AddIns2() As Object
346. Get PrintCommunication() As Boolean
347. Let PrintCommunication(Boolean)
348. Sub MacroOptions([Macro As Variant], [Description As Variant], [HasMenu As Variant], [MenuText As Variant], [HasShortcutKey As Variant], [ShortcutKey As Variant], [Category As Variant], [StatusBar As Variant], [HelpContextID As Variant], [HelpFile As Variant], [ArgumentDescriptions As Variant])
349. Get UseClusterConnector() As Boolean
350. Let UseClusterConnector(Boolean)
351. Get ClusterConnector() As String
352. Let ClusterConnector(String)
353. Get ProtectedViewWindows() As Object
354. Get ActiveProtectedViewWindow() As Object
355. Get IsSandboxed() As Boolean
356. Get HinstancePtr() As Variant
357. Get FileValidation() As MsoFileValidationMode
358. Let FileValidation(MsoFileValidationMode)
359. Get FileValidationPivot() As XlFileValidationPivotMode
360. Let FileValidationPivot(XlFileValidationPivotMode)
361. Get ShowQuickAnalysis() As Boolean
362. Let ShowQuickAnalysis(Boolean)
363. Get QuickAnalysis() As Object
364. Get FlashFill() As Boolean
365. Let FlashFill(Boolean)
366. Get EnableMacroAnimations() As Boolean
367. Let EnableMacroAnimations(Boolean)
368. Get ChartDataPointTrack() As Boolean
369. Let ChartDataPointTrack(Boolean)
370. Get FlashFillMode() As Boolean
371. Let FlashFillMode(Boolean)
372. Get MergeInstances() As Boolean
373. Let MergeInstances(Boolean)
374. Get EnableCheckFileExtensions() As Boolean
375. Let EnableCheckFileExtensions(Boolean)
376. Get DefaultPivotTableLayoutOptions() As Object
377. Get ShowConvertToDataType() As Boolean
378. Let ShowConvertToDataType(Boolean)
379. Get SensitivityLabelPolicy() As Object
380.  
381.  
382. *** oWorkBook ***
383.  
384. Interface: Workbooks
385. Version:
386. Get Application() As Object
387. Get Creator() As XlCreator
388. Get Parent() As Object
389. Function Add([Template As Variant]) As Object
390. Sub Close()
391. Get Count() As Long
392. Get Item(Index As Variant) As Object
393. Function Open(Filename As String, [UpdateLinks As Variant], [ReadOnly As Variant], [Format As Variant], [Password As Variant], [WriteResPassword As Variant], [IgnoreReadOnlyRecommended As Variant], [Origin As Variant], [Delimiter As Variant], [Editable As Variant], [Notify As Variant], [Converter As Variant], [AddToMru As Variant], [Local As Variant], [CorruptLoad As Variant]) As Object
394. Sub OpenText(Filename As String, [Origin As Variant], [StartRow As Variant], [DataType As Variant], [TextQualifier As XlTextQualifier = 1], [ConsecutiveDelimiter As Variant], [Tab As Variant], [Semicolon As Variant], [Comma As Variant], [Space As Variant], [Other As Variant], [OtherChar As Variant], [FieldInfo As Variant], [TextVisualLayout As Variant], [DecimalSeparator As Variant], [ThousandsSeparator As Variant], [TrailingMinusNumbers As Variant], [Local As Variant])
395. Function OpenDatabase(Filename As String, [CommandText As Variant], [CommandType As Variant], [BackgroundQuery As Variant], [ImportDataAs As Variant]) As Object
396. Sub CheckOut(Filename As String)
397. Function CanCheckOut(Filename As String) As Boolean
398. Function OpenXML(Filename As String, [Stylesheets As Variant], [LoadOption As Variant]) As Object
399.  
400.  
401. *** oExcelWorkbook ***
402.  
403. Interface: _Workbook
404. CLSID: {00020819-0000-0000-C000-000000000046}
405. Get Application() As Object
406. Get Creator() As XlCreator
407. Get Parent() As Object
408. Sub Activate()
409. Get ActiveChart() As Object
410. Get ActiveSheet() As Object
411. Get AutoUpdateFrequency() As Long
412. Let AutoUpdateFrequency(Long)
413. Get AutoUpdateSaveChanges() As Boolean
414. Let AutoUpdateSaveChanges(Boolean)
415. Get ChangeHistoryDuration() As Long
416. Let ChangeHistoryDuration(Long)
417. Get BuiltinDocumentProperties() As Object
418. Sub ChangeFileAccess(Mode As XlFileAccess, [WritePassword As Variant], [Notify As Variant])
419. Sub ChangeLink(Name As String, NewName As String, [Type As XlLinkType = 1])
420. Get Charts() As Object
421. Sub Close([SaveChanges As Variant], [Filename As Variant], [RouteWorkbook As Variant])
422. Get CodeName() As String
423. Get Colors([Index As Variant]) As Variant
424. Let Colors([Index As Variant], Variant)
425. Get CommandBars() As Object
426. Get ConflictResolution() As XlSaveConflictResolution
427. Let ConflictResolution(XlSaveConflictResolution)
428. Get Container() As Object
429. Get CreateBackup() As Boolean
430. Get CustomDocumentProperties() As Object
431. Get Date1904() As Boolean
432. Let Date1904(Boolean)
433. Sub DeleteNumberFormat(NumberFormat As String)
434. Get DisplayDrawingObjects() As XlDisplayDrawingObjects
435. Let DisplayDrawingObjects(XlDisplayDrawingObjects)
436. Function ExclusiveAccess() As Boolean
437. Get FileFormat() As XlFileFormat
438. Sub ForwardMailer()
439. Get FullName() As String
440. Get HasPassword() As Boolean
441. Get IsAddin() As Boolean
442. Let IsAddin(Boolean)
443. Function LinkInfo(Name As String, LinkInfo As XlLinkInfo, [Type As Variant], [EditionRef As Variant]) As Variant
444. Function LinkSources([Type As Variant]) As Variant
445. Get Mailer() As Object
446. Sub MergeWorkbook(Filename As Variant)
447. Get MultiUserEditing() As Boolean
448. Get Name() As String
449. Get Names() As Object
450. Function NewWindow() As Object
451. Sub OpenLinks(Name As String, [ReadOnly As Variant], [Type As Variant])
452. Get Path() As String
453. Get PersonalViewListSettings() As Boolean
454. Let PersonalViewListSettings(Boolean)
455. Get PersonalViewPrintSettings() As Boolean
456. Let PersonalViewPrintSettings(Boolean)
457. Function PivotCaches() As Object
458. Sub Post([DestName As Variant])
459. Get PrecisionAsDisplayed() As Boolean
460. Let PrecisionAsDisplayed(Boolean)
461. Sub PrintPreview([EnableChanges As Variant])
462. Get ProtectStructure() As Boolean
463. Get ProtectWindows() As Boolean
464. Get ReadOnly() As Boolean
465. Sub RefreshAll()
466. Sub Reply()
467. Sub ReplyAll()
468. Sub RemoveUser(Index As Long)
469. Get RevisionNumber() As Long
470. Sub RunAutoMacros(Which As XlRunAutoMacro)
471. Sub Save()
472. Sub SaveCopyAs([Filename As Variant])
473. Get Saved() As Boolean
474. Let Saved(Boolean)
475. Get SaveLinkValues() As Boolean
476. Let SaveLinkValues(Boolean)
477. Sub SendMail(Recipients As Variant, [Subject As Variant], [ReturnReceipt As Variant])
478. Sub SendMailer([FileFormat As Variant], [Priority As XlPriority = -4143])
479. Sub SetLinkOnData(Name As String, [Procedure As Variant])
480. Get Sheets() As Object
481. Get ShowConflictHistory() As Boolean
482. Let ShowConflictHistory(Boolean)
483. Get Styles() As Object
484. Sub Unprotect([Password As Variant])
485. Sub UnprotectSharing([SharingPassword As Variant])
486. Sub UpdateFromFile()
487. Sub UpdateLink([Name As Variant], [Type As Variant])
488. Get UpdateRemoteReferences() As Boolean
489. Let UpdateRemoteReferences(Boolean)
490. Get UserStatus() As Variant
491. Get CustomViews() As Object
492. Get Windows() As Object
493. Get Worksheets() As Object
494. Get WriteReserved() As Boolean
495. Get WriteReservedBy() As String
496. Get Excel4IntlMacroSheets() As Object
497. Get Excel4MacroSheets() As Object
498. Get TemplateRemoveExtData() As Boolean
499. Let TemplateRemoveExtData(Boolean)
500. Sub HighlightChangesOptions([When As Variant], [Who As Variant], [Where As Variant])
501. Get HighlightChangesOnScreen() As Boolean
502. Let HighlightChangesOnScreen(Boolean)
503. Get KeepChangeHistory() As Boolean
504. Let KeepChangeHistory(Boolean)
505. Get ListChangesOnNewSheet() As Boolean
506. Let ListChangesOnNewSheet(Boolean)
507. Sub PurgeChangeHistoryNow(Days As Long, [SharingPassword As Variant])
508. Sub AcceptAllChanges([When As Variant], [Who As Variant], [Where As Variant])
509. Sub RejectAllChanges([When As Variant], [Who As Variant], [Where As Variant])
510. Sub ResetColors()
511. Get VBProject() As Object
512. Sub FollowHyperlink(Address As String, [SubAddress As Variant], [NewWindow As Variant], [AddHistory As Variant], [ExtraInfo As Variant], [Method As Variant], [HeaderInfo As Variant])
513. Sub AddToFavorites()
514. Get IsInplace() As Boolean
515. Sub WebPagePreview()
516. Get PublishObjects() As Object
517. Get WebOptions() As Object
518. Sub ReloadAs(Encoding As MsoEncoding)
519. Get EnvelopeVisible() As Boolean
520. Let EnvelopeVisible(Boolean)
521. Get CalculationVersion() As Long
522. Get VBASigned() As Boolean
523. Get ShowPivotTableFieldList() As Boolean
524. Let ShowPivotTableFieldList(Boolean)
525. Get UpdateLinks() As XlUpdateLinks
526. Let UpdateLinks(XlUpdateLinks)
527. Sub BreakLink(Name As String, Type As XlLinkType)
528. Get EnableAutoRecover() As Boolean
529. Let EnableAutoRecover(Boolean)
530. Get RemovePersonalInformation() As Boolean
531. Let RemovePersonalInformation(Boolean)
532. Get FullNameURLEncoded() As String
533. Sub CheckIn([SaveChanges As Variant], [Comments As Variant], [MakePublic As Variant])
534. Function CanCheckIn() As Boolean
535. Sub SendForReview([Recipients As Variant], [Subject As Variant], [ShowMessage As Variant], [IncludeAttachment As Variant])
536. Sub ReplyWithChanges([ShowMessage As Variant])
537. Sub EndReview()
538. Get Password() As String
539. Let Password(String)
540. Get WritePassword() As String
541. Let WritePassword(String)
542. Get PasswordEncryptionProvider() As String
543. Get PasswordEncryptionAlgorithm() As String
544. Get PasswordEncryptionKeyLength() As Long
545. Sub SetPasswordEncryptionOptions([PasswordEncryptionProvider As Variant], [PasswordEncryptionAlgorithm As Variant], [PasswordEncryptionKeyLength As Variant], [PasswordEncryptionFileProperties As Variant])
546. Get PasswordEncryptionFileProperties() As Boolean
547. Get ReadOnlyRecommended() As Boolean
548. Let ReadOnlyRecommended(Boolean)
549. Sub Protect([Password As Variant], [Structure As Variant], [Windows As Variant])
550. Get Permission() As Object
551. Get SharedWorkspace() As Object
552. Get Sync() As Object
553. Sub SendFaxOverInternet([Recipients As Variant], [Subject As Variant], [ShowMessage As Variant])
554. Get XmlNamespaces() As Object
555. Get XmlMaps() As Object
556. Function XmlImport(Url As String, ImportMap As Object, [Overwrite As Variant], [Destination As Variant]) As XlXmlImportResult
557. Get SmartDocument() As Object
558. Get DocumentLibraryVersions() As Object
559. Get InactiveListBorderVisible() As Boolean
560. Let InactiveListBorderVisible(Boolean)
561. Get DisplayInkComments() As Boolean
562. Let DisplayInkComments(Boolean)
563. Function XmlImportXml(Data As String, ImportMap As Object, [Overwrite As Variant], [Destination As Variant]) As XlXmlImportResult
564. Sub SaveAsXMLData(Filename As String, Map As Object)
565. Sub ToggleFormsDesign()
566. Get ContentTypeProperties() As Object
567. Get Connections() As Object
568. Sub RemoveDocumentInformation(RemoveDocInfoType As XlRemoveDocInfoType)
569. Get Signatures() As Object
570. Sub CheckInWithVersion([SaveChanges As Variant], [Comments As Variant], [MakePublic As Variant], [VersionType As Variant])
571. Get ServerPolicy() As Object
572. Sub LockServerFile()
573. Get DocumentInspectors() As Object
574. Function GetWorkflowTasks() As Object
575. Function GetWorkflowTemplates() As Object
576. Sub PrintOut([From As Variant], [To As Variant], [Copies As Variant], [Preview As Variant], [ActivePrinter As Variant], [PrintToFile As Variant], [Collate As Variant], [PrToFileName As Variant], [IgnorePrintAreas As Variant])
577. Get ServerViewableItems() As Object
578. Get TableStyles() As Object
579. Get CheckCompatibility() As Boolean
580. Let CheckCompatibility(Boolean)
581. Get HasVBProject() As Boolean
582. Get CustomXMLParts() As Object
583. Get Final() As Boolean
584. Let Final(Boolean)
585. Get Research() As Object
586. Get Theme() As Object
587. Sub ApplyTheme(Filename As String)
588. Get Excel8CompatibilityMode() As Boolean
589. Get ConnectionsDisabled() As Boolean
590. Sub EnableConnections()
591. Get ShowPivotChartActiveFields() As Boolean
592. Let ShowPivotChartActiveFields(Boolean)
593. Get IconSets() As Object
594. Get EncryptionProvider() As String
595. Let EncryptionProvider(String)
596. Get DoNotPromptForConvert() As Boolean
597. Let DoNotPromptForConvert(Boolean)
598. Get ForceFullCalculation() As Boolean
599. Let ForceFullCalculation(Boolean)
600. Sub ProtectSharing([Filename As Variant], [Password As Variant], [WriteResPassword As Variant], [ReadOnlyRecommended As Variant], [CreateBackup As Variant], [SharingPassword As Variant], [FileFormat As Variant])
601. Get SlicerCaches() As Object
602. Get ActiveSlicer() As Object
603. Get AccuracyVersion() As Long
604. Let AccuracyVersion(Long)
605. Get CaseSensitive() As Boolean
606. Get UseWholeCellCriteria() As Boolean
607. Get UseWildcards() As Boolean
608. Get PivotTables() As Object
609. Get Model() As Object
610. Get ChartDataPointTrack() As Boolean
611. Let ChartDataPointTrack(Boolean)
612. Get Queries() As Object
613. Sub CreateForecastSheet(Timeline As Object, Values As Object, [ForecastStart As Variant], [ForecastEnd As Variant], [ConfInt As Variant], [Seasonality As Variant], [DataCompletion As Variant], [Aggregation As Variant], [ChartType As Variant], [ShowStatsTable As Variant])
614. Get WorkIdentity() As String
615. Let WorkIdentity(String)
616. Sub SaveAs([Filename As Variant], [FileFormat As Variant], [Password As Variant], [WriteResPassword As Variant], [ReadOnlyRecommended As Variant], [CreateBackup As Variant], [AccessMode As XlSaveAsAccessMode = 1], [ConflictResolution As Variant], [AddToMru As Variant], [TextCodepage As Variant], [TextVisualLayout As Variant], [Local As Variant], [WorkIdentity As Variant])
617. Sub ExportAsFixedFormat(Type As XlFixedFormatType, [Filename As Variant], [Quality As Variant], [IncludeDocProperties As Variant], [IgnorePrintAreas As Variant], [From As Variant], [To As Variant], [OpenAfterPublish As Variant], [FixedFormatExtClassPtr As Variant], [WorkIdentity As Variant])
618. Function PublishToPBI([PublishType As Variant], [nameConflict As Variant], [bstrGroupName As Variant]) As String
619. Get AutoSaveOn() As Boolean
620. Let AutoSaveOn(Boolean)
621. Sub ConvertComments()
622. Get SensitivityLabel() As Object
623.  
624.  
625. *** oCell ***
626.  
627. Interface: Range
628. Version:
629. Get Application() As Object
630. Get Creator() As XlCreator
631. Get Parent() As Object
632. Function Activate() As Variant
633. Get AddIndent() As Variant
634. Let AddIndent(Variant)
635. Get Address([RowAbsolute As Variant], [ColumnAbsolute As Variant], [ReferenceStyle As XlReferenceStyle = 1], [External As Variant], [RelativeTo As Variant]) As String
636. Get AddressLocal([RowAbsolute As Variant], [ColumnAbsolute As Variant], [ReferenceStyle As XlReferenceStyle = 1], [External As Variant], [RelativeTo As Variant]) As String
637. Function AdvancedFilter(Action As XlFilterAction, [CriteriaRange As Variant], [CopyToRange As Variant], [Unique As Variant]) As Variant
638. Function ApplyNames([Names As Variant], [IgnoreRelativeAbsolute As Variant], [UseRowColumnNames As Variant], [OmitColumn As Variant], [OmitRow As Variant], [Order As XlApplyNamesOrder = 1], [AppendLast As Variant]) As Variant
639. Function ApplyOutlineStyles() As Variant
640. Get Areas() As Object
641. Function AutoComplete(String As String) As String
642. Function AutoFill(Destination As Object, [Type As XlAutoFillType = 0]) As Variant
643. Function AutoFit() As Variant
644. Function AutoOutline() As Variant
645. Get Borders() As Object
646. Function Calculate() As Variant
647. Get Cells() As Object
648. Get Characters([Start As Variant], [Length As Variant]) As Object
649. Function CheckSpelling([CustomDictionary As Variant], [IgnoreUppercase As Variant], [AlwaysSuggest As Variant], [SpellLang As Variant]) As Variant
650. Function Clear() As Variant
651. Function ClearContents() As Variant
652. Function ClearFormats() As Variant
653. Function ClearNotes() As Variant
654. Function ClearOutline() As Variant
655. Get Column() As Long
656. Function ColumnDifferences(Comparison As Variant) As Object
657. Get ColumnWidth() As Variant
658. Let ColumnWidth(Variant)
659. Function Consolidate([Sources As Variant], [Function As Variant], [TopRow As Variant], [LeftColumn As Variant], [CreateLinks As Variant]) As Variant
660. Function Copy([Destination As Variant]) As Variant
661. Function CopyFromRecordset(Data As VT_UNKNOWN, [MaxRows As Variant], [MaxColumns As Variant]) As Long
662. Function CopyPicture([Appearance As XlPictureAppearance = 1], [Format As XlCopyPictureFormat = -4147]) As Variant
663. Get Count() As Long
664. Function CreateNames([Top As Variant], [Left As Variant], [Bottom As Variant], [Right As Variant]) As Variant
665. Get CurrentArray() As Object
666. Get CurrentRegion() As Object
667. Function Cut([Destination As Variant]) As Variant
668. Function DataSeries([Rowcol As Variant], [Type As XlDataSeriesType = -4132], [Date As XlDataSeriesDate = 1], [Step As Variant], [Stop As Variant], [Trend As Variant]) As Variant
669. Function Delete([Shift As Variant]) As Variant
670. Get Dependents() As Object
671. Function DialogBox() As Variant
672. Get DirectDependents() As Object
673. Get DirectPrecedents() As Object
674. Function EditionOptions(Type As XlEditionType, Option As XlEditionOptionsOption, [Name As Variant], [Reference As Variant], [Appearance As XlPictureAppearance = 1], [ChartSize As XlPictureAppearance = 1], [Format As Variant]) As Variant
675. Get End(Direction As XlDirection) As Object
676. Function FillDown() As Variant
677. Function FillLeft() As Variant
678. Function FillRight() As Variant
679. Function FillUp() As Variant
680. Function Find(What As Variant, [After As Variant], [LookIn As Variant], [LookAt As Variant], [SearchOrder As Variant], [SearchDirection As XlSearchDirection = 1], [MatchCase As Variant], [MatchByte As Variant], [SearchFormat As Variant]) As Object
681. Function FindNext([After As Variant]) As Object
682. Function FindPrevious([After As Variant]) As Object
683. Get Font() As Object
684. Get Formula() As Variant
685. Let Formula(Variant)
686. Get FormulaArray() As Variant
687. Let FormulaArray(Variant)
688. Get FormulaHidden() As Variant
689. Let FormulaHidden(Variant)
690. Get FormulaLocal() As Variant
691. Let FormulaLocal(Variant)
692. Get FormulaR1C1() As Variant
693. Let FormulaR1C1(Variant)
694. Get FormulaR1C1Local() As Variant
695. Let FormulaR1C1Local(Variant)
696. Function FunctionWizard() As Variant
697. Function Group([Start As Variant], [End As Variant], [By As Variant], [Periods As Variant]) As Variant
698. Get HasArray() As Variant
699. Get HasFormula() As Variant
700. Get Height() As Variant
701. Get Hidden() As Variant
702. Let Hidden(Variant)
703. Get HorizontalAlignment() As Variant
704. Let HorizontalAlignment(Variant)
705. Get IndentLevel() As Variant
706. Let IndentLevel(Variant)
707. Sub InsertIndent(InsertAmount As Long)
708. Function Insert([Shift As Variant], [CopyOrigin As Variant]) As Variant
709. Get Interior() As Object
710. Get Item(RowIndex As Variant, [ColumnIndex As Variant]) As Variant
711. Let Item(RowIndex As Variant, [ColumnIndex As Variant], Variant)
712. Function Justify() As Variant
713. Get Left() As Variant
714. Get ListHeaderRows() As Long
715. Function ListNames() As Variant
716. Get LocationInTable() As XlLocationInTable
717. Get Locked() As Variant
718. Let Locked(Variant)
719. Sub Merge([Across As Variant])
720. Sub UnMerge()
721. Get MergeArea() As Object
722. Get MergeCells() As Variant
723. Let MergeCells(Variant)
724. Get Name() As Variant
725. Let Name(Variant)
726. Function NavigateArrow([TowardPrecedent As Variant], [ArrowNumber As Variant], [LinkNumber As Variant]) As Variant
727. Get Next() As Object
728. Function NoteText([Text As Variant], [Start As Variant], [Length As Variant]) As String
729. Get NumberFormat() As Variant
730. Let NumberFormat(Variant)
731. Get NumberFormatLocal() As Variant
732. Let NumberFormatLocal(Variant)
733. Get Offset([RowOffset As Variant], [ColumnOffset As Variant]) As Object
734. Get Orientation() As Variant
735. Let Orientation(Variant)
736. Get OutlineLevel() As Variant
737. Let OutlineLevel(Variant)
738. Get PageBreak() As Long
739. Let PageBreak(Long)
740. Function Parse([ParseLine As Variant], [Destination As Variant]) As Variant
741. Get PivotField() As Object
742. Get PivotItem() As Object
743. Get PivotTable() As Object
744. Get Precedents() As Object
745. Get PrefixCharacter() As Variant
746. Get Previous() As Object
747. Function PrintPreview([EnableChanges As Variant]) As Variant
748. Get QueryTable() As Object
749. Get Range(Cell1 As Variant, [Cell2 As Variant]) As Object
750. Function RemoveSubtotal() As Variant
751. Get Resize([RowSize As Variant], [ColumnSize As Variant]) As Object
752. Get Row() As Long
753. Function RowDifferences(Comparison As Variant) As Object
754. Get RowHeight() As Variant
755. Let RowHeight(Variant)
756. Function Run([Arg1 As Variant], [Arg2 As Variant], [Arg3 As Variant], [Arg4 As Variant], [Arg5 As Variant], [Arg6 As Variant], [Arg7 As Variant], [Arg8 As Variant], [Arg9 As Variant], [Arg10 As Variant], [Arg11 As Variant], [Arg12 As Variant], [Arg13 As Variant], [Arg14 As Variant], [Arg15 As Variant], [Arg16 As Variant], [Arg17 As Variant], [Arg18 As Variant], [Arg19 As Variant], [Arg20 As Variant], [Arg21 As Variant], [Arg22 As Variant], [Arg23 As Variant], [Arg24 As Variant], [Arg25 As Variant], [Arg26 As Variant], [Arg27 As Variant], [Arg28 As Variant], [Arg29 As Variant], [Arg30 As Variant]) As Variant
757. Function Select() As Variant
758. Function Show() As Variant
759. Function ShowDependents([Remove As Variant]) As Variant
760. Get ShowDetail() As Variant
761. Let ShowDetail(Variant)
762. Function ShowErrors() As Variant
763. Function ShowPrecedents([Remove As Variant]) As Variant
764. Get ShrinkToFit() As Variant
765. Let ShrinkToFit(Variant)
766. Function SortSpecial([SortMethod As XlSortMethod = 1], [Key1 As Variant], [Order1 As XlSortOrder = 1], [Type As Variant], [Key2 As Variant], [Order2 As XlSortOrder = 1], [Key3 As Variant], [Order3 As XlSortOrder = 1], [Header As XlYesNoGuess = 2], [OrderCustom As Variant], [MatchCase As Variant], [Orientation As XlSortOrientation = 2], [DataOption1 As XlSortDataOption = 0], [DataOption2 As XlSortDataOption = 0], [DataOption3 As XlSortDataOption = 0]) As Variant
767. Get SoundNote() As Object
768. Function SpecialCells(Type As XlCellType, [Value As Variant]) As Object
769. Get Style() As Variant
770. Let Style(Variant)
771. Function SubscribeTo(Edition As String, [Format As XlSubscribeToFormat = -4158]) As Variant
772. Function Subtotal(GroupBy As Long, Function As XlConsolidationFunction, TotalList As Variant, [Replace As Variant], [PageBreaks As Variant], [SummaryBelowData As XlSummaryRow = 1]) As Variant
773. Get Summary() As Variant
774. Function Table([RowInput As Variant], [ColumnInput As Variant]) As Variant
775. Get Text() As Variant
776. Function TextToColumns([Destination As Variant], [DataType As XlTextParsingType = 1], [TextQualifier As XlTextQualifier = 1], [ConsecutiveDelimiter As Variant], [Tab As Variant], [Semicolon As Variant], [Comma As Variant], [Space As Variant], [Other As Variant], [OtherChar As Variant], [FieldInfo As Variant], [DecimalSeparator As Variant], [ThousandsSeparator As Variant], [TrailingMinusNumbers As Variant]) As Variant
777. Get Top() As Variant
778. Function Ungroup() As Variant
779. Get UseStandardHeight() As Variant
780. Let UseStandardHeight(Variant)
781. Get UseStandardWidth() As Variant
782. Let UseStandardWidth(Variant)
783. Get Validation() As Object
784. Get Value([RangeValueDataType As Variant]) As Variant
785. Let Value([RangeValueDataType As Variant], Variant)
786. Get Value2() As Variant
787. Let Value2(Variant)
788. Get VerticalAlignment() As Variant
789. Let VerticalAlignment(Variant)
790. Get Width() As Variant
791. Get Worksheet() As Object
792. Get WrapText() As Variant
793. Let WrapText(Variant)
794. Function AddComment([Text As Variant]) As Object
795. Get Comment() As Object
796. Sub ClearComments()
797. Get Phonetic() As Object
798. Get FormatConditions() As Object
799. Get ReadingOrder() As Long
800. Let ReadingOrder(Long)
801. Get Hyperlinks() As Object
802. Get Phonetics() As Object
803. Sub SetPhonetic()
804. Get ID() As String
805. Let ID(String)
806. Get PivotCell() As Object
807. Sub Dirty()
808. Get Errors() As Object
809. Sub Speak([SpeakDirection As Variant], [SpeakFormulas As Variant])
810. Function PasteSpecial([Paste As XlPasteType = -4104], [Operation As XlPasteSpecialOperation = -4142], [SkipBlanks As Variant], [Transpose As Variant]) As Variant
811. Get AllowEdit() As Boolean
812. Get ListObject() As Object
813. Get XPath() As Object
814. Get ServerActions() As Object
815. Sub RemoveDuplicates([Columns As Variant], [Header As XlYesNoGuess = 2])
816. Function PrintOut([From As Variant], [To As Variant], [Copies As Variant], [Preview As Variant], [ActivePrinter As Variant], [PrintToFile As Variant], [Collate As Variant], [PrToFileName As Variant]) As Variant
817. Get MDX() As String
818. Get CountLarge() As Variant
819. Function CalculateRowMajorOrder() As Variant
820. Get SparklineGroups() As Object
821. Sub ClearHyperlinks()
822. Get DisplayFormat() As Object
823. Function BorderAround([LineStyle As Variant], [Weight As XlBorderWeight = 2], [ColorIndex As XlColorIndex = -4105], [Color As Variant], [ThemeColor As Variant]) As Variant
824. Sub AllocateChanges()
825. Sub DiscardChanges()
826. Sub FlashFill()
827. Sub ExportAsFixedFormat(Type As XlFixedFormatType, [Filename As Variant], [Quality As Variant], [IncludeDocProperties As Variant], [IgnorePrintAreas As Variant], [From As Variant], [To As Variant], [OpenAfterPublish As Variant], [FixedFormatExtClassPtr As Variant], [WorkIdentity As Variant])
828. Get HasRichDataType() As Variant
829. Sub ShowCard()
830. Function AddCommentThreaded(Text As String) As Object
831. Get CommentThreaded() As Object
832. Function Sort([Key1 As Variant], [Order1 As XlSortOrder = 1], [Key2 As Variant], [Type As Variant], [Order2 As XlSortOrder = 1], [Key3 As Variant], [Order3 As XlSortOrder = 1], [Header As XlYesNoGuess = 2], [OrderCustom As Variant], [MatchCase As Variant], [Orientation As XlSortOrientation = 2], [SortMethod As XlSortMethod = 1], [DataOption1 As XlSortDataOption = 0], [DataOption2 As XlSortDataOption = 0], [DataOption3 As XlSortDataOption = 0], [SubField1 As Variant]) As Variant
833. Function AutoFilter([Field As Variant], [Criteria1 As Variant], [Operator As XlAutoFilterOperator = 1], [Criteria2 As Variant], [VisibleDropDown As Variant], [SubField As Variant]) As Variant
834. Sub ConvertToLinkedDataType(ServiceID As Long, LanguageCulture As String)
835. Get LinkedDataTypeState() As Variant
836. Sub SetCellDataTypeFromCell(SourceCell As Object)
837. Sub DataTypeToText()
838. Get HasSpill() As Variant
839. Get SpillingToRange() As Object
840. Get SpillParent() As Object
841. Sub RefreshLinkedDataType([DomainID As Variant])
842. Get Formula2() As Variant
843. Let Formula2(Variant)
844. Get Formula2Local() As Variant
845. Let Formula2Local(Variant)
846. Get Formula2R1C1() As Variant
847. Let Formula2R1C1(Variant)
848. Get Formula2R1C1Local() As Variant
849. Let Formula2R1C1Local(Variant)
850. Get SavedAsArray() As Variant
851. Function Replace(What As Variant, Replacement As Variant, [LookAt As Variant], [SearchOrder As Variant], [MatchCase As Variant], [MatchByte As Variant], [SearchFormat As Variant], [ReplaceFormat As Variant], [FormulaVersion As Variant]) As Boolean
852.  

6

Problems & Solutions / Re: COM OLE

« Last post by JRS on April 04, 2021, 03:30:05 PM »

This is the ScriptBasic COM::DI(oscript) output for the Sage BOI COM/OLE interface.

Code: Text

1.  
2. ProvideX.Script Object Reference
3.  
4. Interface: IScript
5. ProgID: ProvideX.Script.1
6. CLSID: {60503AB4-2D27-11D6-B249-00C04F50D575}
7. Version: 1.0
8. Get Instance() As String
9. Sub Init(Path As String, [Param As Variant])
10. Get State() As ScriptState
11. Sub Execute(CmdLine As String)
12. Function Evaluate(Expression As String) As Variant
13. Sub Run(ProgramName As String)
14. Get Parameter(Name As String) As Variant
15. Let Parameter(Name As String, Variant)
16. Function NewObject(ClassName As String, [Param1 As Variant], [Param2 As Variant], [Param3 As Variant], [Param4 As Variant], [Param5 As Variant], [Param6 As Variant], [Param7 As Variant], [Param8 As Variant], [Param9 As Variant], [Param10 As Variant], [Param11 As Variant], [Param12 As Variant], [Param13 As Variant], [Param14 As Variant], [Param15 As Variant], [Param16 As Variant], [Param17 As Variant], [Param18 As Variant], [Param19 As Variant]) As Object
17. Sub Reset()
18. Function AddNamedObject(Name As String, Obj As Object) As Boolean
19. Function DeleteNamedObject(Name As String) As Boolean
20. Get TraceOn() As Boolean
21. Let TraceOn(Boolean)
22. Get Trace() As Boolean
23. Let Trace(Boolean)
24. Sub SetCommandLine(CommandLine As String)
25.  

This example executes a ProvideX Business Basic statement via a COM call to the interface.

Code: Script BASIC

1. IMPORT com.sbi
2.  
3. oscript = COM::CREATE(:SET, "ProvideX.Script")
4. COM::CBN(oScript, "Init", :CALL, "C:\\Sage\\Sage 100 Standard\\MAS90\\HOME")
5. COM::CBN(oscript, "EXECUTE", :CALL, "MSGBOX \"Hello ScriptBasic\",\"Sage BOI\",\"?,YESNO\",X$")
6.  
7. COM::RELEASE(oScript)
8.  

7

Problems & Solutions / Re: COM OLE

« Last post by JRS on April 04, 2021, 01:00:43 PM »

Here is the post to my latest (simplified) Excel example in O2 and SB using the sbembed.sbi include.

https://www.oxygenbasic.org/forum/index.php?topic=2060.msg22323#msg22323

sbembed.sbi

Code: Script BASIC

1. ' sbembed.sbi - ScriptBasic Embedded Function Wrappers
2.  
3. DECLARE COMMAND ArrayToXML ALIAS "xmlserialize" LIB "t"
4. DECLARE SUB CREATE ALIAS "CreateObject" LIB "com"
5. DECLARE SUB CBN ALIAS "CallByName" LIB "com"
6. DECLARE SUB RELEASE ALIAS "ReleaseObject" LIB "com"
7.  
8. GLOBAL CONST sb_call = 1
9. GLOBAL CONST sb_get  = 2
10. GLOBAL CONST sb_let  = 4
11. GLOBAL CONST sb_set  = 8
12.  
13. ' REPLACE
14. FUNCTION sb_replace(basestr, searchstr, replacestr, occurances, startpos)
15.   sb_replace = REPLACE(basestr, searchstr, replacestr, occurances, startpos)
16. END FUNCTION
17.  
18. ' LIKE
19. FUNCTION sb_like(basestr, mask)
20.   ok = basestr LIKE mask
21.   sb_like = ok
22. END FUNCTION
23.  
24. ' MATCH
25. FUNCTION sb_match(segment)
26.   sb_match = JOKER(segment)
27. END FUNCTION
28.  
29. ' SPLITA
30. FUNCTION sb_splita(basestr, splitby)
31.   SPLITA basestr BY splitby TO splitarray
32.   sb_splita = ArrayToXML(splitarray)
33. END FUNCTION
34.  
35. ' COM - CREATE
36. FUNCTION sb_create(obj_name)
37.   obj = CREATE(8, obj_name)
38.   sb_create = obj
39. END FUNCTION
40.  
41. ' COM - CBN (CallByName)
42. FUNCTION sb_cbn(obj, funcname, callypye, arg1, arg2, arg3, arg4)
43.   IF arg1 = undef THEN
44.     sb_cbn = CBN(obj, funcname, callypye)
45.     GOTO Done
46.   ELSE IF arg2 = undef THEN
47.     sb_cbn = CBN(obj, funcname, callypye, arg1)
48.     GOTO Done
49.   ELSE IF arg3 = undef THEN
50.     sb_cbn = CBN(obj, funcname, callypye, arg1, arg2)
51.     GOTO Done
52.   ELSE IF arg4 = undef THEN
53.     sb_cbn = CBN(obj, funcname, callypye, arg1, arg2, arg3)
54.     GOTO Done
55.   ELSE IF arg4 <> undef THEN
56.     sb_cbn = CBN(obj, funcname, callypye, arg1, arg2, arg3, arg4)
57.   END IF
58.   Done:
59. END FUNCTION
60.  
61. ' COM - RELEASE
62. FUNCTION sb_release(obj)
63.   ok = RELEASE(obj)
64.   sb_release = ok
65. END FUNCTION
66.  

Here is my sbembed.inc for o2.

Code: OxygenBasic

1. ' ScriptBasic Embedding Include
2.  
3. % libScriba = "libScriba.dll"
4.  
5. int SBT_UNDEF  = 0
6. int SBT_DOUBLE = 1
7. int SBT_LONG   = 2
8. int SBT_STRING = 3
9. int SBT_ZCHAR  = 4
10.  
11. type SbData
12.   typ as dword
13.   siz as dword
14.   union {
15.     dbl as double
16.     lng as sys
17.     str as char*
18.     gen as sys
19.   }
20. end type
21.  
22. sys sb = LoadLibrary libScriba
23. extern cdecl
24.   bind sb
25.   {
26.   scriba_new
27.   scriba_LoadConfiguration
28.   scriba_SetFileName
29.   scriba_LoadSourceProgram
30.   scriba_LoadProgramString
31.   scriba_LoadBinaryProgram
32.   scriba_Run
33.   scriba_NoRun
34.   scriba_LookupVariableByName
35.   scriba_LookupFunctionByName
36.   scriba_GetVariable
37.   scriba_SetVariable
38.   scriba_NewSbArgs
39.   scriba_CallArgEx
40.   scriba_DestroySbArgs
41.   scriba_destroy
42.   }
43. end extern
44.  
45. function newmem cdecl (sys le) as sys, export
46.   return getmemory le
47. end function
48.  
49. function freemem cdecl (sys p) export
50.   freememory p
51. end function
52.  

The best way to get COM/OLE automation examples is search for VBScript related code. It's rather simple to translate.



Jose Roca's Typelib viewer is another excellent resource.

8

Problems & Solutions / Re: COM OLE

« Last post by Charles Pegge on April 04, 2021, 12:49:23 PM »

Hi John,

I can get most of your Excel example  working but problems with "Cells" and "Pattern". Could you show me your latest Excel in ScriptBasic form.

I'm also looking for an intelligible reference for this stuff.

9

Problems & Solutions / Re: O2 SB Embed

« Last post by JRS on April 01, 2021, 03:51:28 PM »

This is an example of O2 using a VB6 OCX form as a login UI, calling back to ScriptBasic to set the userid global variable which O2 retrieves after the form closes.

This wraps up my ScriptBasic Embedding introduction with Oxygen Basic. I hope you found it informative and maybe useful. Comments welcome.

Code: Text

1. ' O2 VB Login Form Example
2.  
3. % filename "o2vblogin.exe"                                            
4. includepath "$/inc/"                                                
5. include "RTL32.inc"                                                
6. include "sbembed.inc"                                              
7. #console                                                            
8. uses console                                                        
9.                                                                    
10. sys pProgram                                                        
11. sbData *arg                                                        
12. sbData *argr                                                        
13. string cr = chr(13,10)                                              
14.  
15. int sb_call = 1                                                    
16. int sb_get  = 2                                                    
17. int sb_let  = 4                                                    
18. int sb_set  = 8                                                    
19. string src = "IMPORT sbembed.sbi" + cr + _
20.              `IMPORT "callback.sb"` + cr                            
21.                                                                    
22. pProgram = scriba_new(@newmem, @freemem)                            
23. scriba_LoadConfiguration(pProgram, "C:\Windows\SCRIBA.INI")        
24. scriba_SetFileName(pProgram, "none")                                
25. scriba_LoadProgramString(pProgram, src, len(src))                  
26. scriba_Run(pProgram, "")                                            
27.                                                                    
28. @argr = scriba_NewSbArgs(pProgram,"u")                              
29. sys fn1 = scriba_LookupFunctionByName(pProgram, "main::sb_create")  
30. sys fn2 = scriba_LookupFunctionByName(pProgram, "main::sb_cbn")    
31. sys fn3 = scriba_LookupFunctionByName(pProgram, "main::sb_release")
32. sys fn4 = scriba_LookupFunctionByName(pProgram, "main::set_callback")
33.  
34. @arg = scriba_NewSbArgs(pProgram, "s", "O2VB.Login")
35. scriba_CallArgEx(pProgram, fn1, argr, 1, arg)
36. sys vbobj = argr.lng
37. @arg = scriba_NewSbArgs(pProgram, "i", vbobj)
38. scriba_CallArgEx(pProgram, fn4, argr, 1, arg)
39. @arg = scriba_NewSbArgs(pProgram, "i s i", vbobj, "ShowOCXForm", sb_call)
40. scriba_CallArgEx(pProgram, fn2, argr, 3, arg)
41. sys ufunc = scriba_LookupVariableByName(pProgram, "main::userid")
42. scriba_GetVariable(pProgram, ufunc, @@arg)
43. print arg.str + cr
44. @arg = scriba_NewSbArgs(pProgram, "i", vbobj)
45. scriba_CallArgEx(pProgram, fn3, argr, 1, arg)
46.  
47. scriba_DestroySbArgs(pProgram, arg, 3)
48. scriba_DestroySbArgs(pProgram, argr, 1)
49. scriba_destroy(pProgram)
50.  

callback.sb

Code: Script BASIC

1. ' O2 SB Callback Functions
2.  
3. FUNCTION OK_Button_Click(user)
4.   userid = user
5.   OK_Button_Click = TRUE
6. END FUNCTION
7.  
8. FUNCTION Set_Callback(vbobj)
9.   oCollection = CBN(vbobj, "CallBackHandlers", sb_get)
10.   CBN(oCollection, "Add", sb_call, ADDRESS(OK_Button_Click()), "Login_Form.OK_Button_Click")
11. END FUNCTION
12.  

VB6 Login Form

Code: Visual Basic

1. Option Explicit
2.  
3. Private Declare Function ext_SBCallBack Lib "COM.dll" Alias "SBCallBack" (ByVal EntryPoint As Long, ByVal arg As Long) As Long
4. Private Declare Function ext_SBCallBackEx Lib "COM.dll" Alias "SBCallBackEx" (ByVal EntryPoint As Long, ByRef v As Variant) As Variant
5.  
6. Private m_owner As Login
7. Public LoginSucceeded As Boolean
8.  
9. Function ShowMain_Form(owner As Login) As Long
10.     On Error Resume Next
11.     Set m_owner = owner
12.     Me.Show 1
13.     Set m_owner = Nothing
14.     ShowMain_Form = 0
15.     Unload Me
16. End Function
17.  
18. Private Function TriggerCallBack(nodeID As Long, argValue As Long) As Long
19.     TriggerCallBack = ext_SBCallBack(nodeID, argValue)
20. End Function
21.  
22. Private Function TriggerCallBackEx(nodeID As Long, v() As Variant)
23.     TriggerCallBackEx = ext_SBCallBackEx(nodeID, v)
24. End Function
25.  
26. Private Sub Cancel_Button_Click()
27.     LoginSucceeded = False
28.     Me.Hide
29. End Sub
30.  
31. Private Sub OK_Button_Click()
32.     Dim nodeID As Long
33.     Dim arg(0) As Variant
34.     Dim rtnVal As Long
35.     If Password_Text = "OxygenBasic" Then
36.         LoginSucceeded = True
37.         nodeID = m_owner.CallBackHandlers("Login_Form.OK_Button_Click")
38.         arg(0) = Login_Form.User_Text
39.         rtnVal = TriggerCallBackEx(nodeID, arg)
40.         Me.Hide
41.     Else
42.         MsgBox "Invalid Password, try again!", , "Login"
43.         Password_Text.SetFocus
44.         SendKeys "{Home}+{End}"
45.     End If
46. End Sub
47.  

VB6 Login Class

Code: Visual Basic

1. Public CallBackHandlers As New Collection
2.  
3. Public Function ShowOCXForm() As Long
4.     ShowOCXForm = Login_Form.ShowMain_Form(Me)
5. End Function
6.  

C:\OxygenBasic\projectsC\ScriptBasic\EmbedSb>o2vblogin
John

C:\OxygenBasic\projectsC\ScriptBasic\EmbedSb>

10

Problems & Solutions / Re: O2 SB Embed

« Last post by JRS on March 31, 2021, 11:53:05 PM »

This is an example of getting and setting ScriptBasic variables from O2.

testvars.sb

Code: Script BASIC

1. a = 1      
2. b = .2    
3. c = "Three"
4.  

Code: Text

1. % filename "getsetvars.exe"                                            
2. includepath "$/inc/"                                                
3. include "RTL32.inc"                                                
4. include "sbembed.inc"                                              
5. #console                                                            
6. uses console                                                        
7.                                                                    
8. sys pProgram                                                        
9. sbData *arg                                                                                                                
10. string cr = chr(13,10)
11.  
12. string src = `IMPORT "testvars.sb"` + cr                              
13.                                                                    
14. pProgram = scriba_new(@newmem, @freemem)                            
15. scriba_LoadConfiguration(pProgram, "C:\Windows\SCRIBA.INI")        
16. scriba_SetFileName(pProgram, "none")                                
17. scriba_LoadProgramString(pProgram, src, len(src))                  
18. scriba_Run(pProgram, "")                                            
19.                                                                    
20. sys v_a = scriba_LookupVariableByName(pProgram, "main::a")
21. sys v_b = scriba_LookupVariableByName(pProgram, "main::b")
22. sys v_c = scriba_LookupVariableByName(pProgram, "main::c")
23.  
24. ' Get defined variable values
25.  
26. scriba_GetVariable(pProgram, v_a, @@arg)
27. print arg.lng + cr
28. scriba_GetVariable(pProgram, v_b, @@arg)
29. print arg.dbl + cr
30. scriba_GetVariable(pProgram, v_c, @@arg)
31. print arg.str + cr + cr
32.  
33. ' Set variable values
34.  
35. scriba_SetVariable(pProgram, v_a, SBT_LONG, 101, 0.0, "", 0)
36. scriba_SetVariable(pProgram, v_b, SBT_DOUBLE, 0, 2.2, "", 0)
37. scriba_SetVariable(pProgram, v_c, SBT_STRING, 0, 0.0, "Thirty Three", 12)
38.  
39. ' Get changed variable values
40.  
41. scriba_GetVariable(pProgram, v_a, @@arg)
42. print arg.lng + cr
43. scriba_GetVariable(pProgram, v_b, @@arg)
44. print arg.dbl + cr
45. scriba_GetVariable(pProgram, v_c, @@arg)
46. print arg.str + cr
47.  
48. scriba_DestroySbArgs(pProgram, arg, 1)
49. scriba_destroy(pProgram)
50.  

C:\OxygenBasic\projectsC\ScriptBasic\EmbedSb>getsetvars
1
0.2
Three

101
2.2000000000000002
Thirty Three

C:\OxygenBasic\projectsC\ScriptBasic\EmbedSb>