- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 打开对应文件 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=124689)
-- 发布时间：2018/9/12 0:40:00
-- 打开对应文件
如果我把文件放到 文件路径列，然后在文本文件列输入 文件路径列路径的文件名，点击按钮如何打开啊 ，感谢 感谢
此主题相关图片如下：搜狗截图18年09月12日0039_1.png
-- 发布时间：2018/9/12 9:19:00
--
Dim r As Row = Tables("表A").Current
Dim proc As New Process
proc.file = r("文件路径") & r("文本文件")
proc.start
-- 发布时间：2018/9/12 10:27:00
--
感谢 感谢
能帮忙看看这个吗？
Dim fileName As String = Tables("计划表窗口_Table7").Current("文件路径").Current("文本文件")
If filename.EndsWith(".Table") Then
Dim Proc As New Process \'定义一个新的Process
Proc.File = filename \'指定要打开的文件
Proc.Start()
Dim fdr As DataRow = DataTables("日计划").Find("日期 = \'" & Date.Today & "\'")
If fdr IsNot Nothing Then
fdr("学习科目") &= Tables("计划表窗口_Table7").Current("学习名称") & ";"
End If
Tables("计划表窗口_Table7").Current("最近日期")=Date.now \'记录学习时间
Else
Dim app As New MSWord.Application
try
Dim doc = app.Documents.Open(fileName)
app.ActiveWindow.Selection.WholeStory
app.ActiveWindow.Selection.MoveRight(Unit:=1, Count:=1)
app.ActiveWindow.Selection.TypeParagraph
\'app.ActiveWindow.Selection.TypeText(Text:=Date.Today & " 第" & datepart( "ww",Date.today) & "周") \'只是显示日期
app.ActiveWindow.Selection.TypeText(Text:=Date.now & " 第" & datepart( "ww",Date.today) & "周")
app.Visible = True
catch ex As exception
msgbox(ex.message)
app.Quit
End try
Dim fdr As DataRow = DataTables("日计划").Find("日期 = \'" & Date.Today & "\'")
If fdr IsNot Nothing Then
fdr("学习科目") &= Tables("计划表窗口_Table7").Current("学习名称") & ";"
End If
Tables("计划表窗口_Table7").Current("最近日期")=Date.now \'记录学习时间
End If
-- 发布时间：2018/9/12 10:37:00
--
Dim r As Row = Tables("计划表窗口_Table7").Current
Dim fileName As String = r("文件路径") & r("文本文件")