以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  无法导出到指定文件夹，求教  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=118148)
--  作者：tingke
--  发布时间：2018/4/26 8:40:00
--  无法导出到指定文件夹，求教
Dim Book As New XLS.Book("E:\\onedrive\\Doosung\\G3K\\G3K模板.xlsx")
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xlsx" \'设置筛选器
dlg.FileName = "G3K" & format(Date.today, "M-d") & ".xlsx"
If dlg.ShowDialog = DialogResult.Ok Then
    Book.Save(dlg.FileName)
    Book.save("E:\\OneDrive\\Doosung\\G3K\\")
    Dim Proc As New Process
    Proc.File = dlg.FileName
    Proc.Start()
End If
--  作者：有点甜
--  发布时间：2018/4/26 8:58:00
--  

Dim Book As New XLS.Book("E:\\onedrive\\Doosung\\G3K\\G3K模板.xlsx")
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xlsx" \'设置筛选器
dlg.FileName = "G3K" & format(Date.today, "M-d") & ".xlsx"
If dlg.ShowDialog = DialogResult.Ok Then
    book.Build
    Book.Save(dlg.FileName)
    Dim Proc As New Process
    Proc.File = dlg.FileName
    Proc.Start()
End If

[此贴子已经被作者于2018/4/26 8:58:59编辑过]
--  作者：tingke
--  发布时间：2018/4/26 21:19:00
--  
刚测试了，还是要手动选择文件夹，我想将生成的表格保存到固定文件夹，比如E:\\OneDrive\\Doosung\\G3K\\，请大神多多指教
--  作者：有点甜
--  发布时间：2018/4/26 21:26:00
--  
Dim Book As New XLS.Book("E:\\onedrive\\Doosung\\G3K\\G3K模板.xlsx")
Dim Sheet As XLS.Sheet = Book.Sheets(0)
dim file as string = "E:\\OneDrive\\Doosung\\G3K\\G3K" & format(Date.today, "M-d") & ".xlsx"
Book.save(file)
Dim Proc As New Process
Proc.File = file
Proc.Start()
--  作者：tingke
--  发布时间：2018/4/26 21:40:00
--  
谢谢指教，我试下
--  作者：xybcxh
--  发布时间：2018/10/24 16:53:00
--  

试试看
    Book.Save("E:\\onedrive\\Doosung\\G3K\\G3K模板.xlsx")