Question

excel如何用vb自动提取未打开的另一excel表格指定单元格内容到当前单元格。！

excel如何用vb自动提取未打开的另一excel表格指定单元格内容到当前单元格。！比如要提取d:\123.xls中sheet1的b1中内容到当前表格的sheet1中的c1中

Answer 1

必须要打开相应的表才能取值，可以关闭屏幕刷新，这样用户就不知道曾经打开过指定的表格。

Sub text()

   Application.ScreenUpdating = False  '关闭屏幕刷新

    Set wb = Workbooks.Open("d:\123.xls")    '打开指定文件
    ThisWorkbook.Sheets(1).Range("C1") = ActiveSheet.Range("B1")    '取值
    wb.Close        '关闭指定文件
    
   Application.ScreenUpdating = True     '打开屏幕刷新

End Sub

追问

能否打开表格时自动提取，无需手动执行

Answer 2

用VB打开文件、获取内容、然后关闭，例如：

SUB TEST()
     Dim wb, x 
     Set wb=Books.Open("d:\123.xls")
     x=wb.sheets("sheet1").Range("b1")
     wb.Close  
     Sheets("sheet1").Range("c1")=x 
END SUB