Excel VBA質問箱 IV

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

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


26596 / 76738 ←次へ | 前へ→

【55473】Re:テキストファイル(CSV)に変換
回答  kanabun  - 08/5/6(火) 9:33 -

引用なし
パスワード
   ▼KOCCI さん:
こんにちは

ワークシートの出力範囲をCOPYすると、データがクリップボードに
転送されます。クリップボード内の区切りはTABコードです。
-----------------------
あ い う え
A  B  C  D

このTABを "@" に置換し、さらに行末の改行コードを "<改行>"に置換すると
↓のような文字列ができあがります。
-----------------------
"あ"@"い"@"う"@"え"
"A"@"B"@"C"@"D"

Sub Try1()
 Const z = """"
 Const zCrLfz = z & vbCrLf & z
 Const CLSID_DataObject = "1C3B4210-F441-11CE-B9EA-00AA006B1A69"
 Dim ss As String
 
 ActiveSheet.UsedRange.Copy
 With GetObject("new:" & CLSID_DataObject)
  .GetFromClipboard
  ss = .Gettext
 End With
 ss = Replace(z & ss, vbTab, """@""")
 ss = Replace(ss, vbCrLf, zCrLfz)
 ss = Left$(ss, Len(ss) - 1)
 
 Dim io As Integer
 Dim myText As String: myText = "D:\(Data)\Try1.txt"
 io = FreeFile()
 Open myText For Output As io
  Print #io, ss;
 Close io
 
End Sub

4 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 お礼

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