Excel VBA質問箱 IV

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

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


21409 / 76738 ←次へ | 前へ→

【60730】Re:わかりません。
発言  kanabun  - 09/3/11(水) 20:16 -

引用なし
パスワード
   ▼お願いします さん:
こんばんは。

>1.指定フォルダの更新日の新しいCSVファイルを取得
>2.このCSVファイルをTXTファイルで開き、EXCEL化
> 
> ※列は4列、行は1000程度
>
>3.取得したいデータは、
> 4列目の最終行
>
>これをSheet1のどこでもいいので貼り付ける。
>
>
>1.の取得は分かりましたが、2.が分かりません。

最終行の最終列だけ取得できればいいのなら、 手順 2. は不要なのでは?

一例です。
Sub Test1()
  Dim myText As String
  '(1)
  myText = "指定フォルダの更新日の新しいCSVファイル"
  
  '(2) 不要につき割愛
  
  '(3) 最終行の最終列のあたい
  Dim io As Integer
  Dim buf() As Byte
  Dim j As Long
  Dim v
  Dim data
   'ファイルを開く
   io = FreeFile()
   Open myText For Binary As io
   ReDim buf(1 To LOF(io))
   Get #io, , buf      '---全データを読み込む(Shift-JIS)
   Close io
   v = Split(StrConv(buf, vbUnicode), vbCrLf)'---Unicodeに変換後、
                      '改行コードで行に分割
   data = v(UBound(v) - 1)        '最終行データ
   j = InStrRev(data, ",")        'お尻からカンマを探す
   data = Mid$(data, j + 1)       '最後のカンマ以降のdata
   Worksheets("Sheet1").Range("A1").Value = data 'Sheetに貼り付ける
  
End Sub

0 hits

【60729】わかりません。 お願いします 09/3/11(水) 19:39 質問
【60730】Re:わかりません。 kanabun 09/3/11(水) 20:16 発言
【60740】Re:わかりません。 質問者 09/3/12(木) 14:22 お礼
【60741】Re:わかりません。 kanabun 09/3/12(木) 14:39 発言
【60743】Re:わかりません。 kanabun 09/3/12(木) 15:46 発言
【60744】Re:わかりません。 感謝いたします。 09/3/12(木) 16:53 お礼

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