Sub printFiledValueFromSQL(var_recordSet As Variant,fieldName As String,isText As Boolean)
%REM
功能：获取数据从SQL
参数：
var_recordSet As Variant 记录集合
fieldName As String, 字段名 多个用逗号分割
isText As Boolean, 是否文本

作者：杨伟成
日期：20150923
%END REM
 classText$=""
 
 If isText=True Then
  classText$="class='xlsText'"
 End If
 
 Dim sarray As Variant
 sarray=Split(fieldName,",")
 
 allValue$=""
 
 For i=0 To Ubound(sarray)
  If Not Isnull(var_recordSet.fields(sarray(i)).value)=True Then
   allValue$=allValue$+var_recordSet.fields(sarray(i)).value
  End If
 Next
 
 Print "<td "+classText$+">"+allValue$+"</td>"
 
 
End Sub