Embed MS Office document in GUI Topic is solved

[burque505]

Hi, I'd like to embed Office documents in a GUI.

I found this code at:

https://autohotkey.com/board/topic/2915 ... anks-sean/
and
https://autohotkey.com/board/topic/2915 ... ntry186621

I'm using AutoHotkey_L, and the COM commands below throw errors.
I thought about downloading COM_L, but all the links are broken (including in the broken links reporting page) and it probably won't work anyway since COM is now built in.
I downloaded the old com.ahk lib and it didn't work, and I didn't really expect it to.

Can anyone point me in the right direction? Thanks!


GoSub, GuiOpen
pweb := COM_AtlAxCreateControl(WinExist(), A_Temp . "\test.xls")
pxlb := COM_Invoke(pweb, "Document") ; Excel Workbook
pxls := COM_Invoke(pxlb, "Worksheets", 1) ; Excel Worksheet
Return

GuiOpen:
Gui, +Resize +LastFound
Gui, Show, w800 h600 Center, Excel
COM_AtlAxWinInit()
Return
GuiClose:
Gui, Destroy
COM_Invoke(pxlb, "Save")
COM_Release(pxls)
COM_Release(pxlb)
COM_Release(pweb)
COM_AtlAxWinTerm()
ExitApp
;

[tmplinshi]

You can use dsoframer.ocx

Code: Select all

#NoEnv
#SingleInstance Force
SetWorkingDir %A_ScriptDir%

EnsureRegistered()

Gui, Add, ActiveX, w800 h600 vfc, DSOFramer.FramerControl
Gui, Show

fc.Menubar := false
fc.Toolbars := false
fc.Titlebar := false

; fc.Open(A_ScriptDir "\test.xlsx")
fc.CreateNew("Excel.Sheet")

fc.ActiveDocument.Sheets(1).Range("A1").Value := "test"
return

GuiClose:
ExitApp

EnsureRegistered() {
	try {
		ComObjCreate("DSOFramer.FramerControl")
	} catch {
		RunAsAdmin()
		RunWait, regsvr32 /s dsoframer.ocx, %A_ScriptDir%
	}
}

RunAsAdmin() {
	full_command_line := DllCall("GetCommandLine", "str")

	if not (A_IsAdmin or RegExMatch(full_command_line, " /restart(?!\S)"))
	{
	    try
	    {
	        if A_IsCompiled
	            Run *RunAs "%A_ScriptFullPath%" /restart
	        else
	            Run *RunAs "%A_AhkPath%" /restart "%A_ScriptFullPath%"
	    }
	    ExitApp
	}
}

DSOFramer functions

Code: Select all

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
DSOFramer; // DSO ActiveX Document Framer Control
UUID {00460180-9E5E-11D5-B7C8-B8269041DD57};
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx



==================================================================================

enum dsoBorderStyle;
{
  dsoBorderNone = 0,
  dsoBorderFlat = 1,
  dsoBorder3D = 2,
  dsoBorder3DThin = 3
};


==================================================================================

enum dsoShowDialogType;
{
  dsoDialogNew = 0,
  dsoDialogOpen = 1,
  dsoDialogSave = 2,
  dsoDialogSaveCopy = 3,
  dsoDialogPrint = 4,
  dsoDialogPageSetup = 5,
  dsoDialogProperties = 6
};


==================================================================================

enum dsoFileCommandType;
{
  dsoFileNew = 0,
  dsoFileOpen = 1,
  dsoFileClose = 2,
  dsoFileSave = 3,
  dsoFileSaveAs = 4,
  dsoFilePrint = 5,
  dsoFilePageSetup = 6,
  dsoFileProperties = 7,
  dsoFilePrintPreview = 8
};


==================================================================================

IDispatch _FramerControl;
IID = {00460181-9E5E-11D5-B7C8-B8269041DD57}; 
// Inherits from:  IDispatch  {00020400-0000-0000-C000-000000000046}

    1. Activates the current document object.
