2009年6月27日土曜日

CSVファイル入力 その2

今回は、もう一つのCSVファイル入力方法です。

前回は、Line Input文で、1行分読み込んでから処理しましたが、今回は、Input文を使用して、カンマで区切られた内容を1項目づつ取り出すやり方です。
今回のやり方は、予め1行に何項目あるかが分かっている場合に使えますね!

Public Sub CSV入力2()
  Dim Rtn As Integer
  Dim i As Integer
  Dim j As Integer
  Dim wFNo As Integer
  Dim wCell(3) As String
  '実行確認メッセージ
  Rtn = MsgBox("CSV入力を実行しますか?", vbQuestion + vbYesNo)
  If Rtn = vbNo Then
     Exit Sub
  End If
  'ファイル番号を取得する
  wFNo = FreeFile
  'CSVファイルをOPENする
  Open "C:\計算.csv" For Input As #wFNo
  i = 0
  'ループ(繰り返し)の開始
  Do Until EOF(wFNo)
     i = i + 1
     '1行をカンマ区切りで、1項目づつ入力する
     Input #wFNo, wCell(1), wCell(2), wCell(3)
     For j = 1 To 3
         Cells(i, j) = Replace(wCell(j), Chr$(34), "")
     Next
  'ループの終了
  Loop
  'ファイルをクローズする
  Close
  '実行結果確認メッセージ
  MsgBox "CSV入力が終了しました。", vbInformation + vbOKOnly
End Sub

それでは!

0 件のコメント:

コメントを投稿