VBA100本ノック 65本目：固定長テキスト出力
フォーマット（左詰め文字、右詰め数値）に従い、固定長テキストを出力する問題です。
ツイートでの見やすさを考慮して、ブック・シート指定等を適宜省略しています。
マクロVBAを初心者向けの基本から上級者向けの高度な内容までサンプルコードを掲載し解説しています。エクセル関数・機能・基本操作の入門解説からマクロVBAまでエクセル全般を網羅しています。
出題
出題ツイートへのリンク
#VBA100本ノック 65本目
固定長データの出力です。
「フォーマット」シートに従い、2行目以降をテキスト出力してください。
文字形態は、N:右詰め0埋め、C:左詰め半角スペース埋め。
項目間区切りなしで連続で出力
※シートは任意
※本題ではないので出力ファイル及び文字コードは任意
サンプルファイルです。
https://excel-ubara.com/vba100sample/VBA100_65.xlsm
https://excel-ubara.com/vba100sample/VBA100_65.zip
固定長データの出力です。
「フォーマット」シートに従い、2行目以降をテキスト出力してください。
文字形態は、N:右詰め0埋め、C:左詰め半角スペース埋め。
項目間区切りなしで連続で出力
※シートは任意
※本題ではないので出力ファイル及び文字コードは任意
https://excel-ubara.com/vba100sample/VBA100_65.xlsm
https://excel-ubara.com/vba100sample/VBA100_65.zip
VBA作成タイム
この下に頂いた回答へのリンクと解説を掲載しています。
途中まででも良いので、できるだけ自分でVBAを書いてみましょう。
他の人の回答および解説を見て、書いたVBAを見直してみましょう。
頂いた回答
解説
全銀に模したデータサンプルにしましたが、最近は固定長の必要性は少なくなりましたね。
でも全く不要という事もないので、一度は経験しておいた方が良いだろうという事で出題しました。
DictionaryとFileSystemObjectを参照設定して使っています。
Dictionaryを使ったので、全体としては少し長くなってしまいました。
処理最後で作成したテキストをメモ帳（既定なら）で開いています。
補足はありません。
でも全く不要という事もないので、一度は経験しておいた方が良いだろうという事で出題しました。
DictionaryとFileSystemObjectを参照設定して使っています。
Sub VBA100_65_01()
Dim ws As Worksheet, rng As Range
Dim objFso As New FileSystemObject
Dim objTS As TextStream, sFile As String
Set ws = ActiveSheet
Set rng = ws.Range("A1").CurrentRegion
sFile = ws.Parent.Path & "\data.txt"
Set objTS = objFso.CreateTextFile(sFile, True)
Dim dic As Dictionary, i As Long, j As Long, ary
Set dic = getFormat(Worksheets("フォーマット"))
For i = 2 To rng.Rows.Count
ReDim ary(rng.Columns.Count)
For j = 1 To rng.Columns.Count
ary(j) = getFixedString(dic, rng(1, j).Value, rng(i, j).Value)
Next
objTS.WriteLine Join(ary, "")
Next
objTS.Close
Set dic = Nothing: Set objTS = Nothing: Set objFso = Nothing
ThisWorkbook.FollowHyperlink sFile
End Sub
Function getFormat(ByVal ws As Worksheet) As Dictionary
Dim dic As New Dictionary, i As Long
For i = 2 To ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
dic(ws.Cells(i, 1).Value) = Array(ws.Cells(i, 2).Value, ws.Cells(i, 3).Value)
Next
Set getFormat = dic
End Function
Function getFixedString(ByVal dic As Object, ByVal aFormat, ByVal aIn) As String
If Not dic.Exists(aFormat) Then Exit Function '未登録列は空で返しスキップ
Dim sForm As String: sForm = dic(aFormat)(0)
Dim iLen As Integer: iLen = dic(aFormat)(1)
If UCase(sForm) = "N" Then
getFixedString = Right(String(iLen, "0") & aIn, iLen)
Else
getFixedString = Left(aIn & Space(iLen), iLen)
End If
End Function
処理最後で作成したテキストをメモ帳（既定なら）で開いています。
補足はありません。
補足
補足はありません。
サイト内関連ページ
第116回．ファイル操作Ⅱ（OpenとClose）
・Openステートメント ・Closeステートメント ・OpenステートメントとCloseステートメントの使用例
第117回．ファイル操作Ⅱ（Line Input #）・Line Input # ステートメント ・EOF関数 ・Line Input # ステートメント と EOF関数の使用例．
第118回．ファイル操作Ⅱ（Print #）VBAでファイル（CSV等）を扱う時は、最初に、ファイルを開き、その後に、読込み書込みを行い、最後に、ファイルを閉じます。ファイルを書き込む時には、Print#ステートメントを使います。Print#ステートメント シーケンシャル出力モード(OutputまたはAppend)で開いたファイルにデータを書き込むファイル入…
第119回．ファイルシステムオブジェクト（FileSystemObject）・FileSystemObjectオブジェクトの使用方法 ・FileSystemObjectオブジェクトのプロパティとメソッド ・FileSystemObjectオブジェクトのメソッドの戻り値 ・FileSystemObjectオブジェクトの使用例 ・FileSystemObjectオブジェクトの関連記事と実践例
VBAでファイルを既定のアプリで開く方法｜VBA技術解説・実行テストメイン ・Shell関数 ・batファイル（コマンド プロンプト） ・WScript.Shell ・Shell.Application ・FollowHyperlink ・最後に
同じテーマ「VBA100本ノック」の記事
・出題 ・頂いた回答 ・解説 ・補足 ・サイト内関連ページ
63本目：複数シートの連結・出題 ・頂いた回答 ・解説 ・補足 ・サイト内関連ページ
64本目：リンクされた図（カメラ機能）・出題 ・頂いた回答 ・解説 ・補足 ・サイト内関連ページ
65本目：固定長テキスト出力66本目：全サブフォルダからファイルを探す
・出題 ・頂いた回答 ・解説 ・補足 ・サイト内関連ページ
67本目：ComboBoxとListBox・出題 ・頂いた回答 ・解説 ・補足 ・サイト内関連ページ
68本目：全テキストボックスの転記・出題 ・頂いた回答 ・解説 ・補足 ・サイト内関連ページ
69本目：ダブルクリックでセル結合を解除・出題 ・頂いた回答 ・解説 ・補足 ・サイト内関連ページ
70本目：ステータスバーに1秒ごとに時刻が表示・出題 ・頂いた回答 ・解説 ・補足 ・追記 ・サイト内関連ページ
71本目：パワーポイントへグラフを貼り付け・出題 ・頂いた回答 ・解説 ・補足 ・サイト内関連ページ
72本目：ITをDXに変換（文字列操作）・出題 ・頂いた回答 ・解説 ・補足 ・サイト内関連ページ
新着記事NEW ・・・新着記事一覧を見る
ブール型（Boolean）のis変数・フラグについて｜VBA技術解説(2024-04-05)
テキストの内容によって図形を削除する｜VBA技術解説(2024-04-02)
ExcelマクロVBA入門目次｜エクセルの神髄(2024-03-20)
VBA10大躓きポイント（初心者が躓きやすいポイント）｜VBA技術解説(2024-03-05)
テンキーのスクリーンキーボード作成｜ユーザーフォーム入門(2024-02-26)
無効な前方参照か、コンパイルされていない種類への参照です。｜エクセル雑感(2024-02-17)
初級脱出10問パック｜VBA練習問題(2024-01-24)
累計を求める数式あれこれ｜エクセル関数応用(2024-01-22)
複数の文字列を検索して置換するSUBSTITUTE｜エクセル入門(2024-01-03)
いくつかの数式の計算中にリソース不足になりました。｜エクセル雑感(2023-12-28)
アクセスランキング ・・・ ランキング一覧を見る
1.最終行の取得（End,Rows.Count）｜VBA入門
2.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
3.RangeとCellsの使い方｜VBA入門
4.ひらがな⇔カタカナの変換｜エクセル基本操作
5.繰り返し処理（For Next)｜VBA入門
6.変数宣言のDimとデータ型｜VBA入門
7.ブックを閉じる・保存（Close,Save,SaveAs）｜VBA入門
8.並べ替え（Sort）｜VBA入門
9.セルのクリア（Clear,ClearContents）｜VBA入門
10.Findメソッド（Find,FindNext,FindPrevious）｜VBA入門
- ホーム
- マクロVBA入門編
- VBA100本ノック
- 65本目：固定長テキスト出力
このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。