エクセルマクロでファイルを作れません
ワークブックを開く時に自動的にxmlファイルを作るマクロを組みました。
しかし、そのマクロを組んだPCでは正常にxmlファイルが作成されますが、
他のPCで試したらxmlファイルが作成されずにエラーになりました。
その【xmlファイルが作成されなかった】理由がわかりません。
例えば、PCのセキュリティで、マクロによるファイルの読み書きの動作が弾かれていたりするのでしょうか。
以下、そのマクロの本文です。
解決の手がかりだけでも掴めましたら教えていただくと嬉しいです。
Private Sub Workbook_Open()
' ワークブックを開く時のイベント
'Cドライブ直下に「あああ.xml」ファイルが存在すれば削除
If Dir("C:\あああ.xml") <> "" Then
Kill "C:\あああ.xml"
Else
End If
'xmlファイルを作成
' XMLファイル保存先の指定
Dim iFileNum As Integer
iFileNum = FreeFile
Dim SaveFileName As String
SaveFileName = "C:\あああ.xml"
Open SaveFileName For Output As #iFileNum '←ここでエラーになります！！
''xmlファイル本文の作成
Print #iFileNum, "<?xml version=""1.0"" encoding=""UTF-8""?>"
Print #iFileNum, "<markers>"
Print #iFileNum, "</markers>"
'後処理
If iFileNum > 0 Then Close #iFileNum
End Sub
補足
開けず困り果てています。