主题：如何才能在窗口Combobox控件引用EXCEL表列值

这个是EXCEL导入功能，你的意思是：如果要调用的话就要导入后才能引用吗？

Dim App As New MSExcel.Application 
Dim dlg As String
dlg = e.Form.Controls("TextBox1").value
Dim Wb As MSExcel.Workbook = App.WorkBooks.Open(dlg)
App.Visible = True

Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets("客户资料")
Ws.Activate
Dim WT As MSExcel.WorkSheet = Wb.WorkSheets("销售明细")
WT.Range("A:A").AdvancedFilter(Action:=2,CopyToRange:=WS.Range("N:N"),Unique:=True)

Dim dtb As New DataTableBuilder("对帐客户")
dtb.AddDef("客户名", Gettype(String), 255)
dtb.Build()
MainTable= Tables("对帐客户")

 

Dim dlg1 As New OpenFileDialog '定义一个新的OpenFileDialog
dlg1.Filter= "Excel文件|*.xls|Word文件|*.doc|Access文件|*.mdb" '设置筛选器
If dlg1.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
   Dim IP As NEW xls.book(dlg1.FileName)
   Dim Sheet As xls.Sheet = WB("客户资料")
   For i As Integer = 1 To Sheet.Rows.Count-1
       Dim dr As Row = Tables("对帐客户").AddNew()
       dr("客户名") = sheet(i,13).text       '日期
   Next
End If

上面的代码执行时总是要多一次选择文件，如何改才能不用再选择一次，直接调用第一次选择的文件，下面的代码需要怎样修改，想了大半天了