Excel VBA質問箱 IV

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

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


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

21403 / 76732

←次へ　｜　前へ→


	【60730】Re:わかりません。

kanabun - 09/3/11(水) 20:16 -


	引用なし

	パスワード

▼お願いしますさん：
こんばんは。

>1.指定フォルダの更新日の新しいCSVファイルを取得
>2.このCSVファイルをTXTファイルで開き、ＥＸＣＥＬ化
>　
>　※列は４列、行は1000程度
>
>3.取得したいデータは、
>　4列目の最終行
>
>これをＳｈｅｅｔ１のどこでもいいので貼り付ける。
>
>
>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

2 hits

▼

【60729】わかりません。 お願いします 09/3/11(水) 19:39