STDCALL FUNC PUREVIRTUAL;
         HRESULT Activate(
         );

    2. Returns the Automation interface of the document object.
STDCALL PROPERTYGET PUREVIRTUAL;
         HRESULT ActiveDocument(
            [out,retval] idispatch* ppdisp
         );

    3. Creates a new document based on the ProgId or Template file provided.
STDCALL FUNC PUREVIRTUAL;
         HRESULT CreateNew(
            [in] BSTR ProgIdOrTemplate
         );

    4. Opens a document from a file, URL, or Automation object.
STDCALL FUNC PUREVIRTUAL;
         HRESULT Open(
            [in] VARIANT Document, 
            [in,optional] VARIANT ReadOnly, 
            [in,optional] VARIANT ProgId, 
            [in,optional] VARIANT WebUsername, 
            [in,optional] VARIANT WebPassword
         );

    5. Saves the document to specified location or its original location.
STDCALL FUNC PUREVIRTUAL;
         HRESULT Save(
            [in,optional] VARIANT SaveAsDocument, 
            [in,optional] VARIANT OverwriteExisting, 
            [in,optional] VARIANT WebUsername, 
            [in,optional] VARIANT WebPassword
         );

    6. 
STDCALL FUNC PUREVIRTUAL;
         HRESULT _PrintOutOld(
            [in,optional] VARIANT PromptToSelectPrinter
         );

    7. Closes the currently open document.
STDCALL FUNC PUREVIRTUAL;
         HRESULT Close(
         );

    8. Returns/sets the titlebar caption.
STDCALL PROPERTYPUTREF PUREVIRTUAL;
         HRESULT Caption(
            [in] BSTR PromptToSelectPrinter
         );

    9. 
STDCALL PROPERTYGET PUREVIRTUAL;
         HRESULT Caption(
            [out,retval] BSTR* pbstr
         );

    10. Returns/sets whether the titlebar should be displayed.
STDCALL PROPERTYPUTREF PUREVIRTUAL;
         HRESULT Titlebar(
            [in] bool pbstr
         );

    11. 
STDCALL PROPERTYGET PUREVIRTUAL;
         HRESULT Titlebar(
            [out,retval] bool* pbool
         );

    12. Returns/sets whether toolbars should be displayed.
STDCALL PROPERTYPUTREF PUREVIRTUAL;
         HRESULT Toolbars(
            [in] bool pbool
         );

    13. 
STDCALL PROPERTYGET PUREVIRTUAL;
         HRESULT Toolbars(
            [out,retval] bool* pbool
         );

    14. Returns/sets the controls modal state.
STDCALL PROPERTYPUTREF PUREVIRTUAL;
         HRESULT ModalState(
            [in] bool pbool
         );

    15. 
STDCALL PROPERTYGET PUREVIRTUAL;
         HRESULT ModalState(
            [out,retval] bool* pbool
         );

    16. Displays a modal dialog of the given type for user action.
STDCALL FUNC PUREVIRTUAL;
         HRESULT ShowDialog(
            [in] <enum> dsoShowDialogType DlgType
         );

    17. Returns/sets whether a specific action item is enabled.
STDCALL PROPERTYPUTREF PUREVIRTUAL;
         HRESULT EnableFileCommand(
            [in] <enum> dsoFileCommandType Item, 
            [in] bool Item
         );

    18. 
STDCALL PROPERTYGET PUREVIRTUAL;
         HRESULT EnableFileCommand(
            [in] <enum> dsoFileCommandType Item, 
            [out,retval] bool* pbool
         );

    19. Returns/sets the border style for the control.
STDCALL PROPERTYPUTREF PUREVIRTUAL;
         HRESULT BorderStyle(
            [in] <enum> dsoBorderStyle pbool
         );

    20. 
STDCALL PROPERTYGET PUREVIRTUAL;
         HRESULT BorderStyle(
            [out,retval] int* pstyle
         );

    21. Returns/sets the border color of the control.
