VB是方便的快速开发语言之一，但是VB和最近流行的Python相比，有一致使的缺点，就是它为了尽可能方便程序员傻瓜式开发，而把自己封闭在一圈子里了，屏蔽了很多特性，比如用VB创建COM组件是超级简单，可惜若要自己加点东西，实存太麻烦了，比如我要让Dll导出我自己的函数，用VB默认就做不到。
    刚好这段时间要用VB做一个Demo，故分析了一下，发现VB的Link.exe是支持导出函数的，只是VB的IDE没有提供入口而已，故写一工具以辅助之，相信很多人都遇到相似的事情。
    具体原理我就不多说了，大家查看一下VB中LINK.EXE中参数帮助即知晓。
    
    我已经写好了一个很方便的工具，大家若需要的话可以从这里下载：http://download.csdn.net/source/580078

    使用方法如下：先把VB原来的LINK.EXE改名为LINK2.EXE，然后把本工具link.exe拷到原来LINK.EXE的相同目录下即可。
    若你想导出函数，只要在你的工程目录中，增加一.def文件，此def文件的格式和VC是一样的，如：

LIBRARY      "advapidemoPS"
DESCRIPTION  'Proxy/Stub DLL'

EXPORTS
    DllCanUnloadNow         @1    PRIVATE
    DllGetClassObject       @2    PRIVATE
    DllRegisterServer       @3    PRIVATE
    DllUnregisterServer     @4    PRIVATE
    InitAdvApi              @20    PRIVATE

    def的文件名任意，编译时，会自动查找当前工程下的def文件，若没有def文件，则直接调用原来的LINK2.EXE进行连接，若发现有def文件，则会提示使用发现的def文件进行链接。
    链接完后你用Depend等工具查看一下生成的DLL，即可发现你在def文件中定义的导出函数已经成功导出了。
    Gook Luck。

机房查询上机记录-导出为Excel表

添加引用“Microsoft Excel 16.0 Object Library”

在可用的引用中没有找到该引用

 

一、单机浏览



 

二、找到Office安装文件夹，打开



 

三、找出Excel.EXE文件选中打开，可搜索找出



 

四、即可看到该引用，选中添加即可



 

 

 

 

 

用VB6调用VC6下编译的DLL中的导出函数，调试运行时会报告“Bad DLL call convention”，而编译成EXE以后直接运行则没有问题。
上网查阅文章后发现，解释方式下的VB调用C语言写的函数，仅限于PASCAL调用约定的函数，也就是stdcall方式，而C方式的函数（cdecl）是不行的，编译运行时无此限制。
解决方法，打开DLL文件源代码，在导出函数的声明和实现前面都加上关键字__stdcall，例如：
// in head file:
int __stdcall myFunction();
 
// in cpp file:
int __stdcall myFunction () { ... }
重新编译DLL并再次运行VB程序，问题解决。

由此不难理解为什么Windows API函数的声明中为什么都有一个“WINAPI”，例如
int
WINAPI
MessageBoxA(
    HWND hWnd ,
    LPCSTR lpText,
    LPCSTR lpCaption,
    UINT uType);

 
因为在windef.h中有以下定义：
#define CALLBACK    __stdcall
#define WINAPI      __stdcall
#define WINAPIV     __cdecl
#define APIENTRY    WINAPI
#define APIPRIVATE  __stdcall
#define PASCAL      __stdcall 
 
 
参考网址：http://support.microsoft.com/kb/158905/EN-US/

	

