Excel VBA質問箱 IV

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

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


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

40601 / 76732

←次へ　｜　前へ→


	【41227】Re:住所の分割方法

ｍ2ｍ10 - 06/8/2(水) 15:04 -


	引用なし

	パスワード

こんちは
郵便番号CSVから直接DAOで郵便番号からの取り込みを
作成しましたがＣＳＶの件数が多いので時間がかかります
直接アクセスからを勧めますが、
一応例として入れます。

条件列に　郵便番号　[1020072]
参照設定　DAO3.X　が必要です

Sub GEt001_DAO()

　　Dim db As Database
　　Dim rs As Recordset
　　Dim strPath As String
　　Dim Fname As String
　　Dim sql　 As String
　　Dim objra As Range
　　Dim objrb As Range
　　
　　strPath = Mid(ThisWorkbook.FullName, 1, InStrRev(ThisWorkbook.FullName, "\"))
　　Fname = "KEN_ALL.CSV"
　　　　
　　Set objra = Range(Range("A2"), Range("A65536").End(xlUp))
　　
　 For Each objrb In objra
　　 Range(objrb.Address).Select

　　 sql = "SELECT * FROM [" & Fname & "] " & _
　　　　 " WHERE F3='" & Range(objrb.Address).Value & "';"

　　 Set db = OpenDatabase(strPath, False, False, "TEXT;HDR=NO;")
　　 Set rs = db.OpenRecordset(sql, dbOpenDynaset)
　　 If rs.EOF = False Then
　　　ActiveCell.Offset(0, 2).Value = rs![f7]
　　　ActiveCell.Offset(0, 3).Value = rs![f8]
　　　ActiveCell.Offset(0, 4).Value = rs![f9]
　　 End If
　　 rs.Close
　 Next

db.Close
End Sub

0 hits

▼

【41140】住所の分割方法 pi 06/7/31(月) 18:30