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
上面的代码执行时总是要多一次选择文件，如何改才能不用再选择一次，直接调用第一次选择的文件，下面的代码需要怎样修改，想了大半天了
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("客户资料")
加好友 
发短信
Post By：2019/11/7 20:59:00 [显示全部帖子]
此主题相关图片如下：111.png
