ＶＢＡ テキストclose

質問

初めまして。VBAでマクロを作成しています。
今、sheet上のあるボタンを押したら、テキストファイルのデータをカンマ刻みで読み出し、シートに表示しています。

記憶マクロで作成したのですが、以下のコードはtextファイルをopenにしたままなので、closeしたいのです。(外部からテキストファイルに書き込みたいため、openのままであると書き込みができない)。

以下のコードを修正してテキストファイルをクローズさせる方法を
教えていただけないでしょうか？　
宜しくお願い致します。

Sub ボタン1_Click()
'
' ボタン1_Click Macro
' マクロ記録日 : 2008/8/10 ユーザー名 : Matsumura
'

'
ChDir "C:\Documents and Settings\Owner\デスクトップ\List"
Workbooks.OpenText Filename:= _
"C:\Documents and Settings\Owner\デスクトップ\List\DBへ登録.txt", Origin:=932, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, Comma:=True _
, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), _
Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1)), TrailingMinusNumbers:=True
Columns("A:A").ColumnWidth = 14.38
Application.CommandBars("Forms").Visible = False
Columns("B:B").ColumnWidth = 14.38
Columns("C:C").ColumnWidth = 14.38
Columns("D:D").ColumnWidth = 14.38
Columns("E:E").ColumnWidth = 14.5
Range("E1").Select
Columns("E:E").ColumnWidth = 14.38
Columns("F:F").ColumnWidth = 14.38
Columns("E:E").ColumnWidth = 16.25
Columns("A:F").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Range("B3").Select
Rows("1:1").RowHeight = 26.25
Range("A1:F1").Select
With Selection.Font
.Name = "ＭＳ Ｐゴシック"
.Size = 18
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Selection.Font.ColorIndex = 3
Selection.AutoFilter
End Sub

回答No.2

hige_082 · ベストアンサー

これかな

Windows("DBへ登録.txt").Close

試してみて

回答No.1

bin-chan

最後のEnd　Subの直前に

Workbooks.Close

を入れれば良いのでは？