Excel VBA質問箱 IV

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

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


58042 / 76732 ←次へ | 前へ→

【23424】Re:改行コードをCR→CRLEに変換してファイルOpen
回答  Hirofumi  - 05/3/22(火) 20:11 -

引用なし
パスワード
   >上記のように、ファイルを開く→行があるかぎり1行づつ読み出す

善く見ていなかった?
先に提示したコードは、CSVの読み込み用のコードで
カンマでフィールド分割していますが、
中にカンマが無ければ1行として読むので、其のままでも大丈夫かも?
1行其のまま読めば善いだけならもっと簡単に成ります

コードは、以下の様に成ります
尚、「Function GetReadFile」は、其のまま使います
また、「Function SplitCsv」は、使いませんので削除して下さい

Option Explicit

Public Sub ReadCsvFSO2()

  Dim i As Long
  Dim vntFileName As Variant
  
  '読み込むファイルを指定
  If Not GetReadFile(vntFileName, ThisWorkbook.Path) Then
    Exit Sub
  End If
  
  '読み込みファイルのデータをシートに出力
  '第1引数 読み込みファイル名
  '第2引数 書き込むシート
  '第3引数 書き込み始める行位置
  '第4引数 書き込み始める列位置
  CSVReadFSO vntFileName, ActiveSheet, 1, 1
  
End Sub

Private Sub CSVReadFSO(ByVal strFileName As String, _
              ByVal wksWrite As Worksheet, _
              Optional ByRef lngRow As Long = 1, _
              Optional ByRef lngCol As Long = 1)
  
'  CSVデータの読み込み

  Dim strBuff As String
  Dim objFso As Object
  Dim objFileStr As Object
  Const ForReading = 1
  
  'FSOのオブジェクトを取得
  Set objFso = CreateObject("Scripting.FileSystemObject")
  '指定ファイルを読み込みモードでOpen
  Set objFileStr = objFso.OpenTextFile(strFileName, ForReading)
  
  With objFileStr
    'ファイルの終り迄繰り返し
    Do Until .AtEndOfStream
      'ファイルから1行読み込み
      strBuff = .ReadLine
      '指定シートの指定行列位置について
      'データの書き込み
      wksWrite.Cells(lngRow, lngCol).Value = strBuff
      '書き込み行位置を更新
      lngRow = lngRow + 1
    Loop
    'ファイルをClose
    .Close
  End With
  
  Set objFileStr = Nothing
  Set objFso = Nothing
  
End Sub
2 hits

【23411】改行コードをCR→CRLEに変換してファイルOpen LilHeart 05/3/22(火) 11:17 質問
【23419】Re:改行コードをCR→CRLEに変換してファイ... ichinose 05/3/22(火) 17:52 発言
【23443】Re:改行コードをCR→CRLEに変換してファイ... LilHeart 05/3/23(水) 14:06 お礼
【23422】Re:改行コードをCR→CRLEに変換してファイ... Hirofumi 05/3/22(火) 19:05 回答
【23424】Re:改行コードをCR→CRLEに変換してファイ... Hirofumi 05/3/22(火) 20:11 回答
【23445】Re:改行コードをCR→CRLEに変換してファイ... LilHeart 05/3/23(水) 14:09 お礼

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