"用料数据.xls"在网络共享,通过tp.txt读取
以下导出代码
Dim ex As New Exporter
Dim Fl As String = ProjectPath & "tp.txt"
Fl = FileSys.ReadAllText(Fl,Encoding.Default)
Dim Book As New XLS.Book (Fl & "用料数据.xls")
ex.SourceTableName = "用料" '指定导出表
'ex.FilePath = F1 & "用料数据.xls"
ex.Format = "Excel" '导出格式为Excel
ex.Export() '开始导出
以下是保存代码
Dim Fl As String = ProjectPath & "tp.txt"
Fl = FileSys.ReadAllText(Fl,Encoding.Default)
Dim Book As New XLS.Book (Fl & "用料数据.xls")
CurrentTable.SaveExcel(F1 & "用料数据.xls","用料")
都提示路径错误,请老师帮忙修改