win7 32運行VBA錯誤

 FileName="D:\"&Date&" Test.Log"
 Set fs = CreateObject("Scripting.FileSystemObject")
 Set a =fs.OpenTextFile(FileName,8,true)

 a.WriteLine(now &logMsg)
 a.close

這樣的代碼在win7 32位操作系統下 運行到第三行時，產生如下錯誤

此主題相關圖片如下：qq圖片20131202104651.jpg

此主題相關圖片如下：qq圖片20131202104642.jpg

金字塔可以運行 的，需要什么權限

如果代碼在XP上可以運行，WIN7不行說明是操作系統權限的問題了。

建議你關掉WIN7的UAC后再試試。