STDCALL PROPERTYPUTREF PUREVIRTUAL;
         HRESULT BorderColor(
            [in] <enum> DSOFramer pstyle
         );

    22. 
STDCALL PROPERTYGET PUREVIRTUAL;
         HRESULT BorderColor(
            [out,retval] <enum> DSOFramer* pclr
         );

    23. Returns/sets the background color of the control.
STDCALL PROPERTYPUTREF PUREVIRTUAL;
         HRESULT BackColor(
            [in] <enum> DSOFramer pclr
         );

    24. 
STDCALL PROPERTYGET PUREVIRTUAL;
         HRESULT BackColor(
            [out,retval] <enum> DSOFramer* pclr
         );

    25. Returns/sets the foreground color of the control.
STDCALL PROPERTYPUTREF PUREVIRTUAL;
         HRESULT ForeColor(
            [in] <enum> DSOFramer pclr
         );

    26. 
STDCALL PROPERTYGET PUREVIRTUAL;
         HRESULT ForeColor(
            [out,retval] <enum> DSOFramer* pclr
         );

    27. Returns/sets the color of the titlebar.
STDCALL PROPERTYPUTREF PUREVIRTUAL;
         HRESULT TitlebarColor(
            [in] <enum> DSOFramer pclr
         );

    28. 
STDCALL PROPERTYGET PUREVIRTUAL;
         HRESULT TitlebarColor(
            [out,retval] <enum> DSOFramer* pclr
         );

    29. Returns/sets the color of text for the titlebar.
STDCALL PROPERTYPUTREF PUREVIRTUAL;
         HRESULT TitlebarTextColor(
            [in] <enum> DSOFramer pclr
         );

    30. 
STDCALL PROPERTYGET PUREVIRTUAL;
         HRESULT TitlebarTextColor(
            [out,retval] <enum> DSOFramer* pclr
         );

    31. Calls IOleCommandTarget::Exec on embedded object.
STDCALL FUNC PUREVIRTUAL;
         HRESULT ExecOleCommand(
            [in] int OLECMDID, 
            [in,optional] VARIANT Options, 
            [in,optional] VARIANT* vInParam, 
            [in,out,optional] VARIANT* vInOutParam
         );

    32. Returns/sets whether a menu bar should be displayed.
STDCALL PROPERTYPUTREF PUREVIRTUAL;
         HRESULT Menubar(
            [in] bool vInOutParam
         );

    33. 
STDCALL PROPERTYGET PUREVIRTUAL;
         HRESULT Menubar(
            [out,retval] bool* pbool
         );

    34. Returns/sets host application name HostName(used in embedding).
STDCALL PROPERTYPUTREF PUREVIRTUAL;
         HRESULT HostName(
            [in] BSTR pbool
         );

    35. 
STDCALL PROPERTYGET PUREVIRTUAL;
         HRESULT HostName(
            [out,retval] BSTR* pbstr
         );

    36. Returns full document path name for object.
STDCALL PROPERTYGET PUREVIRTUAL;
         HRESULT DocumentFullName(
            [out,retval] BSTR* pbstr
         );

    37. Prints current document to specific printer with settings.
STDCALL FUNC PUREVIRTUAL;
         HRESULT PrintOut(
            [in,optional] VARIANT PromptUser, 
            [in,optional] VARIANT PrinterName, 
            [in,optional] VARIANT Copies, 
            [in,optional] VARIANT FromPage, 
            [in,optional] VARIANT ToPage, 
            [in,optional] VARIANT OutputFile
         );

    38. Starts a print preview PrintPreview(if document supports it).
STDCALL FUNC PUREVIRTUAL;
         HRESULT PrintPreview(
         );

    39. Exits a current print preview.
STDCALL FUNC PUREVIRTUAL;
         HRESULT PrintPreviewExit(
         );

    40. Returns True/False if file was open read-only, or has not been saved.
STDCALL PROPERTYGET PUREVIRTUAL;
         HRESULT IsReadOnly(
            [out,retval] bool* pbool
         );

    41. Returns True/False if file has been altered or needs save.
