- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 如何才能在窗口Combobox控件引用EXCEL表列值 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=142872)
-- 发布时间：2019/11/7 20:59:00
-- 如何才能在窗口Combobox控件引用EXCEL表列值
此主题相关图片如下：111.png
如何才能在窗口Combobox控件直接引用EXCEL表A列值, 如何设置代码好
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.rar |
-- 发布时间：2019/11/7 21:11:00
--
我都要确定一下？？是EXCEL？未导入的值？
-- 发布时间：2019/11/7 23:24:00
--
是EXCEL及未导入的值
-- 发布时间：2019/11/8 9:37:00
--
看看：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=105144
-- 发布时间：2019/11/8 14:24:00
--
这个是EXCEL导入功能，你的意思是：如果要调用的话就要导入后才能引用吗？
-- 发布时间：2019/11/8 14:37:00
--
请仔细看4楼的用法，是怎么获取未导入前的execl内容的
Dim Book As New XLS.Book("c:\\test\\订单.xls")
Dim Sheet As XLS.Sheet = Book.Sheets(0)
For n As Integer = 0 To Sheet.Cols.Count -1
msgbox(Sheet(0,n).Value)
Next
-- 发布时间：2019/11/8 15:40:00
--
已解决，我增加一个临时表来处理了
-- 发布时间：2019/11/8 15:40:00
--
不过要经过三个工序能才解决
-- 发布时间：2019/11/8 15:41:00
--
哪个EXCEL导入功能很强大，我想了很久了，真的多谢老师
-- 发布时间：2019/11/8 16:39:00
--
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 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)
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("对帐客户")
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
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("客户资料")
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("客户资料")