Excel VBA質問箱 IV

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

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


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

22778 / 76807

←次へ　｜　前へ→


	【59407】Re:でっかいCSVをExcelでサクッと開きたい

Yuki - 08/12/10(水) 8:44 -


	引用なし

	パスワード

▼りったさん：
>Accessに入れてみたり、ODBCに入れてみたりしてだましだまし運用しているのですが、どちらも微妙な制限が付きまとうので、

上記のことがどのようなことか分かりませんが、
下記の要領で試してみて下さい。

Sub Ado_CsvTest()
　　Dim cn　　　　 As ADODB.Connection
　　Dim rs　　　　 As ADODB.Recordset
　　Dim strFName　 As Variant
　　Dim strDBName　As String
　　Dim strTBLName As String
　　Dim strSQL　　 As String
　　Dim i　　　　　As Long
　　
　　'strFName = ThisWorkbook.Path & "\TEST.csv"
　　
　　'データベース名およびテーブル名の生成
　　strTBLName = "TEST.csv"
　　strDBName = ThisWorkbook.Path & "\"
　　
　　'データベースに接続
　　Set cn = New ADODB.Connection
　　With cn
　　　　.Provider = "Microsoft.Jet.OLEDB.4.0"
　　　　.Properties("Data Source").Value = strDBName
　　　　.Properties("Extended Properties").Value = "Text;HDR=Yes;"
　　End With
　　cn.Open
　　
　　strSQL = "SELECT * FROM [" & strTBLName & "]"
　　
　　'レコードセットを取得
　　Set rs = New ADODB.Recordset
　　With rs
　　　　.ActiveConnection = cn
　　　　.CursorLocation = adUseClient
　　　　.CursorType = adOpenStatic
　　　　.LockType = adLockReadOnly
　　　　.Source = strSQL
　　　　.Open , , , , adCmdText
　　End With
　　
　　With Worksheets("Sheet1")
　　　　.Cells.ClearContents
　　　　For i = 1 To rs.Fields.Count
　　　　　　.Cells(1, i).Value = rs.Fields(i - 1).Name
　　　　Next
　　　　.Range("A2").CopyFromRecordset rs
　　End With
　　rs.Close
　　cn.Close
　　Set rs = Nothing
　　Set cn = Nothing
End Sub

0 hits

▼

【59391】でっかいCSVをExcelでサクッと開きたい りった 08/12/9(火) 17:08