StackOverflow2013

Note that there are some explanatory texts on larger screens.

plurals

PO
text
Body
copied!<p>Excel, like other Office products, exports its guts over COM. This is available for use in C++, VB, C#, and whatever other languages have COM interop -- provided that you're running in Windows and have Excel installed. (You can't get to COM from plain C. Whether this is fortunate or unfortunate is up to you.)</p> <p>COM is a bloody messy pain for unmanaged languages, though. The following VB:</p> <pre><code>Set objExcel = CreateObject("Excel.Application") ' start or use existing Excel objExcel.Visible = True ' show the window objExcel.Workbooks.Add ' create an empty workbook </code></pre> <p>roughly translates into the following C++:</p> <pre><code>#include <assert.h> #include <ole2.h> #include <tchar.h> int main() { HRESULT hr; IDispatch *objExcel, *objWorkbooks; CLSID clsid; DISPID id, id2; DISPPARAMS p; VARIANT v; TCHAR *name; CoInitialize(NULL); hr = CLSIDFromProgID(_T("Excel.Application"), &clsid); assert(SUCCEEDED(hr)); hr = CoCreateInstance(clsid, NULL, CLSCTX_LOCAL_SERVER, IID_IDispatch, (LPVOID *)&objExcel); assert(SUCCEEDED(hr)); id2 = DISPID_PROPERTYPUT; name = _T("Visible"); hr = objExcel->GetIDsOfNames(IID_NULL, &name, 1, LOCALE_USER_DEFAULT, &id); assert(SUCCEEDED(hr)); VariantInit(&v); v.vt = VT_I4; v.lVal = 1; p.cArgs = 1; p.rgvarg = &v; p.cNamedArgs = 1; p.rgdispidNamedArgs = &id2; hr = objExcel->Invoke(id, IID_NULL, LOCALE_SYSTEM_DEFAULT, DISPATCH_PROPERTYPUT, &p, NULL, NULL, NULL); assert(SUCCEEDED(hr)); name = _T("Workbooks"); hr = objExcel->GetIDsOfNames(IID_NULL, &name, 1, LOCALE_USER_DEFAULT, &id); assert(SUCCEEDED(hr)); p.cArgs = 0; p.rgvarg = NULL; p.cNamedArgs = 0; p.rgdispidNamedArgs = NULL; hr = objExcel->Invoke(id, IID_NULL, LOCALE_SYSTEM_DEFAULT, DISPATCH_PROPERTYGET, &p, &v, NULL, NULL); assert(SUCCEEDED(hr)); objWorkbooks = v.pdispVal; name = _T("Add"); hr = objWorkbooks->GetIDsOfNames(IID_NULL, &name, 1, LOCALE_USER_DEFAULT, &id); assert(SUCCEEDED(hr)); p.cArgs = 0; p.rgvarg = NULL; p.cNamedArgs = 0; p.rgdispidNamedArgs = NULL; hr = objWorkbooks->Invoke(id, IID_NULL, LOCALE_SYSTEM_DEFAULT, DISPATCH_PROPERTYGET, &p, NULL, NULL, NULL); assert(SUCCEEDED(hr)); return 0; } </code></pre>

Querying!

Guidance

An individual column

Larger individual text columns get their own page to allow for proper reading.

SQuiL has stopped working due to an internal error.

If you are curious you may find further information in the browser console, which is accessible through the devtools (F12).

Reload