VBA取得另一个excel中的数据并在原excel中显示
Dim file As String
Private Sub openfile(ByVal Target As Range)
If Target.Row = 1 And Target.Column = 1 Then
opennextfile
End If
End Sub
Sub opennextfile()
With Application.FileDialog(msoFileDialogOpen)
.Filters.Add "Excel Files", "*.xls, *.xlsx"
If .Show = True Then
FileCount = .SelectedItems.Count
Filename = .SelectedItems(1)
Range("D2").Value = Filename
file = Filename
openrealy
End If
End With
End Sub
Sub openrealy()
Workbooks.Open (file)
With ActiveWorkbook
Dim i As Integer
For i = 2 To 10
Sheet1.Range("A" & i) = .Sheets(1).Range("A" & i).Value
Next
.Close
End With
End Sub