Excel VBA質問箱 IV

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

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


26777 / 76738 ←次へ | 前へ→

【55290】Re:テキストファイル(CSV)に変換
発言  VBWASURETA  - 08/4/25(金) 19:36 -

引用なし
パスワード
   こんばんは。

ま、テキストに対して文字を書き込むだけだけなので、
速さとかこだわらなければごり押しのやりかたで書けば色々できますよ。

こんな感じのソースとか汚いソースですけど。

Sub OutPut()
  Dim OutTxt As String
  Dim x As Long
  Dim y As Long
  Dim free As Integer
  
  y = 1
  OutTxt = ""
    
  With Sheets(1)
    Do While .Cells(y, 1) <> "" 'セル行
    
      If (OutTxt <> "") Then OutTxt = OutTxt & vbCrLf '改行
      
      For x = 1 To 5 'セル列
        If .Cells(y, x) <> "" And .Cells(y, x + 1) <> "" Then
          OutTxt = OutTxt & """" & .Cells(y, x) & """" & "@"
        Else
          OutTxt = OutTxt & """" & .Cells(y, x) & """"
        End If
      Next x
           
      OutTxt = OutTxt & "<CR>"
      
      y = y + 1
    Loop
  
  End With
  
  free = FreeFile
  
  Open "C:\OutPut.csv" For Output As #free
    Print #free, OutTxt
  Close #free
    
End Sub

5 hits

【55281】テキストファイル(CSV)に変換 KOCCI 08/4/25(金) 15:53 質問
【55283】Re:テキストファイル(CSV)に変換 ハチ 08/4/25(金) 16:12 発言
【55284】Re:テキストファイル(CSV)に変換 neptune 08/4/25(金) 16:18 発言
【55285】Re:テキストファイル(CSV)に変換 テト 08/4/25(金) 16:33 回答
【55289】Re:テキストファイル(CSV)に変換 KOCCI 08/4/25(金) 18:38 発言
【55290】Re:テキストファイル(CSV)に変換 VBWASURETA 08/4/25(金) 19:36 発言
【55288】Re:テキストファイル(CSV)に変換 Yuki 08/4/25(金) 17:06 発言
【55295】Re:テキストファイル(CSV)に変換 Hirofumi 08/4/25(金) 23:16 回答
【55327】Re:テキストファイル(CSV)に変換 KOCCI 08/4/28(月) 9:05 発言
【55473】Re:テキストファイル(CSV)に変換 kanabun 08/5/6(火) 9:33 回答
【55486】Re:テキストファイル(CSV)に変換 KOCCI 08/5/7(水) 12:42 質問
【55488】Re:テキストファイル(CSV)に変換 neptune 08/5/7(水) 13:22 発言
【55489】Re:テキストファイル(CSV)に変換 kanabun 08/5/7(水) 13:48 回答
【55491】Re:テキストファイル(CSV)に変換 kanabun 08/5/7(水) 14:52 発言
【55492】Re:テキストファイル(CSV)に変換 neptune 08/5/7(水) 15:30 発言
【55493】Re:テキストファイル(CSV)に変換 kanabun 08/5/7(水) 16:36 お礼
【55496】Re:テキストファイル(CSV)に変換 neptune 08/5/7(水) 22:09 お礼

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