导出表时,如何在空白行停止:
Dim x
x=DataTable.Value("p_Passengers", dtLocalSheet)
If x="" Then
ExitRun
End If
excel表格导入时避免重复导入:
intRowCount
intRowCount=DataTable.GetRowCount
If intRowCount=0 Then
DataTable.Import("C:\Users\student\Desktop\Chapter15.xls")
End If