Excel VBA質問箱 IV

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

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


73323 / 76732 ←次へ | 前へ→

【7889】Re:カンマ区切りのCSVで保存した時の改行を削除したいのですが。。。
回答  Jaka  - 03/9/22(月) 13:48 -

引用なし
パスワード
   こんにちは。
今一良く解っていないので突っ込まないで下さい。
特に
Mst2 = Mid(Mst, 1, Len(Mst) - 2) ← 何で-2なの?って。

'VBE → ツール → 参照設定 
'Microsoft Scripting Runtime にチェック。
Sub fffgy()
  Dim Fso As New Scripting.FileSystemObject
  Dim Txs As Scripting.TextStream
  Dim OPfl As String, Mst As String, Mst2 As String
  OPfl = Application.GetOpenFilename("CSVFile (*.csv), *.csv")
  If OPfl = "False" Then
    End
  End If
  Set Txs = Fso.OpenTextFile(OPfl, ForReading)
  Mst = Txs.ReadAll
  Txs.Close
  If Right(Mst, 1) = vbCr Or Right(Mst, 1) = vbLf Or Right(Mst, 1) = vbCrLf Then
    Mst2 = Mid(Mst, 1, Len(Mst) - 2)
    Set Txs = Fso.OpenTextFile(OPfl, ForWriting)
    Txs.Write Mst2
    Txs.Close
  End If
  Set Txs = Nothing
End Sub
0 hits

【7690】カンマ区切りのCSVで保存した時の改行を削除したいのですが。。。 でこぽんウマイ! 03/9/11(木) 21:49 質問
【7706】Re:カンマ区切りのCSVで保存した時の改行を... Jaka 03/9/12(金) 14:11 回答
【7879】Re:カンマ区切りのCSVで保存した時の改行を... でこポンうまい!! 03/9/21(日) 23:41 質問
【7889】Re:カンマ区切りのCSVで保存した時の改行を... Jaka 03/9/22(月) 13:48 回答
【7891】Re:カンマ区切りのCSVで保存した時の改行を... BOTTA 03/9/22(月) 16:38 回答
【7901】Re:カンマ区切りのCSVで保存した時の改行を... ichinose 03/9/22(月) 23:46 回答
【8311】Re:カンマ区切りのCSVで保存した時の改行... でこぽんウマイ! 03/10/8(水) 11:25 発言
【8494】Re:カンマ区切りのCSVで保存した時の改行... でこぽんウマイ! 03/10/20(月) 14:29 お礼
【7904】Re:カンマ区切りのCSVで保存した時の改行を... Hirofumi 03/9/23(火) 8:58 発言
【8242】Re:カンマ区切りのCSVで保存した時の改行... でこポンうまい!! 03/10/6(月) 1:21 質問
【8324】Re:カンマ区切りのCSVで保存した時の改行... Hirofumi 03/10/8(水) 20:56 回答
【8326】Re:カンマ区切りのCSVで保存した時の改行... Hirofumi 03/10/8(水) 21:26 発言

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