開いたファイルの削除

質問

Excel2000使用。VBAマクロで、
デスクトップに保存したあるcsvファイルを開いた後、
作業中のブックのSheet2の後ろに貼り付け、
新たに作成されたSheetに"結果"という名前をつけた後
はじめに開いたcsvファイルを閉じたいのですが、

最後の一文「はじめに開いたcsvファイルを閉じる」部分ができません。

同じ作業中のブックで
Program File中のあるtxtファイルを開いた後、
作業中のブックのSheet1の後ろに貼り付け、
新たに作成されたSheetに"原因"という名前をつけた後
はじめに開いたtxtファイルを閉じる。－というマクロはできているのですが・・・

たぶんマクロの中身がどこかおかしいのでしょうけど同じように記述しているのに片方はできて片方ができないなんて・・・情けないです。

できてない部分ができるようなVBAマクロをどなたか教えてください。
よろしくお願いします。

回答No.2

noname#223623

#1です。
言い方が足りなかったかもしれないけど、欲しいのは「不具合が確認できるソース」です。
「できない」とだけ言われても原因は特定できないので、質問者さんが現在どうやってるのかを教えてください。

お礼

すみません。解決しました。

回答No.1

noname#223623

とりあえず今のコードください。
余計な部分はいりませんが、そのまま動作確認できるものがうれしいです。

補足

Public Sub GK一括()

'拡張子は".csv"

Dim FullPath As String
Dim FileName As String

'ファイルオープンダイアログ表示
FullPath = Application _
.GetOpenFilename("CSVファイル　(*.csv), *.csv")

'オープンダイアログでファイルが指定されたら処理実行
If FullPath <> "False" Then
'ファイルオープン
Workbooks.OpenText FileName:=FullPath, StartRow:=1, DataType:= _
xlFixedWidth, FieldInfo:=Array(0, 2)
'ファイル名取得
FileName = Dir(FullPath)
With Workbooks(FileName).Worksheets(Left(FileName, Len(FileName) - 4))

'シートをコピーしてSheet2の<後>にシート"結果"を作る
Worksheets(Left(FileName, Len(FileName) - 4)).Copy After:=sheet2
ActiveSheet.Name = "結果"

'■■■この部分に「はじめに開いたcsvファイルを閉じる」を記述したいのだがどうしてもできない■■■

End With
End If

です。