JSA实现多工作簿多工作表数据查询SQL（附件带JSA链接MySQL）

Again123456

lin7516 发表于 2023-10-4 15:05
能不能发个单纯的连接一个工作薄的,不要打开文件这一步啊

1. //好久前的代码了
   
2. function oledbAccess(){
   
3. ActiveSheet.Cells.ClearContents();
   
4. let sql= "SELECT * FROM 考试成绩"
   
5.     let conn="OLEDB;Provider=Microsoft.ACE.OLEDB.12.0;Data Source=f:\\mytest.mdb;"
   
6.     let qt= ActiveSheet.QueryTables.Add(conn,Range("A1"),sql);
   
7.     qt.Refresh();
   
8.     qt.Delete();
   
9.   }
   
10.   
    
11.   function oledbExcel(){
    
12.   ActiveSheet.Cells.ClearContents();
    
13.   let sql= "SELECT * FROM [sheet1$]"
    
14.     let conn="OLEDB;Provider=Microsoft.ACE.OLEDB.12.0;Data Source=f:\\mytest.xls;Extended Properties='Excel 12.0 Xml;HDR=YES;IMEX=1'"
    
15.     let qt= ActiveSheet.QueryTables.Add(conn,Range("A1"),sql);
    
16.     qt.Refresh();
    
17.     qt.Delete();
    
18.   }
    

复制代码