COM

#import "libid:00020813-0000-0000-C000-000000000046" version("1.6") auto_search no_dual_interfaces rename("DialogBox", "excelDialogBox") rename("RGB", "excelRGB") rename("DocumentProperties", "excelDocumentProperties") rename("SearchPath", "excelSearchPath") rename("CopyFile", "excelCopyFile") rename("ReplaceText", "excelReplaceText")

int _tmain(int argc, _TCHAR* argv[])
{
   CoInitializeEx(0, COINIT_MULTITHREADED);
   {
      Excel::_ApplicationPtr xl;
      if (SUCCEEDED(xl.CreateInstance(__uuidof(Excel::Application)))) // This is where we get the CLSID.
      {
         // Do stuff with the application pointer
      }
   }
}

deadlyabbas wrote:

the issuse is I am getting a message box getting pooped up while running the application.
And when I comment my change there is no such issue

m_pIDocument.CreateInstance(__uuidof(CADFilter::NW_Document), CLSCTX_INPROC_SERVER);

VARIANT result;

VTS_PUI1 or VTS_PI4. 

Public Function Get_List(SheetNumber As Long) As String
   '   Dim myExcel As Object
   Dim Counter1 As Integer
   Dim Returnstring As String
        Dim myWorkBook As Excel.Workbook
        Dim tworksheet As Excel.Worksheet

  '      myExcel = CreateObject("Excel.Application")
 '       myWorkBook = myExcel.Workbook.Open("C:\sample.xls")

        For Each tworksheet In myWorkBook.Worksheets
    '        Me.ListBox1.Items.Add (tworksheet.Name)
    Returnstring = tworksheet.Name
    If iindex = Counter1 Then
    Get_List = Returnstring

    End If
    Counter1 = Counter1 + 1
        Next
End Function
And try to access in vc++.Then i am getting error

Public Function Get_List(SheetNumber As Long) As String
    Get_List = "aaa"
End Function

Public Function Get_List(SheetNumber As Long) As String
    Get_List = "aaa"
End Function

VARIANT Get_List(long* number);

VARIANT _clsExcel::Get_List(long* number)
{
	VARIANT result;
	static BYTE parms[] =
		VTS_PI4;
	InvokeHelper(0x60030002, DISPATCH_METHOD, VT_VARIANT, (void*)&result, parms,
		number);
	return result;
}

_clsExcel objXl;
long ty=1;
objXl.Get_List(&ty);