図形からテキストを読み取るときに値が範囲外です。

Question

指定された図形名とその内部のテキストを含むテキストファイルを出力する必要があります。

私は取得していますエラーは、指定された値が範囲外である

実行時エラー「-2147024809（80070057）」です。私のPCで

Sub test() 
Dim objFSO As Object, objFile 
Set objFSO = CreateObject("Scripting.FileSystemObject") 
Set objFile = objFSO.OpenTextFile("C:\Users\[user]\Documents\text.txt", 2) 
objFile.Write "" 'This clears the text file 

Dim obj As Shape 

For Each obj In ActiveSheet.Shapes 
    sWrite = obj.Name & "; Content: " & obj.TextFrame2.TextRange.Characters.text 
    Debug.Print sWrite 
    objFile.WriteLine sWrite 
Next obj 
objFile.Close 
End Sub 

Answer 1

コードは正常に動作

Sub test() 
Dim objFSO As Object 
Dim objFile As Object' here is your problem 

Set objFSO = CreateObject("Scripting.FileSystemObject") 
Set objFile = objFSO.OpenTextFile("C:\Users\[user]\Documents\Proyect folder\otros\test & intentions\test.txt", 2) 
objFile.Write "" 'This clears the text file 

Dim obj As Shape 

For Each obj In ActiveSheet.Shapes 
    sWrite = obj.Name & "; Content: " & obj.TextFrame2.TextRange.Characters.Text 
    Debug.Print sWrite 
    objFile.WriteLine sWrite 
Next obj 
objFile.Close 
End Sub