Cześć, jestem nowy w makrach, VBA i Kutools.

Używam makra, aby wyodrębnić tekst, a następnie liczby w osobnych komórkach. Kutools działa dobrze, gdy go uruchamiam, jednak gdy wykonuję ten sam proces, aby utworzyć makro, pojawia się komunikat o błędzie:

Windows("KutoolsHelper.xlam").Visible = True

Wydaje się, że jest to miejsce, w którym występuje błąd podczas debugowania.

Dodałem Kutoolsforexcel w Tools/Reference


Sub ConvetYardsToMiles()
'
' Makro ConvetYardsToMiles
'

'
Kolumny("I:I"). Wybierz
Selection.Copy
Zaznaczenie.Wstaw przesunięcie:=xlToRight
Application.CutCopyMode = False
Selection.Copy
Zaznaczenie.Wstaw przesunięcie:=xlToRight
Kolumny("J:J"). Wybierz
Windows("KutoolsHelper.xlam").Visible = True
ActiveWindow.Visible = Fałsz
Kolumny("K:K"). Wybierz
Windows("KutoolsHelper.xlam").Visible = True
ActiveWindow.Visible = Fałsz
ActiveWindow.SmallPrzewiń w prawo:=1
Zakres("L2").Wybierz
ActiveCell.FormulaR1C1 = "=IF(RC[-2]=""mi"",RC[-1],RC[-1]/1760)"
Zakres("L2").Wybierz
Selection.AutoFill Destination:=Range("L2:L832")
Zakres("L2:L832"). Wybierz
Kolumny("L:L"). Wybierz
Selection.NumberFormat = "0.00 mil"
Kolumny("L:L"). Wybierz
Kolumny("L:L").EntireColumn.AutoFit
Wybór.Szerokość Kolumny = 14.91
Zakres("L1").Wybierz
ActiveCell.FormulaR1C1 = "Przejechane mile"
Zakres("L2").Wybierz
ActiveWindow.SmallPrzewiń w prawo:=-1
Kolumny("H:K"). Wybierz
Selection.EntireColumn.Hidden = Prawda
ActiveWindow.SmallPrzewiń w prawo:=-4
Kolumny("L:L"). Wybierz
Z zaznaczeniem
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlCenter
Orientacja = 0
.AddIndent = Fałsz
.Poziom wcięcia = 0
.ShrinkToFit = Fałsz
.ReadingOrder = xlContext
.MergeCells = Fałsz
Kończyć z
Z zaznaczeniem
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
Orientacja = 0
.AddIndent = Fałsz
.Poziom wcięcia = 0
.ShrinkToFit = Fałsz
.ReadingOrder = xlContext
.MergeCells = Fałsz
Kończyć z
Wiersze("1:1").Wybierz
Zakres("C1"). Aktywuj
Selection.Font.Bold = Fałsz
Selection.Font.Bold = Prawda
Z zaznaczeniem. Czcionka
.Name = "Arial"
.Przekreślenie = Fałsz
. Indeks górny = Fałsz
.Indeks = Fałsz
. Czcionka konturu = Fałsz
.Cień = Fałsz
.Podkreślenie = xlUnderlineStyleNone
.OdcieńIOdcień = 0
.ThemeFont = xlThemeFontBrak
Kończyć z
Z zaznaczeniem. Czcionka
.Name = "Arial"
.Rozmiar = 12
.Przekreślenie = Fałsz
. Indeks górny = Fałsz
.Indeks = Fałsz
. Czcionka konturu = Fałsz
.Cień = Fałsz
.Podkreślenie = xlUnderlineStyleNone
.OdcieńIOdcień = 0
.ThemeFont = xlThemeFontBrak
Kończyć z
Z zaznaczeniem
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = Fałsz
Orientacja = 0
.AddIndent = Fałsz
.Poziom wcięcia = 0
.ShrinkToFit = Fałsz
.ReadingOrder = xlContext
.MergeCells = Fałsz
Kończyć z
End Sub