Question

vb实时错误 70 拒绝的权限

Dim F1Name, F2Name As String
Dim myWS As Worksheet
'Dim i, j As Integer

'**************** 设置模板文件和临时工作文件名字 ********
F1Name = "C:\Program Files\GE Fanuc\Proficy iFIX\PIC\kaidu1.xls" '这里应该是模板文件名"
F2Name = "C:\Program Files\GE Fanuc\Proficy iFIX\APP\kaidu.xls" '在这里规定临时工作文件名
'*********************************************************

'Me.WebBrowser1.Navigate "C:\Program Files\GE Fanuc\APP\APP\kaidu.xls"
'创建Excel应用对象

Me.WebBrowser1.Stop
Me.WebBrowser1.Navigate F1Name

If aa Is Nothing Then
Set aa = CreateObject("Excel.Application")
Else
If aa.ActiveCell Is Nothing Then
aa.DisplayAlerts = False
aa.Quit
Set aa = CreateObject("Excel.Application")
Else
For i = 0 To aa.Windows.Count - 1
aa.ActiveWindow.Close SaveChanges:=False
Next
End If
End If

'将模板文件F1Name结构拷贝到临时工作文件F2Name。
'这里 FileCopy 为VB语句。
FileCopy F1Name, F2Name

'打开临时工作文件F2Name
Set yy = aa.Workbooks.Open(Filename:=F2Name)

Answer 1

vb实时：错误代码：70 拒绝的权限
原因：客户端的用户没有通过中间层服务器的身份验证，所以导致登录主控台时出现该提示，或者是中间层服务器/客户端上中了病毒，把分布式COM停止了。

解决方法：
a ) 该方法通常适用于一台或数台客户端不能登录的情况，不适用于所有的客户端不能登录的情况，首先，检查服务器上有无该客户端当前登录用户名，如有则可能是客户端的擅自更改了客户端的用户windows登录密码，该密码并未得到中间层服务器的认可，请改回原密码。

b) 该方法通常适用于部分客户端不能登录的情况，如果密码没有改变，出现该错误代码，则有可能是该客户端上的COM服务被病毒停止，请在该客户端上的开始菜单—设置—控制面板—管理工具—组件服务—在出现的窗口中，选择左侧的组件服务—计算机—用鼠标右击”我的电脑”,选择”属性”—在新出现的窗口中选择”默认属性”选项卡—把第1个”在计算机上启用分布式COM”勾选,在”默认身份验证级别”下选”无”,在”默认身份模拟级别”下选”匿名”—点击”确定”后退出，启动K3，如果K3不能启动，则把客户端重新启动即可。

Answer 2

可能拷贝临时文件已存在的话会出错，先判断一下临时文件已存在的话先删除它。
if dir (F2Name)<>"" then kill F2Name
FileCopy F1Name, F2Name

Set yy = aa.Workbooks.Open(Filename:=F2Name) 这句打开了临时文件，在拷贝的时候可能它还没关闭。先close 它。

弄错了，这句在下面，不会有可能，有没有其它地方打开了临时文件？

这种情况有一种可能，假如这些代码在一个按钮事件中，而aa 是个模块变量，那么第二次点击按钮时由于临时文件上次打开还未关闭，就无法拷贝。

追问

呵呵，首先谢谢你！是你说的这种现象。那具体怎样判断这个临时文件是否为打开状态，怎么能够关闭他，具体的语句和顺序应该是怎样的

追答

可以在拷贝前：set yy= nothing
工作簿也不怎么懂，不如这样
Dim a As Workbook
For Each a In Workbooks
If a.FullName = F2Name Then '在集合中检索一下此文件并关闭它
a.Close False
End If
Next