Excelのデータ抽出について (ID:104566)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 たとえばこんなかんじ。 Private Sub Command1_Click() Dim dbs As DAO.Database Dim rst As DAO.Recordset Dim strSQL As String Set dbs = DBEngine.Workspaces(0).OpenDatabase _ ("c:\名簿.xls", False, False, "Excel 8.0;") strSQL = "Select * FROM [件数$] WHERE [町] = ""港区"" " Set rst = dbs.OpenRecordset strSQL Do Until rst.EOF ............ rst.MoveNext Loop rst.Close dbs.Close Set rst = Nothing Set dbs = Nothing MsgBox "おわったよん" End Sub