共4 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：objExcel.Application.save的问题
1楼
dwjgwsm 发表于：2014/9/14 11:19:18代码中如果加入
此主题相关图片如下：2014-09-14_111536.jpg
objExcel.Application.save
那么每次运行必定出现这个问题:
此主题相关图片如下：2014-09-14_111536.jpg我去找了一下(显示隐藏文件,系统文件),查不到这个文件.如果不加这一句,一切正常.
请问什么缘故?
2楼
dwjgwsm 发表于：2014/9/14 11:22:29Sub cs()
On Error Resume Next
filestr="E:\滑点记录.xlsm"
tname=""
filename=filestr
do
filename=right(filename,len(filename)-instr(filename,"\"))
loop while instr(filename,"\")>0 '取得文件名
Set objExcel = GetObject(,"Excel.Application")
if Err.number=0 then
Set objExcel = GetObject(filestr)
else
Set objExcel = CreateObject("Excel.Application")
Set objExcel = GetObject(filestr)
Err.clear
end if
objExcel.Parent.Windows(filename).Activate
objExcel.Application.Visible = true
objExcel.Application.Sheets("Sheet1").range("a2")="测试4"
objExcel.Application.save
'objExcel.Application.quit
End Sub
3楼
guotx2010 发表于：2014/9/15 21:59:13加上objExcel.Application.displayalert=false就不会提示警告提示了！
4楼
dwjgwsm 发表于：2014/9/22 0:12:11对的~谢谢版主!
共4 条记录, 每页显示 10 条, 页签:
[1]