回答編集履歴

1 改善例の微修正

N-u-u

N-u-u score 105

2017/01/16 21:52  投稿

コード拝見しました。
まず気になったのが2回目のループ処理中にあるLeft関数の使い方です。
単純ミスだとは思いますが、左から**-4文字**は取り出せません。
私の勘ですが、ファイル名の先頭にある「**01 **」といった文字列以降から1文字を取り出したかったのではないでしょうか?
もしそうであれば、下記のようなコードになります。
```VBA
Mid(LoadFile, 4, 1)
```
また、今のコードでは先頭1文字がアルファベットの場合、毎回読み仮名を入力することになってしまうと思います。その点も改良が必要ですね。
また、今のコードでは先頭1文字がアルファベットか数字の場合、毎回読み仮名を入力することになってしまうと思います。その点も改良が必要ですね。

思考するエンジニアのためのQ&Aサイト「teratail」について詳しく知る