vba读取另一个excel的信息

Question

是两个工作独立得工作表，不是一个表里两个sheet那种，我想要的结果是我在Aexcel
表里输入的数据（G列），在点击登录的时候要去数据库查是不是存在，这个数据库就是另外一个excel文件，是Bexcel得D列，如果不存在，会把Aexcel得不存在的这个变红，没学过vba，基础的变量啥的都不懂，告诉我思想也没大有用，完全没有头脑，大神帮帮忙，给写个源码?

Answer 1

Private Sub Worksheet_Change(ByVal Target As Range)
Dim wb As Workbook, sh, a, m, r
If Target.Column = 7 Then
Set wb = GetObject(ThisWorkbook.Path & "\B.xlsx")
Set sh = wb.Worksheets(1)
a = Target.Value
Set m = sh.Range("D:D").Find(What:=a, LookAt:=xlWhole)
If m Is Nothing Then
Target.Font.ColorIndex = 3
Else
Target.Font.ColorIndex = xlAutomatic
wb.Close
End If
End If
End Sub

追问

请问一下，我是想在点击登陆的登录按钮里面实现
Private Sub CommandButton1_Click()
End Sub
但是你这个应该是单纯写的代码，我代入不进去。。。麻烦你帮我改进一下，我给您加悬赏可以吗

Answer 2

Sub YANG()
Workbooks.Open ThisWorkbook.Path & "\NIDA.xlsx" '打开同目录下文件
Sheets("②Count Table").Range("A5:KH1500").Copy Workbooks("NIDA.xlsm").Sheets("②Count Table").Range("A5:A5:KH1500") '拷贝数据
ActiveWorkbook.Close = True '关闭A.xlsx
End Sub
里面的错误在 Range("A5:A5:KH1500") '拷贝数据
应该是 Range("A5:KH1500") '拷贝数据追问

我想要判断Aexcel的值在Bexcel是否存在？ 不是说copy复制啊?

本回答被网友采纳