excel vba中的权限被拒绝错误
我正在用excelvba编写一个函数excel vba中的权限被拒绝错误,vba,excel,Vba,Excel,我正在用excelvba编写一个函数 Function WriteByteArray(vData As Variant, sFileName As String, Optional bAppendToFile As Boolean = False) As Boolean Dim iFileNum As Integer, lWritePos As Long Debug.Print " --> Entering WriteByteArray function with "
Function WriteByteArray(vData As Variant, sFileName As String, Optional bAppendToFile As Boolean = False) As Boolean
Dim iFileNum As Integer, lWritePos As Long
Debug.Print " --> Entering WriteByteArray function with " & sFileName & " file to write."
On Error GoTo ErrFailed
If bAppendToFile = False Then
If Len(Dir$(sFileName)) > 0 And Len(sFileName) > 0 Then
'Delete the existing file
VBA.Kill sFileName
End If
End If
iFileNum = FreeFile
Debug.Print "iFileNum = " & iFileNum
'Open sFileName For Binary Access Write As #iFileNum
Open sFileName For Binary Lock Read Write As #iFileNum
If bAppendToFile = False Then
'Write to first byte
lWritePos = 1
Else
'Write to last byte + 1
lWritePos = LOF(iFileNum) + 1
End If
Dim buffer() As Byte
buffer = vData
Put #iFileNum, lWritePos, buffer
WriteByteArray = True
Exit Function
ErrFailed:
Debug.Print "################################"
Debug.Print "Error handling of WriteByteArray"
Debug.Print "################################"
FileWriteBinary = False
Close iFileNum
Debug.Print Err.Description & "(" & Err.Number & ")"
End Function
我在VBA中遇到一个权限被拒绝的错误。Kill and Open有人能帮我吗?当函数返回时,您忘记关闭文件,您当前只在出现错误时才这样做 文件句柄在代码运行之间保持不变,因此当您重新运行它时,您尝试对已打开并显式锁定的文件进行操作,从而导致错误