Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


49748 / 76732 ←次へ | 前へ→

【31886】Re:テキストファイルの改行コードを変換
発言  ichinose  - 05/12/1(木) 21:04 -

引用なし
パスワード
   こんばんは。
テキストファイル限定なら
'==============================================
Sub test()
  Dim flnm As Variant
  flnm = Application.GetOpenFilename("テキスト ファイル (*.txt), *.txt,csvファイル,*.csv", , _
            "LF--->CRLF変換を行うテキストファイルを選択してください")
  If TypeName(flnm) <> "Boolean" Then
    infno = FreeFile()
    Open flnm For Input As #infno
    outfno = FreeFile()
    Open ThisWorkbook.Path & "\exceltemp.tmp" For Output As #outfno
  
    Do Until EOF(infno)
     Line Input #infno, dat
     Print #outfno, Replace(dat, vbLf, vbCrLf)
     Loop
    Close #infno
    Close #outfno
    Kill flnm
    Name ThisWorkbook.Path & "\exceltemp.tmp" As flnm
   
    End If
End Sub


新規ブックの標準モジュールに上記のコードを貼り付けて
一度保存してから実行してください。

尚、実行時には、ブックと同じフォルダにexceltemp.tmpというテンポラリファイルを
作成されます。
0 hits

【31867】テキストファイルの改行コードを変換 ほびっと 05/12/1(木) 16:24 質問
【31879】Re:テキストファイルの改行コードを変換 Hirofumi 05/12/1(木) 19:52 回答
【31886】Re:テキストファイルの改行コードを変換 ichinose 05/12/1(木) 21:04 発言
【31914】Re:テキストファイルの改行コードを変換 ほびっと 05/12/2(金) 10:17 お礼

49748 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free