• ベストアンサー

Excelで作成されたCSVのVBでの読み込み

いつもお世話になっております。 Excel2K、2002を使用しております。 Excelで作成されたCSVファイルをVBAで読み込もうと、以下の関数を作成しました。 Public Function CsvRead(ByVal FileName As String) 　　Dim IntFileNum As Integer 'ファイル番号 　　Dim TmpStr As String ' 　　IntFileNum = FreeFile 　　Open FileName For Input As #IntFileNum 'CSVファイルのオープン 　　Do Until EOF(IntFileNum) 　　　　Input #IntFileNum, TmpStr 　　　　' 　　　　'～その他の処理～ 　　　　' 　　Loop 　　Close End Function その他の処理中で特定の列に対し、特殊な処理を行う必要があるのですが ExcelでCSVファイルを作成する場合、16行単位でカンマの変動が起こりえますので、 http://support.microsoft.com/default.aspx?scid=kb%3Bja%3B400253 正確な列が取れません。 そこで1行読み込んでカンマで分解すればよいかと思い、 以下のように読み込んでみたのですが、、 　　Dim TmpStr() As String ' 　　Dim LineStr As String 　　IntFileNum = FreeFile 　　Open FileName For Input As #IntFileNum 'CSVファイルのオープン 　　Do Until EOF(IntFileNum) 　　　　Line Input #IntFileNum, LineStr 　　　　TmpStr = Split(LineStr, ",") 　　　　' 　　　　'～その他の処理～ 　　　　' 　　Loop 値にカンマが存在する場合も区切ってしまうので これも正しく取れませんでした。 値のカンマは区切り文字として判定せず、 正しく値を取得するにはどのようにすればよいでしょうか。 上記のことをふまえた判定をすべて行うしかないでしょうか。 ご教授のほど、よろしくお願いいたします。

質問者が選んだベストアンサー

  • ベストアンサー
noname#8027
noname#8027
回答No.1

どうしてもＣＳＶで保存する必要がありますか？ 「テキスト（タブ区切り）」で保存して、タブで切り分けてはどうでしょうか？ 下記の例では、TmpStrにダブルクォーテーションが含まれますので、必要なら調整してください。私、 日曜プログラマなもので、Splitの使い方がわからず、以下のようになりました。 Do While InStr(LineStr, vbTab) TmpStr = Left(LineStr, InStr(LineStr, vbTab) - 1) LineStr = Mid(LineStr, InStr(LineStr, vbTab) + 1) MsgBox "[LineStr]" & LineStr & "/" & vbCr & vbLf & "[TmpStr]" & TmpStr & "/" 'デバッグ用 Loop

o_w_nakazaki
質問者

お礼

早々のご返答をくださり、ありがとうございます。 #2様のデータにTABがあながち間違いでもなく、 テキストエディタで編集された場合も 発生しうる為、ちょっと当該方法では難しいかもしれませんが、 当該方法も含め検証させていただこうかと思います。

その他の回答 (3)

  • arata
  • ベストアンサー率49% (139/279)
回答No.4

Accessで取り込むことが前提なら、ExcelシートをAccessへインポートしてしまっては？

o_w_nakazaki
質問者

お礼

ご回答いただき、ありがとうございます。 結局、AccessからOLEでExcelを起動し、 CSVをExcelから開いて、各項目を読み込む 方法をとらせていただきました。 作業テーブルを使用せず、各項目を解析した後に テーブルへ格納するという処理が必要でしたので 当該方法では対応しませんでした。 ありがとうございました。

  • imogasi
  • ベストアンサー率27% (4737/17068)
回答No.3

私がやって見ると、 （１）文字列データの中に、カンマがあると "asd,wer"のようにダブルクオーテーションで囲んでくれる ようですのでそれを踏まえてプログラムを作るか （２）エクセルで、PRN形式で保存し（直し）て、各列の桁数が揃うのを利用するかのどちらかではないでしょうか。

