主题：[求助]文件路径手动填写

 想实现的功能就是，在窗口中添加一个textbox控件和一个button，在textbox中输入文件路径，点击button，即把textbox中指定的文件内容导入到foxtable。
或者其它方法，实现类似功能。

红袍哥太给力了，谢谢！

红袍哥，我在你这个基础上改了改，想实现的是直接合并选择的文件。
Dim mg As New Merger
Dim dlg As New OpenFileDialog
Dim s As String
dlg.Filter= "Excel文件|*.xlsx" '设置筛选器
s = dlg.FileName
's = "E:\可靠性\资料\test.xlsx"
mg.SourcePath = s
'mg.SourcePath = "e:\可靠性\Excel报表\订单.xlsx"
'mg.SourcePath = e.Form.Controls("TextBox1").Value
mg.Format = "excel" '指定格式
mg.SourceTableName = "sheet1$" '指定要合并的表
mg.DataTableName = "订单" '指定接收数据的表
mg.Merge() '开始合并

但是行不通，需要怎样才能将选定的文件路径复制给mg.SourcePath呢？

将Excel文件导入或合并到foxtable过程中，有些含有特殊符号的列无法导入。例如

CY TSN

FH TSN

送修至拆下时间/FH

送修至拆下时间/CY

有没有什么办法，在不改变Excel文件列名的情况下，完成数据合并

Dim Book1 As New XLS.Book("E:\可靠性\软件\10月\飞行小时循环\73n\1月.xls")
Dim Sheet1 As XLS.Sheet = Book1.Sheets(0)
Tables("飞行小时").StopRedraw()
'注意以下数组中列名称的顺序,必须和Excel表中的列顺序一致
Dim nms() As String = { "ACReg" ,"Msn","TsnFh","TsnCy","TsnFd","LogQty","TotFh","TotCy","Blocktime","RevFh","NonReFh","TotFd","RevCy","NRevCy","Fullp","Flights" }
''注意下面的循环变量从2开始,而不是从0开始,因为Excel表的第一行 第二行是标题
For n As Integer = 2 To Sheet1.Rows.Count -1
    Dim bh As String = Sheet1(n,1).Text
    If DataTables("飞行小时").Find("Msn = '" & bh & "'") Is Nothing Then '如果不存在同Msn的数据
        Dim r As Row = Tables("飞行小时").AddNew()
        For m As Integer = 0 To nms.Length - 1
            r(nms(m)) = Sheet1(n,m).Value
        Next
    End If
Next
Tables("飞行小时").ResumeRedraw()

红袍哥，上面是我写的代码，但是目前只能实现将一个excel表数据导入进来，我想实现的功能是能够将E:\可靠性\软件\10月\飞行小时循环\73n路径下的所有excel都导入进来，这些数据表的格式是一样的

先谢谢你哈，不过getfile只是返回文件名，这个在用merge合并的时候可以用。因表格的原因，无法使用merge进行合并。我这是利用代码合并，需要指定路径和文件名 :Dim Book1 As New XLS.Book("E:\可靠性\软件\10月\飞行小时循环\73n\1月.xls")，这句话怎么用getfile呢?