|
USE Customer
select * from Customer into table c:\file.xls ****///ใช้ Sql หรือ copy to c:\file type xls
oExcel = CreateObject("Excel.application") wb = oExcel.Workbooks.Open("c:\file.xls ...") WITH wb.Sheets("My Sheet") row = 1 SCAN FOR col = 1 TO FCOUNT() .Cells( row, col ).Value = EVAL(FIELDS(col)) ENDFOR row = row + 1 ENDSCAN ENDWITH oExcel.Visible = 1 |
ปู SkylineGT
26 มี.ค. 50
เวลา 12:35:32 น. --> 222.123.173.55, |
|
|
|