o_w_nakazaki
質問者

お礼

ご回答いただき、ありがとうございます。 結局、AccessからOLEでExcelを起動し、 CSVをExcelから開いて、各項目を読み込む 方法をとらせていただきました。 ただきましたご回答、参考になりました。 落ち着いたら試してみたいと思います。 ありがとうございました。

  • arata
  • ベストアンサー率49% (139/279)
回答No.2

タブで保存しても、データにタブがあったら・・・って冗談は置いておいて PHDRさんご提案のタブ区切りでＯＫだと思いますが、それ以前に、元のＥｘｃｅｌシートを直接ＶＢＡで操作しないのは何故でしょうか？ データを別形式で保存するよりは、確実ではないですか？

o_w_nakazaki
質問者

お礼

早々のご返答、ありがとうございます。 厳密に言えば、Excelで作成されたCSVを Accessで作成したシステム上でテーブルに取り込む 必要があるのです。 最終手段として、 OLEでExcelを起動して、取り込むことを検討しております。

  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. オフィス系ソフト

関連するQ&A

  • CSVの読み込み処理について

    こんばんわです。 エクセルのVBAをつかってCSV形式のファイルデーターを読み込みように某サイトを参考に作成しました。 確かに読み込む事が出来たのですが、数値も文字列扱いになってしまいます。 数値処理する方法があるのでしょうか？ Sub CSV_Read2() Dim FileType, Prompt As String Dim FileNamePath As Variant Dim textline, csvline() As String Dim Rowcnt, ColumNum As Integer Dim ch1 As Long FileType = "CSV ファイル (*.csv),*.csv" Prompt = "CSV File を選択してください" '操作したいファイルのパスを取得します FileNamePath = SelectFileNamePath(FileType, Prompt) If FileNamePath = False Then 'キャンセルボタンが押された End End If '空いているファイル番号を取得します ch1 = FreeFile 'FileNamePath のファイルをオープンします Open FileNamePath For Input As #ch1 'エラーが発生したらファイルを閉じます 'CSVのファイルは1行の項目数が正確に合っていないと読めないのですが、 '色々なCSVがあるようなので入れておきます On Error GoTo CloseFile '表の行番号の初期化 1行目から読み込んだデータを入力します Rowcnt = 1 Do While Not EOF(ch1) 'ファイルの終端かどうかを確認します。 '1行読み込みます Line Input #ch1, textline 'ダブルクォーテーションを削除します 'カンマ+ダブルクォーテーションで区切られている ＣＳＶ ファイルなどは '適時追加してください textline = Replace(textline, """", "") 'カンマで分離します csvline() = Split(textline, ",") '配列渡しでセルに代入 Range(Cells(Rowcnt, 1), Cells(Rowcnt, UBound(csvline()) + 1)) = csvline() Rowcnt = Rowcnt + 1 Loop CloseFile: 'ファイルを閉じます Close #ch1 End Sub Function SelectFileNamePath(FileType, Prompt) As Variant SelectFileNamePath = Application.GetOpenFilename(FileType, , Prompt) End Function Function GetItemNum(FileNamePath) As Integer Dim ch1 As Long Dim textline As String '空いているファイル番号を取得します ch1 = FreeFile 'FileNamePath のファイルをオープンします Open FileNamePath For Input As #ch1 Line Input #ch1, textline '1行だけ読み込みます。 Close #ch1 GetItemNum = 1 '1行中のカンマの数を数えます Do GetItemNum = GetItemNum + 1 textline = Mid(textline, InStr(textline, ",") + 1) Loop Until InStr(textline, ",") = 0 End Function

  • VB6.0　CSVファイル読み込みについて

    VB6.0について質問です。 CSVファイルの読み込みを行いたいのですがうまくいきません。。。 以下のソースのどこに問題ありますでしょうか？＞＜ 14個のカンマ区切りのCSVファイルを読み込んでいますが ファイルのデータを変更するとインデックスが有効範囲にありませんというエーラーがでます。。。 ファイルは3行で構成しているのですがヘルプを参照したら複数行の場合はLINE Input #1, MyString(i)と書いてありました。 しかしやってみると行ごとのデータを取得してカンマ区切りで取得してくれませんでした。。。 以下のソースで実行すると改行部でエラーになるようです。 改行を無視するようなロジックを入れる必要があるのでしょうか？ Dim MyString(), i Open App.path & "\" & CSV_filename For Input As #1 ReDim MyString(13) Do While Not eof(1) Input #1, MyString(i) Label4(i).caption = MyString(i) i = i + 1 Loop Close #1

  • エクセルのCSV読み込みについて

    現在，以下の記述でエクセル上にマクロ実行ボタンを作成しました。 任意のCSVファイルをエクセルに取り込み利用する目的です。 実行ボタンを押すと，「実行時エラー　ファイルにこれ以上データがありません。」として，記述中の 「Input #intFF, X(1), X(2), X(3), X(4), X(5), X(6), X(7) ' (2)」 部分が黄色になって止まってしまいます。 エクセル画面上には，希望通りのデータが出力されているようなので，このエラーが表示されなければデータの取り込みとしては問題ないのですが・・・。 どのようにこのエラーを回避し処理すればよいかかが分かりません。 どなたかご教示いただければ幸いです。 どうかよろしくお願いいたします。 Sub Macro4() ' CSV形式テキストファイル(7カラム)読み込みサンプル Const cnsTITLE = "テキストファイル読み込み処理" Const cnsFILTER = "CSV形式ファイル (*.csv),*.csv,全てのファイル(*.*),*.*" Dim xlAPP As Application ' Applicationオブジェクト Dim intFF As Integer ' FreeFile値 Dim strFileName As String ' OPENするファイル名(フルパス) Dim vntFileName As Variant ' ファイル名受取り用 Dim X(1 To 7) As Variant ' 読み込んだレコード内容 ' (1) Dim GYO As Long ' 収容するセルの行 Dim lngREC As Long ' レコード件数カウンタ ' Applicationオブジェクト取得 Set xlAPP = Application ' 「ファイルを開く」のフォームでファイル名の指定を受ける xlAPP.StatusBar = "読み込むファイル名を指定して下さい。" vntFileName = xlAPP.GetOpenFilename(FileFilter:=cnsFILTER, _ Title:=cnsTITLE) ' キャンセルされた場合はFalseが返るので以降の処理は行なわない If VarType(vntFileName) = vbBoolean Then Exit Sub strFileName = vntFileName ' FreeFile値の取得(以降この値で入出力する) intFF = FreeFile ' 指定ファイルをOPEN(入力モード) Open strFileName For Input As #intFF GYO = 1 ' ファイルのEOF(End of File)まで繰り返す Do Until EOF(intFF) ' レコード件数カウンタの加算 lngREC = lngREC + 1 xlAPP.StatusBar = "読み込み中です．．．．(" & lngREC & "レコード目)" ' レコードを読み込む(このサンプルは7項目のCSV) Input #intFF, X(1), X(2), X(3), X(4), X(5), X(6), X(7) ' (2) ' 行を加算しA～G列にレコード内容を表示(先頭は2行目) GYO = GYO + 1 Range(Cells(GYO, 1), Cells(GYO, 7)).Value = X ' 配列渡し ' (3) Loop ' 指定ファイルをCLOSE Close #intFF xlAPP.StatusBar = False ' 終了の表示 MsgBox "ファイル読み込みが完了しました。" & vbCr & _ "レコード件数=" & lngREC & "件", vbInformation, cnsTITLE End Sub

  • VB5でCSVデータをAccess97のDBへセット

    普段はVB.NETの開発をすこししているのですが VB5のプログラムの修正の依頼が来て困っています。 CSVのデータをVB5でAccess97のDBへデータセットしたいのですが VB.Netでは同様のプログラムを作成した事があるのですが VB5は全然仕様が違うので困っています。 VB5でCSVを読み込んで配列にセットするにはどのように したらいいのでしょか？CSVを行で読み込むところは なんとか調べてわかりましたが、VB5ではSplitや配列が使えそうに ないのでどのようにしたらいいのかわかりません。 よろしくお願いします。 現在のソース Dim strTextLine As String Dim strTxtDat As String intFileNo = FreeFile Open "c:\infile.csv" For Input As #intFileNo Do While Not EOF(intFileNo) Line Input #intFileNo, strTextLine Loop Close #intFileNo

  • VB6で特定フォルダのCSVファイルを指定して開く

    　お世話になります。 　ある株価を記すCSVファイルを読んで、配列格納しようと下記プログラムを書いてみましたが、 この状態では「読み込み対象のファイル」が「このVBプロジェクト」と同じフォルダに入っていなければならないようです。 　 　そこで　C:\IR_NK\USDJPY_20071010.csv　の　USDJPY_20071010.csv　を読むというように、「別のフォルダのファイル」を読み込むように書き換えたいです。 　この場合、どのように書けばいいか教えて欲しいです。 Private Sub C_FJU() Dim H_R(2) As Integer Dim HI_R(2, 8000) As String Dim intFileNo As Integer Dim strTextLine As String Dim strTxtDat As String intFileNo = FreeFile Open "USDJPY_20071010.csv" For Input As #intFileNo Do While Not EOF(intFileNo)　 Input #intFileNo, strTextLine H_R(0) = H_R(0) + 1 HI_R(0, H_R(0)) = Trim(strTextLine) strTxtDat = strTxtDat & strTextLine & vbCrLf Loop T_HYO.Text = strTxtDat　 Close #intFileNo End Sub

  • テキストの読込について

    あいうえお かきくけこ さしすせそ ↑のような中身のテキストファイルを読み込んで、 あいうえおかきくけこさしすせそ ↑のように、改行をなくして新規テキストに出力する プログラムを作成中なのですが、上手くいかず 困っています。 改行を無視した取り込みは出来るのでしょうか？ もしくは、LineInput等で読み込んだ後、 改行を取り除くような処理をするのでしょうか？ 下記は、現在まで作ったプログラムなのですが、 これだと、改行も同時に取り込んでしまっています。 Private Sub Command1_Click() Dim sData As String Dim FileName As String CommonDialog1.Filter = "テキスト|*.txt|全てのファイル|*.*" CommonDialog1.ShowOpen FileName = CommonDialog1.FileName Open FileName For Input As #1 Do Until EOF(1) Line Input #1, sData Loop Close #1 環境は、WindowsXP、VB6.0エンタープライズです。 以上、宜しくお願い致します<(_ _)>

  • INPUT関数でのCSV読込がおかしい件

    VisualBasic6.0で開発しております。 string型にて宣言した配列にシーケンシャルモードで 開いたCSVファイルを、 INPUT関数にて読み込んでいるのですが、" あああ" といったデータが、 配列に入ると"あああ "となってしまいます。つまり空白文字列が頭からお尻に移動してしまいます。 どなたか原因がわかる方、また回避方法がわかるかた は教えて頂ければ幸いです。なお、LINEINPUTではそのような現象はおこりません。しかしLINEINPUTは速度の観点から使いたくありません。 ＜参考ソース＞ 　　Type hairetu 　　　a As String 　　　b As String 　　　　・ 　　　　・ 　　End Type 　　Global 配列() As hairetu 　　dim intfile as integer 　　dim lngcnt as integer 　　intFile = FreeFile 　　Open "パス" For Input As #intFile 　　lngCnt = 0 　　Do While Not EOF(intFile) 　　　redim preserve 配列(lngCnt) 　　　Input #intFile, 配列(lngCnt).a，配列(lngCnt).b，・・・ 　　　lngCnt=lngCnt+1 　　LOOP

  • VB6 「Line Input」でのリークについて

    VB6での「Line Input」命令使用時のメモリリークについて教えて下さい。 1分毎に3600行のCSVファイルを読み込むプログラムを作成しています。 　（CSVファイルは1行500文字程度） 以下の【パターン１】は作成したプログラムの1部ですが、 （１）を3600回ループ時にパフォーマンスモニタでの「Private Bytes」が増加してしまいます。 　　（1ループ毎に増加せず、数十回ループする毎に増加します。） 試しに【パターン２】を作成し、CSVファイルはオープンのみ行い、 読み込みは行わずに、500文字の文字列が入った変数をコピーした場合は、 「Private Bytes」は増加しません。 基本的に違いは（１）と（２）の箇所だけなのですが、 「Line Input」命令の使用方法などで間違っている箇所があるのでしょうか？ ご存知の方、教えて下さい。お願いします。 【パターン１】 Private Sub read_Timer() Dim i As Long Dim CsvDataBuf(3600) As String 'CSV読込み変数 Dim FP As Integer 'ファイル番号 （省略） ： FP = FreeFile Open "C:\test.csv" For Input As #FP i = 0 Do While Not EOF(FP) And i <= (3600 - 1) Line Input #FP, CsvDataBuf(i) 　　　　←（１） i = i + 1 Loop Close #FP ： （省略） 【パターン２】 Private Sub read_Timer() Dim i As Long Dim CsvDataBuf(3600) As String 'CSV読込み変数 Dim tempBuf As String Dim FP As Integer 'ファイル番号 （省略） ： tempBuf = "～500文字の文字列～" FP = FreeFile Open "C:\test.csv" For Input As #FP i = 0 Do While Not EOF(FP) And i <= (3600 - 1) CsvDataBuf(i) = tempBuf 　　　　　　←（２） i = i + 1 Loop Close #FP ： （省略）

  • CSVファイルの読み込み

    お世話になります。 ＶＢＡでＣＳＶファイルを読み込んで処理をしたいのですが、 たとえば下記のようなＣＳＶファイルの場合 ２つめの項目が金額セットされており、あらかじめ通貨編集（カンマ編集） がされていて 金額を１つの項目として読み込む事が出来ません。 金額は""でくくってあるのですが、 カンマ区切りのデータと""でくくってあるデータを うまく区別して３つの項目をそれぞれ抽出する事は可能でしょうか？ -----以下ＣＳＶの内容------ 日付,金額,データ 2007/03/09,"1,200",TEST1 2007/03/09,"12,200",TEST2 2007/03/09,"76,00",TEST3 2007/03/09,"4,5600",TEST4 --------------------------- ちなみに現在はこのようにカンマ区切り指定でデータを抽出してるので うまく出来ません。 　　'FileNameにはオープンするファイル名がセットされています 　 Open FileName For Input As 　　'textlineに１行を読み込む 　　Line Input #ch1, textline 　　csvline() = Split(textline, ",") ＶＢＡがまだ不慣れな為質問やサンプルが分かりずらいと思いますが よろしくお願いします。

  • VB6.0　改行コードのないファイルの読み込み

    VB6.0で改行コードが無く、半角と全角文字が入り混じっているファイルの読み取り方法を教えて下さい。 通常の一行読み込みの範囲を大幅に超えている文字列です。 他のサイトで以下のようなプログラム(20バイトずつ切り取って読む)を見つけたのですが、 Dim InFileNo As Integer Dim Buf As string * 10 Dim LINE As Long InFileNo = FreeFile Open "C:\test.txt" For Random As #InFileNo Len = 20 LINE = 1 Do Until EOF(InFileNo) Get #InFileNo, LINE, buf LINE = LINE + 1 Loop これだと、半角と全角が混じっている箇所で文字化けを起こしてしまいます。 以上です。よろしくお願い致します。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する