STDCALL PROPERTYGET PUREVIRTUAL;
         HRESULT IsDirty(
            [out,retval] bool* pbool
         );

    42. Init the Http Engine. First
STDCALL FUNC PUREVIRTUAL;
         HRESULT HttpInit(
            [out,retval] bool* pbool
         );

    43. Add Post Data
STDCALL FUNC PUREVIRTUAL;
         HRESULT HttpAddPostString(
            [in] BSTR strName, 
            [in] BSTR strValue, 
            [out,retval] bool* pbool
         );

    44. Post the data to the URLHttpPost(bstr). End 
STDCALL FUNC PUREVIRTUAL;
         HRESULT HttpPost(
            [in] BSTR bstr, 
            [out,retval] BSTR* pRet
         );

    45. Set the document to TrackRevisions state 
STDCALL FUNC PUREVIRTUAL;
         HRESULT SetTrackRevisions(
            [in] int vbool, 
            [out,retval] bool* pbool
         );

    46. Set Curr User 
STDCALL FUNC PUREVIRTUAL;
         HRESULT SetCurrUserName(
            [in] BSTR strCurrUserName, 
            [out,retval] bool* pbool
         );

    47. Add Post Data
STDCALL FUNC PUREVIRTUAL;
         HRESULT HttpAddPostCurrFile(
            [in] BSTR strFileID, 
            [in] BSTR strFileName, 
            [out,retval] bool* pbool
         );

    48. Set Curr Time ; Linke 2006:02:07 11:11:11
STDCALL FUNC PUREVIRTUAL;
         HRESULT SetCurrTime(
            [in] BSTR strValue, 
            [out,retval] bool* pbool
         );

    49. Get the application dispatch
STDCALL PROPERTYGET PUREVIRTUAL;
         HRESULT GetApplication(
            [out,retval] idispatch* ppdisp
         );

    50. Set Field Or sheetValue
STDCALL FUNC PUREVIRTUAL;
         HRESULT SetFieldValue(
            [in] BSTR strFieldName, 
            [in] BSTR strValue, 
            [in] BSTR strCmdOrSheetName, 
            [out,retval] bool* pbool
         );

    51. Get Field Or sheetValue
STDCALL FUNC PUREVIRTUAL;
         HRESULT GetFieldValue(
            [in] BSTR strFieldName, 
            [in] BSTR strCmdOrSheetName, 
            [out,retval] BSTR* strValue
         );

    52. Set Menu Enable
STDCALL FUNC PUREVIRTUAL;
         HRESULT SetMenuDisplay(
            [in] int lMenuFlag, 
            [out,retval] bool* pbool
         );

    53. ProtectDoc
STDCALL FUNC PUREVIRTUAL;
         HRESULT ProtectDoc(
            [in] int lProOrUn, 
            [in] int lProType, 
            [in] BSTR strProPWD, 
            [out,retval] bool* pbool
         );

    54. ShowRevisions
STDCALL FUNC PUREVIRTUAL;
         HRESULT ShowRevisions(
            [in] int nNewValue, 
            [out,retval] bool* pbool
         );

    55. Set Field Or sheetValue
STDCALL FUNC PUREVIRTUAL;
         HRESULT InSertFile(
            [in] BSTR strFieldPath, 
            [in] int lPos, 
            [out,retval] bool* pbool
         );

    56. Load File
STDCALL FUNC PUREVIRTUAL;
         HRESULT LoadOriginalFile(
            [in] VARIANT strFieldPath, 
            [in] VARIANT strFileType, 
            [out,retval] int* pbool
         );

    57. Save As
STDCALL FUNC PUREVIRTUAL;
         HRESULT SaveAs(
            [in] VARIANT strFileName, 
            [in] VARIANT dwFileFormat, 
            [out,retval] int* pbool
         );

    58. DeleteLocalFile
STDCALL FUNC PUREVIRTUAL;
         HRESULT DeleteLocalFile(
            [in] BSTR strFilePath
         );

    59. GetTempFilePath
