Excel VBA質問箱 IV

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

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


12738 / 76734 ←次へ | 前へ→

【69511】Re:CSVの取込みについて
発言  Jaka  - 11/7/26(火) 9:42 -

引用なし
パスワード
   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
5 hits

【69508】CSVの取込みについて ぞう 11/7/25(月) 18:20 質問
【69511】Re:CSVの取込みについて Jaka 11/7/26(火) 9:42 発言
【69515】Re:CSVの取込みについて ぞう 11/7/27(水) 13:46 お礼
【69516】Re:CSVの取込みについて Jaka 11/7/27(水) 14:01 発言
【69518】Re:CSVの取込みについて ぞう 11/7/27(水) 15:13 質問
【69519】Re:CSVの取込みについて Jaka 11/7/27(水) 15:41 発言
【69520】追加分 Jaka 11/7/27(水) 15:43 発言
【69539】Re: ぞう 11/7/29(金) 11:22 お礼
【69549】Re: 解読不能 11/7/31(日) 18:30 発言
【69522】Re:CSVの取込みについて ぞう 11/7/27(水) 16:41 お礼
【69523】Re:CSVの取込みについて ぞう 11/7/27(水) 16:54 お礼
【69524】Re:CSVの取込みについて momo 11/7/27(水) 18:52 発言
【69536】Re:CSVの取込みについて ぞう 11/7/29(金) 10:36 お礼
【69525】Re:CSVの取込みについて n 11/7/27(水) 20:01 発言
【69537】Re:CSVの取込みについて ぞう 11/7/29(金) 10:39 お礼

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