●詳細●
あくまでも取り敢えず、「自動的に作業が実行されることに感動して頂きたい」というのが、今回の主旨です。
「ＶＢＡとは？」「プログラミングとは？」・・・と、本来ならばご説明すべきなのですが、そんな知識なしで動かしてしまってください。「なぜ動くんだろう」「自分で作って動かしてみたい」という入り口からＶＢＡに近づくのもいいのではないでしょうか？
「異なる区切り記号の混在したテキストファイルを読み込もう」を使います。
●準備およびマクロの実行●
※全ての作業を終了させて、Ｅｘｃｅｌ９７を新規に起動させて行ってください。
- 異なる区切り記号の混在したテキストファイルを読み込もう準備にあるように、
”Sample.txt”を用意してください。
手作業でテキストファイルを読み込んで、別の名前にして保存しておいてください。
最後に比べますので。
- Ｅｘｃｅｌ９７の新規ブックを用意します。
- マクロを作成・編集するための、「ＶｉｓｕａｌＢａｓｉｃＥｄｉｔｏｒ」
を起動させます。
[ツールメニュー]−[マクロ]−[ＶｉｓｕａｌＢａｓｉｃＥｄｉｔｏｒ]を選ん
で起動してください。
- マクロを記述するためには「標準モジュール」というマクロを管理するもの
が必要です。[挿入メニュー]−[標準モジュール]を選択して
- 「標準モジュール」に、下記のサンプルマクロを貼り付けます。
「Sub Sample()」からドラッグしたまま「End Sub」まで範囲指定して
[編集]メニューの[コピー]でコピーしてください。
「ＶｉｓｕａｌＢａｓｉｃＥｄｉｔｏｒ」に戻って、[標準モジュール]に
[編集メニュー]−[貼り付け]で、サンプルマクロを貼り付けてください。
●サンプルマクロ●
Sub Sample()
Dim TextPath As String
'＜テキストファイルのパスを取得します。＞ ←（１）
TextPath = ActiveWorkbook.Path & "\Sample.txt"
'＜「ＯｐｅｎＴｅｘｔ」メソッドを使ってテキストファイルを開きます。＞ ←（２）
Workbooks.OpenText FileName:=TextPath, _
DataType:=xlDelimited, _
comma:=True, _
Space:=True, _
other:=True, _
otherchar:="#"
'＜列幅を内容に合わせて調節して見やすくします。＞ ←（３）
Columns("A:G").Select
Columns("A:G").EntireColumn.AutoFit
Range("A1").Select
End Sub
- Ｅｘｃｅｌに戻って、「標準モジュール」を挿入した新規ブックを、”Sample.txt”
と同じフォルダに保存してください。名前は何でも結構です。
- [ツールメニュー]−[マクロ]−[マクロ]を選択してください。
マクロを実行したり編集したりするための、ダイアログボックスが表示されます。
- [マクロの保存先]を「作業中のブック」にしてください。
”Ｓａｍｐｌｅ”を選択して、[実行]ボタンを押してください。
- ”Sample.txt”が読み込まれ、なお且つ列の幅が内容に合わせて調節されています。
- 手作業で読み込んだテキストファイルと比べてみてください。
●補足説明●
Ｅｘｃｅｌを終了させると、「ＶｉｓｕａｌＢａｓｉｃＥｄｉｔｏｒ」も同時に閉じられます。
