主题：获取excel数据总是报错

 代码改一下

Dim dlg As new OpenFileDialog
dlg.Filter="Exel|*.xls"
If (dlg.showdialog=dialogresult.ok) Then
    Dim mg As new Merger
    mg.SourcePath=dlg.filename
    mg.Format="excel"
    mg.SourceTableName="股piao$"
    mg.Fields="股piao代码,股piao名称"
    mg.DataTableName="表a"
    mg.merge()
End If