Excel VBA質問箱 IV

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

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


40601 / 76732 ←次へ | 前へ→

【41227】Re:住所の分割方法
発言  m2m10  - 06/8/2(水) 15:04 -

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

条件列に 郵便番号 [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 質問
【41142】Re:住所の分割方法 ponpon 06/7/31(月) 19:26 発言
【41198】Re:住所の分割方法 pi 06/8/1(火) 18:05 質問
【41149】Re:住所の分割方法 inoue 06/7/31(月) 22:36 発言
【41200】Re:住所の分割方法 pi 06/8/1(火) 18:10 質問
【41233】Re:住所の分割方法 角田 06/8/2(水) 18:04 回答
【41157】Re:住所の分割方法 m2m10 06/8/1(火) 8:25 発言
【41201】Re:住所の分割方法 pi 06/8/1(火) 18:15 質問
【41225】Re:住所の分割方法 neptune 06/8/2(水) 14:17 回答
【41363】Re:住所の分割方法 m2m10 06/8/7(月) 15:06 発言
【41367】Re:住所の分割方法 neptune 06/8/7(月) 18:35 発言
【41204】Re:住所の分割方法 ハチ 06/8/1(火) 19:56 発言
【41237】Re:住所の分割方法 ハチ 06/8/2(水) 19:34 発言
【41284】Re:住所の分割方法 ハチ 06/8/3(木) 19:54 発言
【41227】Re:住所の分割方法 m2m10 06/8/2(水) 15:04 発言
【41273】Re:住所の分割方法 pi 06/8/3(木) 16:07 お礼
【41278】Re:住所の分割方法 neptune 06/8/3(木) 16:55 発言
【41289】Re:住所の分割方法 toshi 06/8/3(木) 21:27 質問
【41290】Re:住所の分割方法 neptune 06/8/3(木) 22:38 発言
【41292】Re:住所の分割方法 ハチ 06/8/3(木) 23:43 発言
【41291】Re:住所の分割方法 漂流民 06/8/3(木) 23:22 発言
【41294】Re:住所の分割方法 toshi 06/8/4(金) 0:00 質問
【41295】Re:住所の分割方法 toshi 06/8/4(金) 0:50 質問
【41296】Re:住所の分割方法 toshi 06/8/4(金) 1:31 お礼
【41372】Re:住所の分割方法 漂流民 06/8/7(月) 23:35 発言

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