マクロで別ブックに対し、カンマ区切りの処理を行う方法

Question

前提・実現したいこと

指定フォルダ内の全てのブックに対し、A1～最終行までがCSV形式で1セル内に記載されている文章を
「カンマ区切り」で列ごとにセル分割する処理
（Excelマクロ）

上手くいかないのですが、どこが悪いのかご指摘いただけますと幸いです。
ループはするのですが、何も処理されないまま閉じてしまいます。

■■な機能を実装中に以下のエラーメッセージが発生しました。

発生している問題・エラーメッセージ

該当のソースコード

Sub 指定フォルダーのExcelファイルを全て開いて処理()

'フォルダ内のファイルを開く

  Const DIR_PATH = "N:\リンク先"
  Dim fl_name As String

  fl_name = Dir(DIR_PATH & "*.xls")
  
  Dim i As Long
  Dim wb As Workbook
  
    Do While fl_name <> ""
        i = i + 1　'後程、最初のブックと最後のブックに処理を追加するためこの処理を入れています。
　　
  Set wb = Workbooks.Open(Filename:=DIR_PATH & "\" & fl_name)
    
    
   'カンマ区切りの行を、セルに分割する
   
   Set lastRow = wb.Worksheets(1).Range("A1").End(xlDown).Row
   
　　'マクロの記録で以下のコードを作成したので、良く理解出来ていない部分がございます。
    Selection.TextToColumns Destination:=wb.Worksheets(1).Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
        :=Array(Array(1, 1), Array(2, 2), Array(3, 1), Array(4, 1), Array(5, 1)), _
        TrailingMinusNumbers:=True

　　wb.Saved = True
    wb.Close
    
  fl_name = Dir()
  
    Loop
  
End Sub
  

Comments

[m.ts10806]

「ダメでした」「うまくいきませんでした」
他人には何も伝わらない表現方法なので、具体的に起きた現象を書いてください。

[satomori]

申し訳ございません。
ループはするのですが、何も処理されないまま閉じてしまいます。

[m.ts10806]

あ、こちらはあくまで回答者から質問者への「質問への追記修正依頼」なので、
質問本文を編集して返してください。
こちらのコメント欄はデフォルト非表示のため、全ての人が見るとは限りませんので。

[m.ts10806]

あと、できればそのExcelに記載されているサンプルデータもご提示いただけたら。

[date]

"\*.xls"
とありますが使っているのはexcel2003なのですか?シート名などはすべて同じですか?

[satomori]

mts10806様
仕様を分かっておらず申し訳ございませんでした。
ご指摘くださりありがとうございました。
サンプルデータというのはCSV形式のファイルのことでしょうか。

[m.ts10806]

>A1～最終行までがCSV形式で1セル内に記載されている文章
↑これです

[satomori]

data様
最初にCSVファイルを「.xls」ファイルへ変換する処理を行っております。
シート名がそれぞれのファイルで異なっておりましたので修正いたしました。
ありがとうございます。

[date]

何もエラーは出ていませんか?
このプログラムを動かした場合
Set lastRow
の部分で型が一致しませんと出ると思われます。

[satomori]

mts10806様
回答者様のおかげで何とか出来そうなので後は頑張ってみます。
ありがとうございました。

[m.ts10806]

なるほど。具体的なデータもあればコード調整も可能かと思いましたが、
ヒントで解決できそうならそれも良しですね。がんばってください。

[satomori]

date様
おっしゃる通りそのエラーが出ておりましたが、
setを消すとエラーが消えたので大丈夫そうです。
ありがとうございます。

Answer 1

とりあえず3点指摘します。

1. lastRowを求めているがどこでも使っていない。
2. Selectionを使っているが、何も選択していない。
3. Savedを使っているが、これは保存する関数ではない。状態を表すプロパティです。

単純にカンマ区切りの値を分解するなら下記で実行できます。
（A列1～100行までの場合）

Range("A1:A100").TextToColumns DataType:=xlDelimited, Comma:=True

指摘1と2をこれに置き換え、あとは保存(Save)すればいいと思います。
その他、細かい調整はお願いします。

Comments

[satomori]

lastRowの使用場所が分からずそのままになっておりました。
ご指摘いただいた箇所を再度調べなおしてみます。
ご回答くださりありがとうございました。

[satomori]

コードを追記していただき本当にありがとうございます。
おかげさまで分解出来ました。

Answer 2

それぞれのコードの意味をまずは調べましょう。

例えば、マクロの記録で出てきた、TextToColumns がよく分からなかったら
「Excel VBA TextToColumns」をキーワードにWEB検索してみてください。
すると例えば下記のページがヒットしますので、それを読んで理解しましょう。

セルのデータを区切り文字で複数のセルに分割する（TextToColumns メソッド） | ExcelWork.info

あと、ファイルを上書き保存するにはどうしたらいいかも「Excel VBA 上書き保存」でWEB検索すると下記がヒットします。

Office TANAKA - ファイルの操作[ブックを保存する]

さらに、マクロの記録をするとやたらとSelectしますが、下記を参考にSelectを使わない方法に書き換えると高速化しますし、バグの発生しにくい安全なコードになります。

Office TANAKA - VBA高速化テクニック[Selectしない]

あと対象のセル範囲の取得に関しては、下記が参考になるかと。

Office TANAKA - セルの操作[セル範囲の取得]

ある程度はできているので、コードを一つずつ理解しながら、分からないところは調べながらやっていけば、自力で完成するでしょう。

Comments

[satomori]

ご丁寧にリンクを添付していただきありがとうございます。
添付していただいたURLを参考にコード作成してみます。
今後は不明点は質問前に徹底的調べるよう留意いたします。