以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]关于打印是路径问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=89160)
--  作者：陌聲人
--  发布时间：2016/8/16 15:10:00
--  [求助]关于打印是路径问题

请问老师们，代码最后，我将Excel保存在桌面，但并不是每台电脑的桌面路径都是一样的，有没有办法可以解决，让这代码适用于每台电脑？

Dim dt As Table = CurrentTable
Dim Book As New XLS.Book
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Dim Style As Xls.Style = Book.NewStyle
Style.BackColor = Color.Red
Dim i As Integer = 0
For c As Integer = 0 To dt.Cols.Count -1
    If dt.Cols(c).Visible Then
        Sheet(0, i).Value = dt.Cols(c).Caption
        i = i + 1
    End If
Next

i = 1
For r As Integer = dt.TopPosition To dt.BottomPosition
    Dim j As Integer = 0
    For c As Integer = 0 To dt.Cols.Count -1
        If dt.Cols(c).Visible Then
            Sheet(i, j).Value = dt.rows(r)(c)
            j += 1
        End If
    Next
    i += 1
Next
Book.Save("C:\\Users\\asus\\Desktop\\临时\\test.xls")
Dim Proc As New Process
Proc.File = "C:\\Users\\asus\\Desktop\\临时\\test.xls"
Proc.Start()
--  作者：大红袍
--  发布时间：2016/8/16 15:14:00
--  

 参考

 

http://www.foxtable.com/webhelp/scr/1996.htm

 
--  作者：陌聲人
--  发布时间：2016/8/16 15:30:00
--  回复：（大红袍） 参考 http://www.fox...
红袍老师，我试了下老出问题，您看看怎么修改，这代码也是您修改过给我的。
--  作者：大红袍
--  发布时间：2016/8/16 15:42:00
--  
Book.Save(DesktopDirectory & "\\临时\\test.xls")
Dim Proc As New Process
Proc.File = DesktopDirectory & "\\临时\\test.xls"
Proc.Start()
--  作者：陌聲人
--  发布时间：2016/8/16 19:49:00
--  回复：（大红袍）Book.Save(DesktopDirectory & "...
提示错误，未声明DesktopDiretory
--  作者：大红袍
--  发布时间：2016/8/16 20:35:00
--  

 

Book.Save(SpecialFolder.DesktopDirectory & "\\临时\\test.xls")
Dim Proc As New Process
Proc.File = SpecialFolder.DesktopDirectory & "\\临时\\test.xls"
Proc.Start()