初めまして。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 = "MS Pゴシック"
.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
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Access(アクセス) エクセルのマクロについて教えてください。 2 2023/02/04 14:20
- Excel(エクセル) エクセルのマクロについて教えてください。 2 2023/02/04 12:47
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/06 13:01
- XML エクセルのマクロについて教えてください。 3 2023/02/06 09:06
- Visual Basic(VBA) エクセルのマクロで 1 2022/04/09 06:44
- Visual Basic(VBA) マクロで最終行を取得してコピーしたい 3 2022/04/06 19:07
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/06/01 14:45
- Visual Basic(VBA) エクセルのマクロを使ってメールを送る方法について教えてください 2 2022/03/29 01:36
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/03/08 09:08
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/03/07 14:05
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
複数のデータ系列の線の太さを...
-
Powerpointでランダムな数字の...
-
エクセルでツールバーに「縮小...
-
ファイル名を今日の日付、時刻...
-
エクセルシートをまとめて印刷...
-
VBA[Private Sub]のコードをシ...
-
最初の1回のみにボタンクリッ...
-
エクセルVBAで、画像の倍率を知...
-
別ブックからユーザーフォーム...
-
VBAでこのような図形の移動はで...
-
ユーザーフォームを「Esc」キー...
-
cellsで特定の離れた範囲を選択...
-
VBAで実行時エラー '1004'の解...
-
どのドキュメントは暗号化され...
-
【VC++6.0(MFC)】コメントを一...
-
Pictures.Insertメソッド⇒Shape...
-
VBAを使ってエクセルシート...
-
エクセルマクロのグラフ操作
-
エクセルで「ODBC Microsoft Ac...
-
エクセル2007 テキストボ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
複数のデータ系列の線の太さを...
-
エクセルでツールバーに「縮小...
-
cellsで特定の離れた範囲を選択...
-
ファイル名を今日の日付、時刻...
-
Powerpointでランダムな数字の...
-
VBA[Private Sub]のコードをシ...
-
エクセルシートをまとめて印刷...
-
エクセル2007 テキストボ...
-
別ブックからユーザーフォーム...
-
ピボットグラフの書式の固定に...
-
VBAを使ってエクセルシート...
-
エクセルのマクロでSelection.S...
-
最初の1回のみにボタンクリッ...
-
VBAに詳しい方教えてください。
-
VBAをVBに変換する方法
-
エクセルワークシート上に印刷...
-
Pictures.Insertメソッド⇒Shape...
-
【ExcelVBA】クエリの更新とピ...
-
エクセルVBAで、画像の倍率を知...
-
エクセル vba クリック~離し...
おすすめ情報