ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

§ì¨ú¥t¤@­ÓexcelÀÉ¸ê®Æ

³oÃþ¾Þ§@­Ó¤H¸û¶É¦V©óADO+SQL
Sub test()
Dim CNN As New ADODB.Connection
Dim RST As New ADODB.Recordset
With CNN
.ConnectionString = "provider=microsoft.jet.oledb.4.0;" & _
"extended properties='Excel 8.0;hdr=no';" & _
"data source=D:\¥~³¡¸ê®Æ.xls"
.Open
End With
[A1].CopyFromRecordset CNN.Execute("select * from [SHEET1$A1:A10]")
End Sub
©ÎªÌª½±µ¥Î¸ê®Æ~¶×¤J¥~³¡¸ê®Æ¡A¤â¤u¬d¸ß¡I

TOP

        ÀR«ä¦Û¦b : Ãø¦æ¯à¦æ¡AÃø±Ë¯à±Ë¡AÃø¬°¯à¬°¡A¤~¯àª@µØ¦Û§Úªº¤H®æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD