主题：[求助]关于合并导入Excel代码优化

 sqlfind 的话，一般是在使用频率不高的情况下使用的。因为每次连接数据库都需要开销

 如果需要多次查询的话，最好先把所有数据都拿出来，再查找

 你这个是日期时间的问题，需要取巧取值。

 代码

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    Dim Book As New XLS.Book(dlg.FileName) '指定数据文件
    Dim Sheet As XLS.Sheet = Book.Sheets(0)
    Dim Style As XLS.Style = Book.NewStyle() '定义新样式
    style.Format = ""
    sheet(1,1).style = style
   
    book.Save(dlg.FileName)
  
    Book = New XLS.Book(dlg.FileName) '指定数据文件
    Sheet = Book.Sheets(0)
    msgbox(DateTime.FromOADate(sheet(1,1).value))
End If

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=39053

选两次？此话怎么说？

我看了例子，一次导入的。

新问题，请重新发帖提问。