excel使用VBA调用工作薄字节问题，高手请进

来源：百度知道 编辑：UC知道 时间：2024/06/19 09:06:49
工作薄Book1的A1的内容是“ABCDE”，工作薄Book2中的D2调用A1的内容，怎样使用VBA去实现，要A1的以srting的类型取出，不能用Copy命令，应为A1的值还要进行判断后做处理
A1的值取出后还要根据内容去判断方到那一个位置去，比如A1的内容可能是“广州市东山区中山路”使用InStr(str2, "东山")去判断，再把值放到合适的位置上

Sub a()
Dim Wb As Workbook
Dim Temp, st As String
Application.ScreenUpdating = False
Temp = ThisWorkbook.Path & "\book1.xls"
Set Wb = GetObject(Temp)
st = Wb.Sheets(1).Range("A1")
'加入条件
Range("d2") = st
Set Wb = Nothing
Application.ScreenUpdating = True
End Sub

set str2=workbooks("book1").sheets("sheet1").range("a1")
[d2]=InStr(str2, "东山")
??不知道你想要实现怎么样的效果。。。。但原理总是这样吧
请自行去研究了。。。