VBA実行時のエラー

質問

下記のプログラムは私が作った物では無いのですが、作った方と連絡をとる事が出来なくなってしまった為、質問させて頂きます。

このプログラムをシートから実行した所
エラー：400『既にフォームは表示されています。モーダルにできません。』
なるものが表示されてしまいます。
またコードを記述する所から実行しますと
実行時エラー：１００４『アプリケーション定義またはオブジェクト定義のエラー』
となってしまいます。

私の努力が足りないのは重々承知ですが、解決する事が出来ません。
皆様のお力を借りることが出来たらと思い投稿しました。
宜しくお願い致します。
Sub syoutotumen()
Dim i As Long
Dim j As Long
Dim k As Long
Dim kyori As Long
Dim n As Integer
n = 1
i = 1
j = 1
k = 1
Const cnsYEN = "\"
Dim xlAPP As Application
Dim objWBK As Workbook
Dim strPATHNAME As String
Dim strFILENAME As String
strPATHNAME = "C:\Documents and Settings\tata41\デスクトップ\画像処理\"
If strPATHNAME = "" Then Exit Sub
strFILENAME = Dir(strPATHNAME & "dem******", vbNormal)

If strFILENAME = "" Then
MsgBox "このフォルダにはExcelワークブックは存在しません"
Exit Sub
End If
Set xlAPP = Application
With xlAPP
.ScreenUpdating = False
.EnableEvents = Fales
.EnableCancelKey = xlErrorHandler
.Cursor = xlWait
End With
Set WS1 = Worksheets("sheet1")
Range("A1") = "0"
Range("A2") = "1"
Range("A1:A2").Select
Selection.AutoFill Destinaton:=Range("A1:A512")
Do While strFILENAME <> ""
DoEvents
If swESC = True Then
If MsgBox("ESCが押されました。ここで終了しますか？", vbInformation + vbYesNo) = vbYes Then
GoTo Button1_Click_Exit
Else
swESC = False
End If
End If
xlAPP.StatusBar = trFILENAME & "処理中..."

Set objWBK = Workbooks.Open(Filename:=strPATHNAME & cnsYEN & strFILENAME, UpdateLinks:=False, ReadOnly:=True)

Do

If Cells(i, 2) = 255 Then Exit Do
i = i + 1
Loop
Do
If Cells(j, 3) = 255 Then Exit Do

j = j + 1
Loop
Do
If Cells(k, 4) = 255 Then Exit Do

k = k + 1
Loop
kyori = (i + j + k - 21) / 3
WS1.Cells(n, 2) = kyori
n = n + 1
i = 1
j = 1
k = 1
objWBK.Close savechanges:=False
strFILENAME = Dir
Loop
GoTo Button1_Click_Exit
Button1_Click_ESC:
If Err.Number = 18 Then
swESC = True
Resume
ElseIf Err.Number = 1004 Then
Resume Next
Else
MsgBox Err.Description
End If

Button1_Click_Exit:
With xlAPP
.StatusBar = False
.ScreenUpdating = True
.EnableEvents = True
.EnableCancelKey = xlInterrupt
.Cursur = xlDefault
Set objWBK = Nothing
Set xlAPP = Nothing
End With
End Sub

回答No.1

end-u · ベストアンサー

エラー箇所（黄色くハイライトされる箇所）は
>Selection.AutoFill Destinaton:=Range("A1:A512")
ここですね？
Destinaton を Destination にしてください。

他にも
>.EnableEvents = Fales
.EnableEvents = False

>trFILENAME
strFILENAME

など、単純な記述ミスがあるようです。

そのマクロが書いてあるモジュールの冒頭に

Option Explicit

の１行を加えてください。変数に対して、明示的な宣言を強制します。
変数名の入力ミスなどはコンパイルエラーになり、チェックし易くなるはずです。
Dim ws1 As Worksheet
Dim swESC As Boolean
この２つの変数の宣言も必要になります。

まずは基本を身に付けるようにしたほうが良いでしょう。
http://www.asahi-net.or.jp/~ef2o-inue/vba_k/sub04_200.html
このサイトを参考に、「デバッグ」とは何か、またその方法について学んでください。

お礼

お礼が大変遅くなってしまい申し訳ありませんでした。

詳しく教えて頂きとても助かりました。
参考サイトまで教えて頂き、ありがとうございました。