彰化一整天的論壇

 找回密碼
 立即註冊
查看: 3175|回復: 0

在Excel 如何取得另一個Excel檔案的儲存格值

[複製鏈接]
發表於 2014-8-27 14:59:00 | 顯示全部樓層 |閱讀模式
How to get cell data from one excel file to another

  1. Sub GetData()
  2.     Dim wbkS As Workbook
  3.     Dim wshS As Worksheet
  4.     Dim wshT As Worksheet
  5.     Dim strFile As String
  6.     With Application.FileDialog(1) ' msoFileDialogOpen
  7.         .Filters.Clear
  8.         .Filters.Add "Excel workbooks", "*.xls;*.xlsx;*.xlsb;*.xlsm"
  9.         .InitialFileName = "C:\My Documents\Work\VBA\Core\"
  10.         If .Show Then
  11.             strFile = .SelectedItems(1)
  12.         Else
  13.             MsgBox "No file selected", vbCritical
  14.             Exit Sub
  15.         End If
  16.     End With
  17.     Application.ScreenUpdating = False
  18.     Set wshT = ActiveSheet
  19.     Set wbkS = Workbooks.Open(Filename:=strFile, ReadOnly:=True)
  20.     Set wshS = wbkS.Worksheets(1)
  21.     wshT.Range("A2").Value = wshS.Range("Core_Circle").Value
  22.     wshT.Range("B2").Value = wshS.Range("Leg_Centres").Value
  23.     wshT.Range("C2").Value = wshS.Range("HOW").Value
  24.     ' Optional: close source workbook
  25.     wbkS.Close SaveChanges:=False
  26.     Application.ScreenUpdating = True
  27. End Sub
複製代碼


文章出處:http://social.msdn.microsoft.com ... nother?forum=isvvba
回復

使用道具 舉報

您需要登錄後才可以回帖 登錄 | 立即註冊

本版積分規則

 ㄚ母滴雞湯
 員林香純滴雞精

Archiver|手機版|小黑屋|彰化一整天的論壇(Excel,Office)  

GMT+8, 2020-7-15 10:01 , Processed in 0.120179 second(s), 21 queries .

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回復 返回頂部 返回列表