【摘要】众所周知，PC-DMIS软件不但给我们带来强大的检测功能,还预留了二次开发接口pcdlrn.TLB,用户可根据自我需要编写合适的辅助小软件。本文主要讲述怎样利用PC-DMIS软件自带功能结合以Visual Basic语言编写的小软件“PC-DMIS_to_Form.exe”，把测量程序中的评价数据以Excel表格形式导出，并开源部分源码给有兴趣的朋友作参考。
【关键词】VB, 二次开发, PPAP模板，外部命令，数据提取
【目的】插入PC-DMIS程序代码，使有需求的测量程序能把评价数据以自动报表形式导出到Excel文件中，省却了“打印数据→制表→输入数据→判定”等多步骤工作，节约了大量工作时间。
【方法】
一、 “PC-DMIS_to_Form.exe”辅助软件目录文件及功能详解：
如上图所示：
<1>logo.bmp是可替换的报表表头LOGO图片；
<2>pcdrsys.ini是参数设置文件，用户可根据不同的需求设置Path(报表输出路径)、srt1至srt7是报表表头中的项目标题；
<3>PC-DMIS_to_Form.exe是主程序软件；
<4>导出的Excel文件命名规则：“当前打开的程序名称“+当前的日期与时间。
二、操作步骤如下：
<1>首先把光标移到测量程序最后，然后依次点击菜单栏“插入→外部命令”；
<2>在弹出的窗口中点击“文件浏览”按键，并在打开文件输入窗口中选择“PC-DMIS_to_Form.exe”；
<3>设置选项，如下图：
<4>点击“确定”按键后将自动生成以下程序：
外部命令/不显示, 等待 ; C:\USERS\ADMINISTRATOR\DESKTOP\PC-DMIS TO FORM\PC-DMIS_TO_FORM.EXE
<5>保存程序。往后每次执行该程序并执行到外部程序命令行时，都会自动把程序中的评价数据以固有报表格式保存指定目录的Excel文件中。样式如下图：
当然我们也可以使用定制工具栏“新建项目”方式，把“PC-DMIS_to_Form.exe”添加到PC-DMIS软件工具栏上。需要使用时直接点击该图标就行,具体操作方法可以参照下图，本文就不作详细介绍了。
三、 “PC-DMIS_to_Form.exe”软件关键代码开源及释义：
Private Sub Form_Load()
Me.Visible = False '设置窗口运行时不可见
Dim appPcdmis As Object, cmdsPcdmis As Object, cmdPcdmis As Object, prtPcdmis As Object'变量定义
Dim exlapp As Object, wbook As Object, sht As Object'变量定义
Dim i As String, u As String, pp As String, featName As String, nameid As String'变量定义
Set appPcdmis = CreateObject("PCDLRN.Application")'实例化PC-DMIS应用程序
Set prtPcdmis = appPcdmis.ActivePartProgram'实例化当前激活测量程式的事件
Set cmdsPcdmis = prtPcdmis.Commands
u = 1'赋值
i = 5 '赋值
Set exlapp = CreateObject("excel.application")'实例化Excel应用程序
Set wbook = exlapp.Workbooks.Add '增加一个工作薄
Set sht = wbook.Sheets(1)'打开Excel工作表
sht.Activate '激活工作表
For Each cmdPcdmis In cmdsPcdmis'遍历命令集合中的每个命令
If cmdPcdmis.IsDimension Then'如果命令是尺寸时
If cmdPcdmis.DimensionCommand.Feat1 <> "" Then'获取对象特征标题
nameid = cmdPcdmis.DimensionCommand.Feat1
End If
If cmdPcdmis.DimensionCommand.Feat2 <> "" Then'获取对象特征标题
nameid = nameid & " 至 " & cmdPcdmis.DimensionCommand.Feat2
End If
If cmdPcdmis.DimensionCommand.Feat3 <> "" Then'获取对象特征标题
nameid = nameid & " 至 " & cmdPcdmis.DimensionCommand.Feat3
End If
featName = cmdPcdmis.ID'获取实例对象ID
If cmdPcdmis.Type <> DIMENSION_END_LOCATION And cmdPcdmis.Type <> DIMENSION_START_LOCATION And cmdPcdmis.Type <> DIMENSION_TRUE_START_POSITION And cmdPcdmis.Type <> DIMENSION_TRUE_END_POSITION Then'如果尺寸对象不是开始或结束空值时
If featName <> "" Then'获取对象特征标题
nameid = featName & "=" & nameid
End If
If Format(cmdPcdmis.DimensionCommand.OutTol, "#0.0000") <= 0 Then '判断是否超差
pp = "√"'如果合格时
sht.range("F" & i).Font.Color = RGB(0, 255, 0) '设置符号颜色
Else
pp = "×"'如果不合格时
sht.range("F" & i).Font.Color = RGB(255, 0, 0) '设置符号颜色
End If
sht.range("A" & i) = u '输出序列号
sht.range("B" & i) = Format(cmdPcdmis.DimensionCommand.NOMINAL, "#0.0000") '输出图纸值
sht.range("C" & i) = Format(cmdPcdmis.DimensionCommand.Plus, "#0.0000") '输出上偏差
sht.range("D" & i) = Format(cmdPcdmis.DimensionCommand.Minus, "#0.0000") '输出下偏差
sht.range("E" & i) = Format(cmdPcdmis.DimensionCommand.Measured, "#0.0000") '输出测量值
sht.range("F" & i) = pp '输出判定
sht.range("G" & i) = nameid & "(" & GetAxis(cmdPcdmis.Type) & ")" '输出元素标题备注
u = u + 1'变量叠加运算
i = i + 1'变量叠加运算
End If'结束条件语句
End If'结束条件语句
Next’下一个循环，直到遍历完命令集合中的每个命令为止
exlapp.DisplayAlerts = True '关闭Excel时提示保存
exlapp.Visible = True '设置Excel对象可见
Set sht = Nothing'释放Excel资源
Set wbook = Nothing'释放Excel资源
Set exlapp = Nothing '释放Excel资源
END’结束软件
End Sub
参考文献
1.《PC-DMIS参考手册》
2.《pcdbasic.chm》