Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

14260 / 76734

←次へ　｜　前へ→


	【67973】Re:CSVの取込について

SS - 11/1/20(木) 9:12 -


	引用なし

	パスワード

▼ななさん：

横から失礼します。
単純にやるとこんな感じでしょうか。
Sub test()
　　Dim tmp As String, tmp1 As String, tmp2 As String
　　Dim s As Variant
　　
　　tmp = ThisWorkbook.Worksheets("Sheet1").Range("A1").Value
　　　　'　"666","7,77","888","999","10000"の設定が面倒だったので
　　　　'　セルから読み込ませています。
　　　　
　　tmp1 = Replace(tmp, """,""", "@")
　　　　'　区切りのカンマを周りのWクォーテーションごと適当な文字に変換
　　tmp2 = Replace(tmp1, """", "")
　　　　'　不要なWクォーテーションを消去
　　s = Split(tmp2, "@")
　　　　'　区切りに設定した文字列で分割
　　MsgBox s(0) & Chr(10) & s(1) & Chr(10) & s(2) & Chr(10) & _
　　　　　　s(3) & Chr(10) & s(4)
　　　　'　分割結果を表示確認
End Sub

>▼Jaka さん：
>
>返信ありがとうございます
>
>「111」です
>　Wクォーテーション無しで、セルに表示させたいと思ってます
>
>今、教えてもらった過去ログを拝見しておりますが、
>ちょっといまいち、解読に時間がかかりそう･･･です
>

5 hits

▼

【67957】CSVの取込について なな 11/1/19(水) 11:59