STDCALL FUNC PUREVIRTUAL;
         HRESULT GetTempFilePath(
            [out,retval] BSTR* strValue
         );

    60. ShowView
STDCALL FUNC PUREVIRTUAL;
         HRESULT ShowView(
            [in] int dwViewType, 
            [out,retval] int* pbool
         );

    61. FtpConnect
STDCALL FUNC PUREVIRTUAL;
         HRESULT FtpConnect(
            [in] BSTR strURL, 
            [in] int lPort, 
            [in] BSTR strUser, 
            [in] BSTR strPwd, 
            [out,retval] int* pbool
         );

    62. FtpGetFile
STDCALL FUNC PUREVIRTUAL;
         HRESULT FtpGetFile(
            [in] BSTR strRemoteFile, 
            [in] BSTR strLocalFile, 
            [out,retval] int* pbool
         );

    63. FtpPutFile
STDCALL FUNC PUREVIRTUAL;
         HRESULT FtpPutFile(
            [in] BSTR strLocalFile, 
            [in] BSTR strRemoteFile, 
            [in] int blOverWrite, 
            [out,retval] int* pbool
         );

    64. FtpDisConnect
STDCALL FUNC PUREVIRTUAL;
         HRESULT FtpDisConnect(
            [out,retval] int* pbool
         );

    65. Download File 
STDCALL FUNC PUREVIRTUAL;
         HRESULT DownloadFile(
            [in] BSTR strRemoteFile, 
            [in] BSTR strLocalFile, 
            [out,retval] BSTR* strValue
         );

    66. Add Post File
STDCALL FUNC PUREVIRTUAL;
         HRESULT HttpAddPostFile(
            [in] BSTR strFileID, 
            [in] BSTR strFileName, 
            [out,retval] int* pbool
         );

    67. Get Rev Index
STDCALL FUNC PUREVIRTUAL;
         HRESULT GetRevCount(
            [out,retval] int* pbool
         );

    68. Get Rev Index Info
STDCALL FUNC PUREVIRTUAL;
         HRESULT GetRevInfo(
            [in] int lIndex, 
            [in] int lType, 
            [out,retval] BSTR* pbool
         );

    69. Set Doc Prop
STDCALL FUNC PUREVIRTUAL;
         HRESULT SetValue(
            [in] BSTR strValue, 
            [in] BSTR strName, 
            [out,retval] int* pbool
         );

    70. Set Doc Variable
STDCALL FUNC PUREVIRTUAL;
         HRESULT SetDocVariable(
            [in] BSTR strVarName, 
            [in] BSTR strValue, 
            [in] int lOpt, 
            [out,retval] int* pbool
         );

    71. Save page To Doc
STDCALL FUNC PUREVIRTUAL;
         HRESULT SetPageAs(
            [in] BSTR strLocalFile, 
            [in] int lPageNum, 
            [in] int lType, 
            [out,retval] int* pbool
         );

    72. Replace Text
STDCALL FUNC PUREVIRTUAL;
         HRESULT ReplaceText(
            [in] BSTR strSearchText, 
            [in] BSTR strReplaceText, 
            [in] int lGradation, 
            [out,retval] int* pbool
         );

    73. Get EnvironmentVariable
STDCALL FUNC PUREVIRTUAL;
         HRESULT GetEnvironmentVariable(
            [in] BSTR EnvironmentName, 
            [out,retval] BSTR* strValue
         );

    74. Get Office Version
STDCALL FUNC PUREVIRTUAL;
         HRESULT GetOfficeVersion(
            [in] BSTR strName, 
            [out,retval] BSTR* strValue
         );


==================================================================================

IDispatch _DFramerCtlEvents;
IID = {00460185-9E5E-11D5-B7C8-B8269041DD57}; 
// Inherits from:  IDispatch  {00020400-0000-0000-C000-000000000046}

    1. Called when File menu item is selected by user OnFileCommand(may be canceled).
