vc调用vb的dll出错，大侠给看看呀！

[dayingxiong]

每次都是unknown error


in vb:
====

Public Function Doprintxls(Filename As String)
'
' Macro1 Macro
'
Dim Arr() As String
Dim N As Long
Dim K As Long
Dim B As Variant
Dim ws As Object

Dim nSheets As Integer
Dim pre As Boolean
Dim sh As Worksheet
Dim i As Integer



Workbooks.Open Filename '"d:\excel.xlsx" '循环打开Excel文件"
ReDim Arr(1 To ActiveWorkbook.Sheets.Count)
With ActiveWorkbook
For i = 1 To .Sheets.Count
'MsgBox .Sheets(i).Name
Arr(i) = .Sheets(i).Name

Next i
End With
pre = True

Sheets(Arr).PrintOut Preview:=pre

End Function




in vc:
======
#import "d:\printxlsx.dll"

HRESULT ComInit();
#include "stdio.h"
#include <tchar.h>
#include <string>
using namespace printxlsx; //这里是COM组件名称
using namespace std;

int APIENTRY WinMain(HINSTANCE hInstance,
HINSTANCE hPrevInstance,
LPSTR lpCmdLine,
int nCmdShow)
{
ComInit();
_printmsxlsPtr MyObj;
MyObj.CreateInstance("printxlsx.printmsxls");

BSTR bstr=SysAllocString( BSTR(L"d:\\excel.xlsx"));
try
{
MyObj->Doprintxls( &bstr );
}
catch(_com_error e)
{
const TCHAR* errormsg = e.ErrorMessage();
return FALSE;
}
return 0;
}

[赵4老师]

不要做A语言代码修改为B语言代码的无用功。 也不要做用A语言代码直接调用B语言代码库这样复杂、这样容易出错的傻事。 只需让A、B语言代码的输入输出重定向到文本文件，或修改A、B语言代码让其通过文本文件输入输出。 即可很方便地让A、B两种语言之间协调工作。 比如： A将请求数据写到文件a.txt，写完后改名为aa.txt B发现aa.txt存在时，读取其内容，调用相应功能，将结果写到文件b.txt，写完后删除aa.txt，改名为bb.txt A发现bb.txt存在时，读取其内容，读完后删除bb.txt 以上A可以替换为任何一种开发语言或开发环境，B可以替换为任何一种与A不同的开发语言或开发环境。 除非A或B不支持判断文件是否存在、文件读写和文件更名。 但是谁又能举出不支持判断文件是否存在、文件读写和文件更名的开发语言或开发环境呢？