Question

EXCEL，VBA方法range作用于对象'_worksheet'时失效

EXCEL用VBA从另一个excel文件里取数据
Set xlApp = New Excel.Application '获取指定excel文件
Set xlBook = xlApp.Workbooks.Open(myFileName) '获取指定sheet
Set xlSheet = xlBook.Worksheets(1) '获取指定单元格的内容
For mySht = 2 To 5
Sheets(mySht).Range("A" & myRow) = Format(myFileDay, "yyyymmdd")
Sheets(mySht).Range("B" & myRow) = xlSheet.Range("B" & mySht + 3)
.....
for下面第一行赋值成功
第二行报错，在调试时，等号右侧有取值数据，左侧myrow变量为2，mysht变量为2
求助
我增加了一个字符串变量st
st= xlSheet.Range("B" & mySht + 3)
Sheets(mySht).Range("B" & myRow)=st
运行通过了……这是为什么？

我在所有range后面加了value，运行通过了……
可能是两个表格里数据格式的问题

Answer 1

代码看不出问题，我也试验了一下，没出问题呀。
能不能把你的文件发到我的企鹅邮箱（个人资料里有），我帮你研究研究。
回答补充
那你这样试试看：Sheets(mySht).Range("B" & myRow) = xlSheet.Range("B" & mySht + 3).value

你是高版本EXCEL吧