STDCALL FUNC DISPATCH;
         HRESULT OnFileCommand(
            [in] <enum> dsoFileCommandType Item, 
            [in,out] bool* Cancel
         );

    2. Called when document is opened or new document added.
STDCALL FUNC DISPATCH;
         HRESULT OnDocumentOpened(
            [in] BSTR File, 
            [in] idispatch Document
         );

    3. Called when document is closed.
STDCALL FUNC DISPATCH;
         HRESULT OnDocumentClosed(
         );

    4. Called when component gains/loses activation.
STDCALL FUNC DISPATCH;
         HRESULT OnActivationChange(
            [in] bool fGoingActive
         );

    5. Called before document is closed BeforeDocumentClosed(may be canceled).
STDCALL FUNC DISPATCH;
         HRESULT BeforeDocumentClosed(
            [in] idispatch Document, 
            [in,out] bool* Cancel
         );

    6. Called before document is saved BeforeDocumentSaved(may be canceled).
STDCALL FUNC DISPATCH;
         HRESULT BeforeDocumentSaved(
            [in] idispatch Document, 
            [in] BSTR Location, 
            [in,out] bool* Cancel
         );

    7. Called when print preview is closed.
STDCALL FUNC DISPATCH;
         HRESULT OnPrintPreviewExit(
         );

    8. Ctrl Ready
STDCALL FUNC DISPATCH;
         HRESULT NotifyCtrlReady(
         );


==================================================================================

coclass FramerControl; // DSO Framer Control Object
CLSID = {00460182-9E5E-11D5-B7C8-B8269041DD57}; 

// Implemented interface: <IDispatch> _FramerControl
// Implemented interface: <IDispatch> _DFramerCtlEvents

==================================================================================

Download

[garry]

thank you , tmplinshi
this for PDF-file / or also for MP4

Code: Select all

;_ ActiveX PDFx
xxa=Shell.Explorer                  ;- IExplorer
;xxa=Mozilla.Browser                ;- firefox no success
F1=C:\test.pdf
stringreplace,f1,f1,\,/,all
F2:="file:///" . F1
Gui Add, ActiveX, w980 h750 vWB1,%xxa%
WB1.Navigate(F2)
Gui, Show,x0 y0 w1024 h768, TEST-PDF
return

Guiclose:
exitapp

[burque505]

