vba读取另一个excel的信息

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

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
但是你这个应该是单纯写的代码,我代入不进去。。。麻烦你帮我改进一下,我给您加悬赏可以吗

温馨提示:答案为网友推荐,仅供参考
第1个回答  2019-04-28
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复制啊?

本回答被网友采纳
相似回答