将文本从Excel 2007写入Sharepoint站点上的.txt文件

Question

我在Excel 2007项目中拥有此VBA子文件。它在Sharepoint站点的.txt文件中记录用户名，报告名称，日期和版本。我的一些用户遇到了"Run-Time error'76' Path not found问题。

这里是我的代码：

Sub logReport(ReportName As String) 

Call AppendTxt("//myaviall/teamsites/AviallReportingSolutions/Airplane_Usage_Log/Airplane_ACT.txt", UNameWindows & ";" & ReportName & ";" & Now & ";" & VersionNum) 

昏暗OFS，TS，FileObj文件

'获取文本流 ' 设置OFS =的CreateObject（ “Scripting.FileSystemObject的”） “设置FileObj文件= oFS.GetFile （ “//myaviall/teamsites/AviallReportingSolutions/Airplane_Usage_Log/Airplane_ACT.txt”） “设置TS = FileObj.OpenAsTextStream（8，-2） 'ForWriting，TristateUseDefault）

' 写入文件

'TS.WriteLine UNameWindows & ";" & ReportName & ";" & Now & ";" & VersionNum 
    'TS.Close 

    'Set TS = Nothing 
    'Set FileObj = Nothing 
    'Set oFS = Nothing 

结束子

功能AppendTxt（sFile作为字符串，STEXT作为字符串） 对错误转到Err_Handler 昏暗FileNumber作为整数

FileNumber = FreeFile     ' Get unused file number 
Open sFile For Append As #FileNumber ' Connect to the file 
Print #FileNumber, sText    ' Append our string 
Close #FileNumber      ' Close the file 

Exit_Err_Handler： 退出功能

Err_Handler： MsgBox“发生了以下错误”& vbCrLf & vbCrLf & _ “错误号码：” &的Err.Number & vbCrLf & _ “错误来源：AppendTxt” & vbCrLf & _ “错误描述：” & Err.Description，vbCritical，“出现了一个错误！ “ 转到Exit_Err_Handler 端功能

Answer 1

如果只有一个是让这个问题，我会看它的访问，斯科特指出的第一件事用户。

我跑这从Outlook基于这里的代码写入一行到CSV文件 http://www.devhut.net/2011/06/06/vba-append-text-to-a-text-file/

这可能不是你的答案，但如果访问是确定的，然后它想不出伤害尝试另一个非常类似的程序方法。

更新

我还包括到我的代码这个测试文件是否存在

exists = Dir$(sFile) <> fileName 

其中FileName =“Airplane_ACT.txt”不过，我想，也许尝试这与一个MsgBox看它返回什么。

也尝试尝试将您的字符串更改为Airplane_ACT_test.txt并运行代码，这应该创建一个新的txt文件，如果情况如此，那么问题可能与您的初始txt文件有关。

最后一件事：尝试一个不同的路径，例如：到用户的桌面。