Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 1637|回复: 3

[已解决]在关工作表名引用问题

[复制链接]
发表于 2012-10-7 13:13 | 显示全部楼层 |阅读模式
以下代码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
最佳答案
2012-10-7 16:50
改一下:
wb.Sheets(ThisWorkbook.Sheets("数据表").[a2].Value).[A2:D2] = ThisWorkbook.Sheets("数据表").[B2:E2].Value
发表于 2012-10-7 13:46 | 显示全部楼层
因为是电脑设置问题,英文为一个字节,而汉字是二个字节,而电脑默认英文设置的一个字节.
若让电脑认得汉字,必须转换一下才行.一般太麻烦.
回复

使用道具 举报

发表于 2012-10-7 13:52 | 显示全部楼层
wb.Sheets(ThisWorkbook.Sheets("数据表").[a2])如果a2中的是数值,那么就是wb.sheets(1或者...),代码应该是可以的,如果a2中的是文本,那么就是wb.sheets(中国),文本要用英文双引号,应该不可以吧,没试过。
回复

使用道具 举报

发表于 2012-10-7 16:50 | 显示全部楼层    本楼为最佳答案   
改一下:
wb.Sheets(ThisWorkbook.Sheets("数据表").[a2].Value).[A2:D2] = ThisWorkbook.Sheets("数据表").[B2:E2].Value
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 17:41 , Processed in 0.421108 second(s), 10 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表