Проблом С кодом VBA выдает ошибку «пользовательский тип не определен»

Question

Я не могу понять, почему следующий код выдает ошибку компиляции с сообщением "пользовательский тип не определен".Это подсветка Set fso = FileSystemObject

Sub S()     
Dim fso As FileSystemObject
    Dim ts As TextStream
    Dim i As Integer
    Dim myCell As Range

    Set fso = FileSystemObject

    For i = 0 To TotalColumnNumber
       ' last argument, True, says to create the text file if it doesnt exist, which is
       ' good for us in this case
       Set ts = fso.OpenTextFile("column_" & i, ForWriting, True)

       ' set mycell to the first cell in the ith column
       Set myCell = SheetName.Cells(1, i)

       ' continue looping down the column until you reach a blank cell
       ' writing each cell value as you go
       Do Until myCell.Value = ""
           ts.writeline myCell.Value
           Set myCell = myCell.Offset(1, 0)
       Loop

       ts.Close
    Next

    Set ts = Nothing
    Set fso = Nothing


    End Sub

спасибо

Answer 1

Код имеет много несколько проблем:

1. Вам необходимо установить ссылку

use: Set fso = New FileSystemObject установить значения для ваших переменных до того, как вы их используете;это включает TotalColumnNumber, SheetName и т. д.

Answer 2

Вы ссылаетесь на правильные пространства имен в Инструменты / Ссылки?