マクロ作成後、エラー70が出て動作しません。
■EXCEL2010のマクロについて■
マクロ作成後、下記のエラーが出てしまいます。
実行時エラー 70
書込みできません。
↓デバックを見ると、この箇所に黄色いマークがつきます。
Set out = fs.CreateTextFile(fpath & "\sitelist.csv", True)
色々と確認して見ましたが、よくわかりません。
★原因と思われるのが
マクロ-シート(マクロ管理シート)を作成後、
そのファイルを開くと(マクロ管理シート1)で表示されてしまい、
エラー 1004が出ます。
ただし、ドロップ&ドラッグすれば、(マクロ管理シート)が表示され、
マクロが問題なく動作します。
どうすればよいのでしょうか?
知り合いにもらったマクロを元にいじっていますので、
よくわからない部分もありますが、よろしくお願いいたします。
---------------------------------------
以下、マクロです。
Sub 作成_Click()
Dim fpath As String
Dim fs As Object
Dim out As Object
Dim i As Long
Dim myArray() As String
Dim title As String
fpath = ActiveWorkbook.Path
Set fs = CreateObject("Scripting.FileSystemObject")
Set out = fs.CreateTextFile(fpath & "\sitelist.csv", True)
For i = 5 To 105
title = Cells(i, 1)
Mar = Cells(i, 2)
Email = Cells(i, 3)
URL = Cells(i, 4)
msg = Cells(i, 5)
category_miumiulink = Cells(i, 6)
category_inavi = Cells(i, 7)
other_link = Cells(i, 8)
passwd = Cells(i, 9)
keyword = Cells(i, 10)
ame = Cells(i, 11)
temprate = Cells(i, 12)
jyanru = Cells(i, 13)
If title = "" Then
Exit For
End If
csv = ""
csv = csv & Chr(34) & title & Chr(34) & ","
csv = csv & Chr(34) & Mar & Chr(34) & ","
csv = csv & Chr(34) & Email & Chr(34) & ","
csv = csv & Chr(34) & URL & Chr(34) & ","
csv = csv & Chr(34) & msg & Chr(34) & ","
csv = csv & Chr(34) & category_miumiulink & Chr(34) & ","
csv = csv & Chr(34) & category_inavi & Chr(34) & ","
csv = csv & Chr(34) & other_link & Chr(34) & ","
csv = csv & Chr(34) & passwd & Chr(34) & ","
csv = csv & Chr(34) & keyword & Chr(34) & ","
csv = csv & Chr(34) & ame & Chr(34) & ","
csv = csv & Chr(34) & temprate & Chr(34) & ","
csv = csv & Chr(34) & jyanru & Chr(34)
Call out.writeline(csv)
Next i
MsgBox "作成お疲れ様でした♪"
End Sub
---------------------------------------
お礼
ありがとうございました。今後は、過去れすを よく確認する様に致します。