| |
すみません
下記のコードを使用し
「C:\TXT\」フォルダのなかにあるテキストファイルの一覧を作成いたしました
一覧ができたのは良いのですが
フォルダ内にあるファイルの文字コードがS-JISとUTF-8がまじっており
どのファイルが文字コードがどれなのかの一覧を作成した後
別のマクロでもかまわないのですが
文字コードを指定したコードで一括変換するようにしたいのですが
いい手はないでしょうか
ファイルの一覧はAの列に表示されるので
それにあわせてB列に文字コードの記載が行えればと思います。
宜しくお願い致します。
Option Explicit
' 指定したフォルダ内のファイルの一覧を取得
Sub Display_Directory()
Const cnsTITLE = "フォルダ内のファイル名一覧取得"
Const cnsDIR = "\*.*"
Dim xlAPP As Application
Dim strPATHNAME As String
Dim strFileName As String
Dim GYO As Long
Set xlAPP = Application
' InputBoxでフォルダ指定を受ける
strPATHNAME = xlAPP.InputBox("参照するフォルダ名を入力して下さい。", cnsTITLE, "C:\txt\")
If StrConv(strPATHNAME, vbUpperCase) = "FALSE" Then Exit Sub
' フォルダの存在確認
If Dir(strPATHNAME, vbDirectory) = "" Then
MsgBox "指定のフォルダは存在しません。", vbExclamation, cnsTITLE
Exit Sub
End If
' 先頭のファイル名の取得
strFileName = Dir(strPATHNAME & cnsDIR, vbNormal)
' ファイルが見つからなくなるまで繰り返す
Do While strFileName <> ""
' 行を加算
GYO = GYO + 1 ' 先頭は1行目
Cells(GYO, 1).Value = strFileName
' 次のファイル名を取得
strFileName = Dir()
Loop
End Sub
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
