以下代码a2单元格中内容为数字时可以运行,为什么变为汉字时不能运行?请老师指导下,谢谢!
Sub aa()
Dim wb As Workbook
Application.ScreenUpdating = False
Set wb = Workbooks.Open(ThisWorkbook.Path & "\B.xls")
wb.Sheets(ThisWorkbook.Sheets("数据表").[a2]).[A2:D2] = ThisWorkbook.Sheets("数据表").[B2:E2].Value
wb.Close True
Set wb = Nothing
Application.ScreenUpdating = True
End Sub