VBA sql提取数据能保留源格式吗

满大人

如图所示，怎么将分数大于80的提取出来放旁白，并保源格式。

1. Dim SQL As String, MN%
   
2. Dim strconn As String
   
3. Dim CNN As Object
   
4. Set CNN = CreateObject("ADODB.Connection")
   
5. 
   
6. With CNN
   
7. .Provider = "Microsoft.ACE.OLEDB.12.0; Extended Properties=Excel 12.0;Data Source="
   
8. CNN.Open strconn & ThisWorkbook.FullName
   
9. 
   
10. End With
    
11. 
    
12. SQL = "SELECT TOP 3 ID FROM[Sheet1$] WHERE [分数]>80 "

复制代码

zpy2

不能的，需要重新设置格式