Excel VBA質問箱 IV

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

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


39616 / 76738 ←次へ | 前へ→

【42232】Re:セル中の文字の置き換え方法での
発言  かみちゃん  - 06/9/4(月) 17:36 -

引用なし
パスワード
   こんにちは。かみちゃん です。

横から失礼します。

>イメージがわかないので、お手数ですがサンプルを
>記述してもらえないでしょうか?

私も似たことをしているのですが、以下のような感じでいかがでしょうか?

Sub Macro1()
 Dim strFileName As String
 Dim strTextLine As String
 Dim vntData As Variant
 Dim lngRow As Long
 
 strFileName = Application.GetOpenFilename("CSVファイル,*.csv")
 
 Open strFileName For Input As #1
 Do While Not EOF(1)
  Line Input #1, strTextLine
  lngRow = lngRow + 1
  vntData = Split(Replace(Mid(strTextLine, 3), ",=""", ","""), """,""")
  Cells(lngRow, 1).Resize(, UBound(vntData)).Value = vntData
  Erase vntData
 Loop
 Close #1
 
 MsgBox "終了しました"
End Sub
0 hits

【42104】セル中の文字の置き換え方法での 質問(煮詰まった) 06/9/1(金) 9:49 質問
【42105】Re:セル中の文字の置き換え方法での だるま 06/9/1(金) 11:12 回答
【42227】Re:セル中の文字の置き換え方法での 質問(煮詰まった) 06/9/4(月) 16:24 質問
【42232】Re:セル中の文字の置き換え方法での かみちゃん 06/9/4(月) 17:36 発言
【42241】Re:セル中の文字の置き換え方法での Hirofumi 06/9/4(月) 20:49 回答
【42243】Re:セル中の文字の置き換え方法での Hirofumi 06/9/4(月) 21:43 回答
【42245】Re:セル中の文字の置き換え方法での Hirofumi 06/9/4(月) 22:14 回答

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