石鹸箱 IV

VBA研究所に集まる方々の憩いの場です。みなさん自由にお使いください。
ここでは VBA の質問は厳禁。

5054 / 7636 ←次へ | 前へ→

【2645】なんか悔しい。
 Jaka  - 10/3/18(木) 9:59 -

引用なし
パスワード
   ここの
【64823】Re:CSVの取込について
no=64823

超初心者さんのコードをまねて、CSVファイルを読み見込むコードを作ってみた。
郵政省の郵便番号?CSVファイルを削って、65536行にしたやつ。
1分28秒で終わった。
現在のPCの性能がかなり上がっている元も考慮しても、なんか速すぎるような気が...。
でも、メモリに依存しそうな気もするので、昨年暮れまでのPCで試したら、止まるような気がしないでもない。

しかし、1分28秒で終わってしまうとは思わなかったので、今までの苦労は何なの!って、感じでした。


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


なんか知んないけど、URL記載が ht tp・・・とかしてもはねられる。
これもエロエロのせいでこうなったのか。
こいつら、他にやることないのかね。(こういう書き込みに対して)

127 hits

【2387】なんか作りたーい つん 09/4/27(月) 18:05
【2390】Re:なんか作りたーい Jaka 09/4/28(火) 13:01
【2392】Re:なんか作りたーい つん 09/4/28(火) 15:08
【2393】Re:なんか作りたーい Jaka 09/4/28(火) 16:09
【2394】Re:なんか作りたーい つん 09/4/28(火) 17:32
【2403】Re:なんか作りたーい つん 09/4/30(木) 16:43
【2406】元データ取得プロパティが何故ない!? つん 09/5/1(金) 14:20
【2407】Re:元データ取得プロパティが何故ない!? Jaka 09/5/1(金) 14:50
【2408】Re:元データ取得プロパティが何故ない!? つん 09/5/1(金) 15:37
【2419】全然あかんわ・・・ つん 09/5/7(木) 15:58
【2422】Re:全然あかんわ・・・ Jaka 09/5/7(木) 17:05
【2424】Re:全然あかんわ・・・ つん 09/5/7(木) 17:17
【2426】Unionを使ってみた つん 09/5/8(金) 9:49
【2427】Re:Unionを使ってみた Jaka 09/5/8(金) 12:56
【2429】Re:Unionを使ってみた つん 09/5/10(日) 22:31
【2430】Re:Unionを使ってみた Jaka 09/5/12(火) 12:49
【2431】アルコールアレルギー? つん 09/5/12(火) 13:34
【2432】Re:アルコールアレルギー? Jaka 09/5/12(火) 15:16
【2433】Re:アルコールアレルギー? つん 09/5/12(火) 17:00
【2434】Re:アルコールアレルギー? Jaka 09/5/12(火) 17:13
【2435】Re:アルコール依存症? つん 09/5/12(火) 23:32
【2436】Re:アルコール依存症? Jaka 09/5/13(水) 13:09
【2437】Re:アルコール依存症? つん 09/5/13(水) 15:19
【2438】Re:アルコール依存症? Jaka 09/5/13(水) 16:33
【2439】バブルに対応w つん 09/5/13(水) 16:46
【2442】ギブアップかな〜 つん 09/5/19(火) 11:06
【2446】バブルはダメですね。 Jaka 09/6/5(金) 16:21
【2447】Re:バブルはダメですね。 つん 09/6/6(土) 9:16
【2413】Re:なんか作りたーい りん 09/5/5(火) 8:56
【2414】Re:なんか作りたーい つん 09/5/6(水) 9:44
【2440】Re:なんか作りたーい 真下まゆ 09/5/16(土) 21:33
【2441】Re:なんか作りたーい つん 09/5/16(土) 22:24
【2623】Re:なんか作りたーい Jaka 10/2/12(金) 11:51
【2624】Re:なんか作りたーい Jaka 10/2/12(金) 12:34
【2625】アクセスのビューワーってないのかね? Jaka 10/2/15(月) 10:37
【2629】Re:アクセスのビューワーってないのかね? 小僧 10/2/23(火) 10:17
【2631】Re:アクセスのビューワーってないのかね? Jaka 10/2/26(金) 13:56
【2645】なんか悔しい。 Jaka 10/3/18(木) 9:59

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