|
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
|
|