- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 关于提示这个问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=105858)
-- 发布时间：2017/8/28 10:29:00
-- 关于提示这个问题
提示这个问题什么情况
此主题相关图片如下：1.png
-- 发布时间：2017/8/28 10:31:00
--
贴出可以测试的代码看看。看看是代码问题，还是电脑问题。
-- 发布时间：2017/8/28 10:34:00
--
Dim str As String
Dim strLuJing As String
Dim strLuJingJian As String \'监视文件夹路径
Dim mingZi As WinForm.TextBox = e.Form.Controls("TextWenJianMing")
str = mingZi.Text
Dim ro As Row
Dim ftp1 As new ftpclient
ftp1.host="192.168.1.107"
ftp1.Account = "sara"
ftp1.Password = "123456"
ftp1.UTF8 = True
Dim strDes As String
If Vars("nType")=0 Then \'word
str = str &".docx"
Dim app As New MSWord.Application
app.DisplayAlerts = False
try
Dim dic = app.Documents.add
strLuJing="d:\\Download1\\"&str
dic.SaveAs(strLuJing)
app.Quit
strLuJingJian ="d:\\Download2\\"&str
If FileSys.FileExists(strLuJing) Then
system.Threading.Thread.sleep(1000)
If FileSys.FileExists(strLujingjian) Then FileSys.DeleteFile(strLuJingJian, 2, 2)
FileSys.MoveFile(strLuJing,strLuJingJian)
End If
app.Visible = True
catch ex As exception
msgbox(ex.message)
app.Quit
finally
End try
ro = Tables("文档信息").AddNew
ro("名称") = str
strDes = "/" & str
ftp1.Upload(strLujingjian,strDes)
-- 发布时间：2017/8/28 10:44:00
--
我测试没问题。
加入msgbox，看执行到哪句代码开始报错。
http://www.foxtable.com/webhelp/scr/1485.htm
-- 发布时间：2017/8/28 11:16:00
--
MessageBox.Show(5)
strLuJingJian ="d:\\Download2\\"&str
MessageBox.Show(6)
If FileSys.FileExists(strLuJing) Then
system.Threading.Thread.sleep(1000)
MessageBox.Show(7)
If FileSys.FileExists(strLujingjian) Then FileSys.DeleteFile(strLuJingJian, 2, 2)
MessageBox.Show(8)
FileSys.MoveFile(strLuJing,strLuJingJian)
MessageBox.Show(9)
End If
app.Visible = True
MessageBox.Show(1)
一直到9都能打印出来，1打印不出来
-- 发布时间：2017/8/28 11:21:00
--
会不会是我在文件监视器里面加打印的事情？反正是打印出来名字，然后就有问题了
-- 发布时间：2017/8/28 11:23:00
--
试试改成这样
App = New MSExcel.Application
wb = App.WorkBooks.open(strLuJingJian)
app.visible = True
-- 发布时间：2017/8/28 11:31:00
--
我的是word
-- 发布时间：2017/8/28 11:44:00
--
那就改成
App = New MSWord.Application
wb = App.Documents.open(strLuJingJian)
app.visible = True
-- 发布时间：2017/8/28 11:51:00
--
wb怎么定义啊