Excel VBA質問箱 IV

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

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


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

12807 / 76807

←次へ　｜　前へ→


	【69515】Re:CSVの取込みについて

ぞう - 11/7/27(水) 13:46 -


	引用なし

	パスワード

さっそくありがとうございました。
参照設定でMicrosoft DAO 3.6 Object Libraryにチェックを入れ、実行してみました。対象のCSVファイルを選択すると時間の計測結果のみが表示されるのですが、何か方法を間違っておりますでしょうか。

▼Jaka さん：
>Macのバイナリとかあったのか忘れましたけど、
>これも文字化けしますか？
>
>'参照設定　Microsoft DAO 3.6 Object Library が必要。(3.6は、Win2000の場合)
>
>Sub CSV読み込み()
>Dim DDB As DAO.Database
>Dim OpnF As Variant
>Dim DBPth As String, CSV_F As String
>　　
>OpnF = Application.GetOpenFilename("Excelファイル (*.csv;*.txt), *.csv;*.txt")
>If VarType(OpnF) = vbBoolean Then
>　 Exit Sub
>End If
>'GetOpenで、カレントディレクトリが移動しているので、そのまま使う。
>DBPth = CreateObject("WScript.Shell").CurrentDirectory
>CSV_F = Dir(OpnF)
>
>Stt = Now()
>Set DDB = DBEngine.Workspaces(0).OpenDatabase(DBPth, False, False, "Text;HDR=NO;")
>SQLSt = "SELECT * FROM " & CSV_F
>Set dbrs = DDB.OpenRecordset(SQLSt, dbOpenSnapshot)
>Range("A1").CopyFromRecordset dbrs
>
>Set DDB = Nothing
>Set dbrs = Nothing
>MsgBox Format(Now() - Stt, "Hh:mm:ss")
>End Sub

2 hits

▼

【69508】CSVの取込みについて ぞう 11/7/25(月) 18:20