2017年11月
      1 2 3 4
5 6 7 8 9 10 11
12 13 14 15 16 17 18
19 20 21 22 23 24 25
26 27 28 29 30    
無料ブログはココログ

« ExcelオートメーションでDDE要求を無視する。の別解は駄目 | トップページ | Windows2000+WSH5.6で使える「ファイルを開く」ダイアログ »

2007年2月20日 (火)

VBAで、テキストファイルの文字コードを自動判定します。

Function CharSetOfText(Path)
Dim fso
Dim File
Dim htmlfile
Set fso = CreateObject("Scripting.FileSystemObject")
Set File = fso.GetFile(Path)
File.Name = File.Name & ".txt"
Set htmlfile = GetObject(File.Path, "htmlfile")
Do While htmlfile.readyState <> "complete"
  Application.Wait Now + TimeSerial(0, 0, 1)
Loop
CharSetOfText = htmlfile.CharSet
File.Name = fso.GetBaseName(File.Name)
End Function

« ExcelオートメーションでDDE要求を無視する。の別解は駄目 | トップページ | Windows2000+WSH5.6で使える「ファイルを開く」ダイアログ »