No.2ベストアンサー
- 回答日時:
1,2,3,4
1,2,3,4,5,6
1,2,3,4,5,6,7,8
このような Test.csv があるとします。
Private Sub コマンド0_Click()
Dim I As Integer
Dim N As Integer
Dim Datas() As String
Datas() = FileReadArray("C:\Temp\Test.csv")
N = UBound(Datas())
For I = 0 To N
Debug.Print Datas(I)
Next I
End Sub
[イミディエイトウィンドウ]
1,2,3,4
1,2,3,4,5,6
1,2,3,4,5,6,7,8
と、このように読み込むことが可能です。
Private Sub コマンド0_Click()
Dim I As Integer
Dim J As Integer
Dim N As Integer
Dim M As Integer
Dim Datas() As String
Dim Fields() As String
Datas() = FileReadArray("C:\Temp\Test.csv")
N = UBound(Datas())
For I = 0 To N
Fields() = Split(Datas(I), ",")
M = UBound(Fields())
For J = 0 To M
Debug.Print Fields(J)
Next J
Debug.Print "---------"
Next I
End Sub
と、改造すれば、各行の列データを取り出すことも可能です。
1
2
3
4
---------
1
2
3
4
5
6
---------
1
2
3
4
5
6
7
8
---------
※参照設定で、Microsoft scripting runtime を参照するようにする必要があります。
※長くなりますので、FileReadArray()はおって紹介します。
No.3
- 回答日時:
s_husky です。
FileReadArray()は、私が利用しているAccess の標準モジュール[ファイルアクセスライブラリ] の中の一つの関数です。
以下は、それに関する説明文です。
Microsoft のオブジェクト志向の成果の一つは、Scripting.FileSystemObject です。これによって、ファイルの読み込みや書き出しが画期的に簡単になりました。第三章では、更に、一歩進んだ、より簡便なファイルシステム関数を作成します。
scrrun.dll と参照設定
Scripting.FileSystemObject は、scrrun.dll で提供されています。そこで、Access の VBA が同 dll を参照するように設定する必要があります。VBA エディタを開き、[ツール(T)]-[参照設定(R)]の手順で参照設定を更新して下さい。
201: FolderExists() フォルダの有無を検査し真または偽を返します。
202: FileExists() ファイルの有無を検査し真または偽を返します。
203: FileSize() ファイルのサイズをバイト単位で返します。
204: GetFileList() フォルダの公的なファイル一覧を配列に格納します。
205: FileWrite() ファイルに文字列を書き込みます。
206: FileReadAll() ファイルの全てを読み込みます。
207: FileRead() ファイルの各行を順次に読み込みます。
208: FileReadArray() ファイルの各行を配列に読み込みます。
・・・略・・・
Public Function FileReadArray(ByVal FileName As String) As String()
On Error GoTo Err_FileReadArray
Dim fso As FileSystemObject
Dim fil As File
Dim txs As TextStream
Dim strText As String
Dim strTexts() As String
Set fso = New FileSystemObject
Set fil = fso.GetFile(FileName)
Set txs = fil.OpenAsTextStream(ForReading, TristateUseDefault)
strText = txs.ReadAll
strTexts = Split(strText, Chr$(13) & Chr$(10))
Exit_FileReadArray:
FileReadArray = strTexts()
Exit Function
Err_FileReadArray:
MsgBox Err.Description & "(FileReadArray)", vbExclamation, " 関数エラーメッセージ"
strTexts() = Split("")
Resume Exit_FileReadArray
End Function
FileReadArray関数が読み込んだ配列の添字が -1 の場合は、読み込みが行われなかったことを示しています。
No.1
- 回答日時:
Open FNAME_XX For Input As #1
Do While Not EOF(1)
Input #1, TXT1,TXT2,TXT3,・・・・・・・・・・
Loop
Close #1
VB6使用
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Access(アクセス) access,vbaでフォルダ内のファイルをテーブルにインポート、ファイル名もフィールドに追加したい 1 2022/08/31 11:11
- Excel(エクセル) エクセルのVBAについて とあるサイトのコードを参考に、CSVの文字化けを直すVBAを作成しているの 7 2022/11/04 14:15
- Visual Basic(VBA) 複数のcsvファイルをExcelに一括変換したい 2 2023/03/03 12:44
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/15 15:48
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/02/05 09:55
- Outlook(アウトルック) 【 Windows 10 】アドレス帳に正しくインポートを完了させたい。 3 2023/04/23 13:41
- XML PHP.laravelについて 1 2023/07/06 15:26
- Excel(エクセル) CSVファイルがカンマ区切りにならない。対処法を教えていただきたいです。 仕事でSMS一斉送信ができ 2 2022/07/01 21:24
- その他(プログラミング・Web制作) データ解析ソフトRでのファイル入力read.csvがエラーになります 7 2022/03/27 22:11
- Visual Basic(VBA) VBAで特定の場所にあるCSVファイル(複数)から特定場所を抜き出してExcelに転記したいです。 11 2023/05/23 16:29
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
同名フォルダを作成し、そのフ...
-
PCに保存していた写真を見られ...
-
拡張子をつくる
-
OpenFileDialogを使った後にも...
-
Excelで外部のファイルの場所を...
-
<a href="file:///フォルダ名/...
-
Excelファイルにリンク→シート...
-
MkDir パス名が無効です
-
ExcelVBAでリンク先の対象のフ...
-
EXCEL VBAのDir関数について
-
OneDriveのドキュメントにある...
-
ExcelのVBProjectがExcelを開く...
-
wordのハイパーリンクについて
-
Excel VBAでフォルダが何層にも...
-
アクセスログの見方について
-
My PSP8 Filesって何?
-
TomcatでWARごとにログファイル...
-
どのページにも同じメニューを...
-
linux duコマンドで困っています。
-
Beep音を出すには?
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
PCに保存していた写真を見られ...
-
拡張子をつくる
-
Excelで外部のファイルの場所を...
-
同名フォルダを作成し、そのフ...
-
MkDir パス名が無効です
-
OpenFileDialogを使った後にも...
-
Outlookで添付ファイルの貼り付...
-
ファイルの作成日時について
-
参照元Excelファイルをバックグ...
-
EXCEL VBAのDir関数について
-
ExcelVBAでリンク先の対象のフ...
-
Mac Excel VBAについて
-
VBSでメール送信
-
秀丸のタグジャンプがうまくで...
-
ファイルとフォルダのセキュリ...
-
OneDriveのドキュメントにある...
-
「~$ファイル名.doc」というフ...
-
<a href="file:///フォルダ名/...
-
EPSON emqファイルをPrint CDで
-
スマホでHTMLファイルを開いて...
おすすめ情報