¥Ø«e¥H³o¼Ë°µ¬°¤@¦¸¬d¸ß
½Ð°Ýn«ç¼Ë¤~¯à±N strSql ¬d¸ß§¹ªº¸ê®Æ
¦A¥HRS¤ºªº¸ê®Æ ¶i¦æ¤G¦¸¬d¸ß©O?
- Dim rs As ADODB.Recordset 'Án©ú°O¿ý¶°¹ï¶H
- Dim strSql As String
- cnn.Open "provider=microsoft.ACE.oledb.12.0;Extended Properties=EXCEL 12.0;data source=" & ThisWorkbook.FullName
- strSql = " slect ½s¸¹,Ãþ«¬,«~¦W from ì©l¸ê®Æ where Ãþ«¬='¼Ò«¬'"
- rs.Open strSql, cnn, adOpenStatic
½Æ»s¥N½X |