VBA 怎么在不打开Excel B的情况下 提取excelB中所需的数据到其他excle 里
时间: 2023-06-03 12:03:41 浏览: 198
你好!关于你的问题,可以使用ADO(ActiveX Data Objects)技术来实现。
首先,需要设置好ADO连接字符串,用于连接Excel B的数据。
然后,使用“SELECT”语句来查询Excel B中所需的数据,并将其存储到另外一个Excel文件中。具体操作可以参考以下代码:
```
'设置连接字符串
strConnect= "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\ExcelB.xlsx;Extended Properties="Excel 12.0 Xml;HDR=YES";"
'建立连接
Set cn = CreateObject("ADODB.Connection")
cn.Open strConnect
'查询Excel B中的数据
strSQL = "SELECT * FROM [Sheet1$]"
Set rs = cn.Execute(strSQL)
'将数据写入新的Excel文件中
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Add()
objExcel.Visible = True
Set objWorksheet = objWorkbook.Sheets(1)
objWorksheet.Cells(1, 1).CopyFromRecordset rs
'关闭连接
rs.Close
cn.Close
```
希望以上内容能对你有所帮助!如果有任何疑问或者需要进一步解答,请随时与我联系。