问题：找不到工程库
 
解决方式：
 
 
 
    1、在VBE中选择报错的工程；
     2、单击“工具”-->“引用”，打开引用对话框；
     3、在“可使用的引用”中查找带勾项中含“丢失...”、“找不到...”、“MISSING...”的条目，并取消勾选；

     一般情况下，用第3步即可解决，如问题依旧，请在“可使用的引用”中查找并勾选与丢失的条目类似的引用（一般除版本号不同，其它名称相同，如有多个版本，请选择最高版本）。
     如果还不能解决，可能是电脑中缺少控件或对象库，需要下载控件并注册（控件的注册使用regsvr32命令），再使用上面的步骤解决！

用VC2013制作了个生成二维码的DLL，目的是给VBA调用。
 
本机编译后，运行正常。但在目标机器上却提示“VBA错误信息:找不到指定的文件“xxx.dll”（错误 53）”。
 
然后换用CodeBlocks+MingW编译，运行正常。
 
网上也查了很多方法，也无法解决。
 
最后突然想到，是不是目标机器缺少运行库？
 
然后网上找VC运行库打包安装到目标机器，果然运行正常。
 
因此，更好的解决方案是把用到的运行库函数静态链接到目标程序中（VC默认是动态链接，目标程序不包含运行库函数代码）。
 
设置方法：项目--属性页--C/C++ --代码生成--多线程（/MT）
 

 
 
问题是解决了，但VBA的错误提示迷惑性较大，其中细节有空再深究。

工程-引用-把所有的“引用”都去掉，保存整个工程，关闭.
 重新打开，再把引用都加上.
 前3个引用去不掉.

 
EXCEL中的导入data的功能。(data-> import   external   data)
 
Sub   Macro1() '
 
'   Macro1   Macro
 
'   test   for   sunhaifeng
 
'   sunhf@cn.ibm.com
 
'
 
If   FileExists( "c:\BookforTestData.csv ")   Then
 
Kill   "c:\BookforTestData.csv "
 
End   If
 
Workbooks.Add
 
With   ActiveSheet.QueryTables.Add(Connection:= "TEXT;E:\test.csv ",   Destination   _
 
:=Range( "A1 "))
 
.Name   =   "test "
 
.FieldNames   =   True
 
.RowNumbers   =   False
 
.FillAdjacentFormulas   =   False
 
.PreserveFormatting   =   True
 
.RefreshOnFileOpen   =   False
 
.RefreshStyle   =   xlInsertDeleteCells
 
.SavePassword   =   False
 
.SaveData   =   True
 
.AdjustColumnWidth   =   True
 
.RefreshPeriod   =   0
 
.TextFilePromptOnRefresh   =   False
 
.TextFilePlatform   =   932
 
'这里我的cvs文件的编码是shift-jis.需要其他编码的代号可以自己录
 
.TextFileStartRow   =   1
 
.TextFileParseType   =   xlDelimited
 
.TextFileTextQualifier   =   xlTextQualifierDoubleQuote
 
.TextFileConsecutiveDelimiter   =   False
 
.TextFileTabDelimiter   =   True
 
.TextFileSemicolonDelimiter   =   False
 
.TextFileCommaDelimiter   =   True
 
.TextFileSpaceDelimiter   =   False
 
.TextFileColumnDataTypes   =   Array(1,   1,   1,   1)
 
.TextFileTrailingMinusNumbers   =   True
 
.Refresh   BackgroundQuery:=False
 
End   With
 
ActiveWorkbook.SaveAs   Filename:= "c:\BookforTestData.csv ",   FileFormat:=xlCSV,   _
 
CreateBackup:=False
 
ActiveWorkbook.Close   SaveChanges:=True
 
Dim   MyChar
 
Dim   strText   As   String
 
Dim   FileNum   As   Integer
 
Dim   str()   As   String
 
Dim   count   As   Integer
 
Dim   count1   As   Integer
 
count   =   1
 
Open   "c:\BookforTestData.csv "   For   Input   As   #1
 
Do   While   Not   EOF(1)
 
Line   Input   #1,   strText
 
str   =   Split(strText,   ", ")
 
count1   =   UBound(str)
 
For   i   =   0   To   count1
 
Worksheets(1).Cells(i   +   1,   count).Value   =   str(i)
 
Next   i
 
count   =   count   +   1
 
Loop
 
Close   #1
 
If   FileExists( "c:\BookforTestData.csv ")   Then
 
Kill   "c:\BookforTestData.csv "
 
End   If
 
End   Sub
 
Private   Function   FileExists(fname)   As   Boolean
 
Dim   x   As   String
 
x   =   Dir(fname)
 
If   x   <>   " "   Then   FileExists   =   True   _
 
Else   FileExists   =   False
 
End   Function