ＶＢＡ テキスト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
お礼
早速の回答ありがとうございました。 すぐに変更したところ、クリックするたびインデントが増えていきました!! これは他のボタンにも使えそうです。 スマートな帳票が作成できました。 本当にありがとうございました。