Thanks to both. No joy yet. Tmplinshi, when I run your code everything that is "fc.*" throws an error.
I already have dsoframer.ocx registered on my system from another program, but tried re-registering it also (though EnsureRegistered() didn't throw an exception).
When I refresh the webpage that displays, I get this message: "Make sure the web address http://dsoframer.framercontrol is correct".
I do feel the code is close to working, though.
I have test.xlsx in the script dir, of course.

Garry, thank you, I'm having trouble with that one too, of a different nature: the PDF downloads with a dialog box (Open or Save), both of which work but neither of which show the pdf in the GUI. Save calls up the file dialog, and Open just opens it in Acrobat.

Thanks again, I look forward to more input.

[garry]

@burque505 , I have the same problem with PDF when I use Mozilla.Browser , Shell.Explorer works for me , maybe see settings in browser for extensions
tmplinshi's script works for me , but I use Open-Office and Microsoft-Office asks me for Product Key ... I can refuse , then with restricted functions ( I want only read )

[burque505]

Thanks, Garry. I wonder what I'm doing wrong with tmplinishi's script? I just copied and pasted it.
Maybe my version of dosframer.ocx doesn't work with AHK, but it works fine with the application it came with. I'll look for a 64-bit version (my OS is 64-bit) and see if maybe that's the problem.
I appreciate your input.

[burque505]

Just found a reference on the web saying dsoframer.ocx doesn't support Office 2010. I'm using Office 2016, maybe that's the problem.
Or not. I downloaded and installed the official sample pack, and the samples work fine. I also copied that dsoframer.ocx over to the script directory, still no luck.

[tmplinshi]

My environment:

• AutoHotkey v1.1.24.05 Unicode 32-bit
• Office 2016
• Windows 64-bit

Doesn't work on 64-bit AHK.

Try add following code to the top of the script.

Code: Select all

If (A_PtrSize = 8) {
	MsgBox, 48,, Please use 32-bit AutoHotkey
	ExitApp
}
RunAsAdmin()
RunWait, regsvr32 /s dsoframer.ocx, %A_ScriptDir%

[tmplinshi]

Here is a way to Registration-Free by using manifest file.

dsoframer.manifest:

Code: Select all

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0"><file name="dsoframer.ocx" hashalg="SHA1"><comClass clsid="{00460182-9E5E-11D5-B7C8-B8269041DD57}" tlbid="{00460180-9E5E-11D5-B7C8-B8269041DD57}" description="DSO Framer Control Object"></comClass><typelib tlbid="{00460180-9E5E-11D5-B7C8-B8269041DD57}" resourceid="1" version="2.2" helpdir=""></typelib></file><comInterfaceExternalProxyStub name="_FramerControl" iid="{00460181-9E5E-11D5-B7C8-B8269041DD57}" tlbid="{00460180-9E5E-11D5-B7C8-B8269041DD57}" proxyStubClsid32="{00020424-0000-0000-C000-000000000046}"></comInterfaceExternalProxyStub></assembly>

Code: Select all

#NoEnv
#SingleInstance Force
SetWorkingDir %A_ScriptDir%

If (A_PtrSize = 8) {
	MsgBox, 48,, Please use 32-bit AutoHotkey
	ExitApp
}

RegCOM("dsoframer.manifest")

Gui, Add, ActiveX, w800 h600 vfc, {00460182-9E5E-11D5-B7C8-B8269041DD57}
Gui, Show

fc.Menubar := false
fc.Toolbars := false
fc.Titlebar := false

; fc.Open(A_ScriptDir "\test.xlsx")
fc.CreateNew("Excel.Sheet")

fc.ActiveDocument.Sheets(1).Range("A1").Value := "test"
return

GuiClose:
ExitApp

RegCOM(ManifestFile) {
	VarSetCapacity(actctx, 34, 0)
	NumPut(34, actctx, 0, "UInt")
	NumPut(&ManifestFile, actctx, 8, "UInt")

	hActCtx := DllCall("CreateActCtx", "ptr", &actctx, "ptr")
	if (hActCtx = INVALID_HANDLE_VALUE := -1) {
		throw, "INVALID_HANDLE_VALUE"
	}

	DllCall("ActivateActCtx", "ptr", hActCtx, "ptr*", cookie)
}

Download

[burque505]

tmplinshi, you are the greatest!
It was in fact me running a 64-bit AHK. The 32-bit version I swapped in runs both versions you provided perfectly.
Fantastic. Wonderful. And thanks for working .ocx, of course.
Regards and the highest of praise,
Burque505.

[hughman]

Here is a way to Registration-Free by using manifest file.

Excuse me, this verison doesn't work for me. My environment is winXP sp3 chs, ahk_l u32.
It seems that the classid and progid still can't be recognized by ahk.
The activex control in the GUI becomes IE ( maybe dsoframer is based on IE?)
What's wrong? Can u help me?

[tmplinshi]

@hughman Are you using the lastest version of AHK? If not try updating first.

The activex control in the GUI becomes IE ( maybe dsoframer is based on IE?)

No, any invalid components name will become "IE". e.g. : Gui, Add, ActiveX, w300 h300, test

[hughman]

@hughman Are you using the lastest version of AHK? If not try updating first

I get it. if ahk is located in another computer of LAN, it failed.But the local ahk can make it run. Is it posdible to be solved?
btw: Do you have a solution for x64 system? the dsoframer seems too old.
at last, thanks for you good idea and help.

[tmplinshi]

btw: Do you have a solution for x64 system? the dsoframer seems too old.

You can use 32-bit AHK on x64 system.

To use dsoframer on 64-bit AHK, you will need 64-bit version of dsoframer.ocx, but such version doesn't exist on the internet.